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)