roswell.roswell/patch/sbcl-posix-tests.patch
2017-11-15 23:35:20 +09:00

12 lines
321 B
Diff

---
+++ contrib/sb-posix/posix-tests.lisp
@@ -536,7 +536,7 @@
nil)
(deftest readdir.1
- (let ((dir (sb-posix:opendir "/")))
+ (let ((dir (sb-posix:opendir "/")) (sb-alien::*default-c-string-external-format* :utf-8))
(unwind-protect
(block dir-loop
(loop for dirent = (sb-posix:readdir dir)