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

[Sean Ross]

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

Modified Files:
	load-locale.lisp 
Added Files:
	ChangeLog 
Log Message:
added changelog, fixed load-all-locales
Date: Mon Nov 29 11:40:59 2004
Author: sross



Index: cl-l10n/load-locale.lisp
diff -u cl-l10n/load-locale.lisp:1.1.1.1 cl-l10n/load-locale.lisp:1.2
--- cl-l10n/load-locale.lisp:1.1.1.1	Mon Nov 29 10:56:55 2004
+++ cl-l10n/load-locale.lisp	Mon Nov 29 11:40:59 2004
@@ -33,7 +33,8 @@
 
 (defun load-all-locales (&optional (path *locale-path*))
   (dolist (x (directory (merge-pathnames path "*")))
-    (load-locale (pathname-name x))))
+    (when (pathname-name x)
+      (load-locale (pathname-name x)))))
 
 (defvar *category-loaders*
   '(("LC_IDENTIFICATION" . load-identification)