GitLab

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*`.

@@ -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 ""

Raymond Toy pushed to branch issue-162-filename-encoding-no-encoding at cmucl / cmucl

Commits:

2 changed files:

Changes: