Update of /project/cl-l10n/cvsroot/cl-l10n In directory common-lisp.net:/tmp/cvs-serv16337

Modified Files: load-locale.lisp Log Message: Fixed return value of locale when errorp is nil Date: Mon Nov 29 12:27:03 2004 Author: sross

Index: cl-l10n/load-locale.lisp diff -u cl-l10n/load-locale.lisp:1.3 cl-l10n/load-locale.lisp:1.4 --- cl-l10n/load-locale.lisp:1.3 Mon Nov 29 12:02:42 2004 +++ cl-l10n/load-locale.lisp Mon Nov 29 12:27:03 2004 @@ -9,7 +9,7 @@ (let ((name (aif (position #. loc-name) (subseq loc-name 0 it) loc-name))) - (acond ((and (not name) (not errorp)) "No Locale NIL.") + (acond ((and (not name) (not errorp)) nil) ((and use-cache (get-locale name)) it) ((probe-file (merge-pathnames *locale-path* name)) (load-locale name))