[Git][cmucl/cmucl][issue-162-filename-encoding-no-encoding] Fix stupid typos

[Raymond Toy (@rtoy)]

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/ce202074d2ffa1b1626f7bd3d0f816e7e6484bdc

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ce202074d2ffa1b1626f7bd3d0f816e7e6484bdc
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230210/c61b062f/attachment-0001.html>