Skip to content
Snippets Groups Projects
Commit ce202074 authored by Raymond Toy's avatar Raymond Toy
Browse files

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*`.
parent 7c44d848
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
......@@ -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 ""
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment