+ (let ((external-format #!-win32 (intern (or (sb!alien:alien-funcall
+ (extern-alien
+ "nl_langinfo"
+ (function c-string int))
+ sb!unix:codeset)
+ "LATIN-1")
+ "KEYWORD")
+ #!+win32
+ #!+sb-unicode (sb!win32::ansi-codepage)
+ #!-sb-unicode :LATIN-1))