[cl-l10n-cvs] CVS update: cl-l10n/load-locale.lisp

[Sean Ross]

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))