[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-serv15456

Modified Files:
	load-locale.lisp 
Log Message:
fixed external format for older sbcls
Date: Mon Nov 29 12:02:43 2004
Author: sross

Index: cl-l10n/load-locale.lisp
diff -u cl-l10n/load-locale.lisp:1.2 cl-l10n/load-locale.lisp:1.3
--- cl-l10n/load-locale.lisp:1.2	Mon Nov 29 11:40:59 2004
+++ cl-l10n/load-locale.lisp	Mon Nov 29 12:02:42 2004
@@ -23,7 +23,8 @@
           (*read-eval* nil)
           (*print-circle* nil))
       (with-open-file (stream path
-                       :external-format #+sbcl :latin1 #-sbcl :default)
+                       :external-format #+(and sbcl sb-unicode) :latin1 
+                                        #-(and sbcl sb-unicode) :default)
         (multiple-value-bind (escape comment) (munge-headers stream)
           (awhile (next-header stream)
             (awhen (make-category locale it (parse-category it stream