From 6d5f1698cb50493ee34486d70fe4a16a4afff129 Mon Sep 17 00:00:00 2001
From: "Kirill A. Korinsky" <kirill@korins.ky>
Date: Mon, 5 Jun 2023 12:39:43 +0200
Subject: [PATCH] fix building when root directory contain non-ASCII characters

---
 contrib/sb-posix/posix-tests.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git contrib/sb-posix/posix-tests.lisp contrib/sb-posix/posix-tests.lisp
index 0bb8f0bd0..33b1f2119 100644
--- contrib/sb-posix/posix-tests.lisp
+++ contrib/sb-posix/posix-tests.lisp
@@ -511,7 +511,8 @@
 
 #-(and darwin x86)
 (deftest readdir.1
-  (let ((dir (sb-posix:opendir "/")))
+  (let ((dir (sb-posix:opendir "/"))
+        (sb-alien::*default-c-string-external-format* :latin-1))
     (unwind-protect
        (block dir-loop
          (loop for dirent = (sb-posix:readdir dir)
-- 
2.41.0

