0.9.13.16: preliminary Windows installer builder

[sbcl.git] / src / code / octets.lisp

diff --git a/src/code/octets.lisp b/src/code/octets.lisp
index 922e8eb..b86a1be 100644 (file)
--- a/src/code/octets.lisp
+++ b/src/code/octets.lisp
@@ -649,7 +649,7 @@ one-past-the-end"
                                                   "LATIN-1")
                                               "KEYWORD")
                              #!+win32
-                               #!+sb-unicode (sb!win32::ansi-cp)
+                               #!+sb-unicode (sb!win32::ansi-codepage)
                                #!-sb-unicode :LATIN-1))
         (/show0 "cold-printing defaulted external-format:")
         #!+sb-show