Raymond Toy pushed to branch issue-162-filename-encoding-no-encoding at cmucl / cmucl
Commits: ce202074 by Raymond Toy at 2023-02-10T08:29:32-08:00 Fix stupid typos
Really stupid typos/thinkos: * Forgot to change initial value if `*filename-encoding*` from `:no-encoding` to `:null`. (Stupid!) * Fix typo: `:nul` instead of `:null` in `%name->file`.
Update cmucl-unix.pot too for the change in the docstring for `*filename-encoding*`.
- - - - -
2 changed files:
- src/code/unix.lisp - src/i18n/locale/cmucl-unix.pot
Changes:
===================================== src/code/unix.lisp ===================================== @@ -25,7 +25,7 @@ ;; it must be set to :iso8859-1 (or left as NIL), making files with ;; non-Latin-1 characters "mojibake", but otherwise they'll be inaccessible. ;; Must be set to NIL initially to enable building Lisp! -(defvar *filename-encoding* :no-encoding +(defvar *filename-encoding* :null "The encoding to use for converting a namestring to a string that can be used by the operations system. It must be a valid external-format name or :NULL. :NULL means the string @@ -34,7 +34,7 @@
(eval-when (:compile-toplevel :load-toplevel :execute) (defmacro %name->file (string) - `(if (eql *filename-encoding* :nul) + `(if (eql *filename-encoding* :null) ,string (string-encode ,string *filename-encoding*))) (defmacro %file->name (string)
===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -19,7 +19,7 @@ msgstr "" msgid "" "The encoding to use for converting a namestring to a string that can\n" " be used by the operations system. It must be a valid\n" -" external-format name or :NO-ENCODING. :NO-ENCODING means the string\n" +" external-format name or :NULL. :NULL means the string\n" " is passed as is to the operating system. The operating system will\n" " get the low 8 bits of each UTF-16 code unit of the string." msgstr ""
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ce202074d2ffa1b1626f7bd3...