X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Foctets.lisp;h=5aca4f816a0dade4cce9435cda81400a2087c3a1;hb=54b330585ed41edeb93a289f0e59aec67fa9ded9;hp=b86a1be23cd3cdd6c550fc4e7e32a95483048c2b;hpb=68ea71d0f020f2726e3c56c1ec491d0af734b3a4;p=sbcl.git

diff --git a/src/code/octets.lisp b/src/code/octets.lisp
index b86a1be..5aca4f8 100644
--- a/src/code/octets.lisp
+++ b/src/code/octets.lisp
@@ -644,7 +644,8 @@ one-past-the-end"
       (let ((external-format #!-win32 (intern (or (sb!alien:alien-funcall
                                                     (extern-alien
                                                       "nl_langinfo"
-                                                      (function c-string int))
+                                                      (function (c-string :external-format :latin-1)
+                                                                int))
                                                     sb!unix:codeset)
                                                   "LATIN-1")
                                               "KEYWORD")