Raymond Toy pushed to branch issue-141-locale at cmucl / cmucl

Commits:

• ca4a91c4
  by Raymond Toy at 2022-11-05T08:33:57-07:00

  Restore missing line
  
  Somehow, I deleted the line that said the `locale` arg to
  `intl::setlocale` took precedence over the system locale.  Restore the
  line.  This now makes more sense.
  

1 changed file:

• src/code/intl.lisp

Changes:

     (if (equal val "") nil val)))

 (defun setlocale (&optional locale)

-  (setf *locale* (or (unix::unix-getlocale)

+  (setf *locale* (or locale

+		     (unix::unix-getlocale)

 		     *locale*)))

 (defmacro textdomain (domain)