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