Update of /project/cl-l10n/cvsroot/cl-l10n In directory common-lisp.net:/tmp/cvs-serv12231 Modified Files: ChangeLog cl-l10n.asd load-locale.lisp printers.lisp Log Message: Changelog 2005-03-24 Date: Thu Mar 24 15:47:02 2005 Author: sross Index: cl-l10n/ChangeLog diff -u cl-l10n/ChangeLog:1.13 cl-l10n/ChangeLog:1.14 --- cl-l10n/ChangeLog:1.13 Wed Mar 23 11:58:16 2005 +++ cl-l10n/ChangeLog Thu Mar 24 15:47:01 2005 @@ -1,3 +1,9 @@ +2005-03-24 Sean Ross <sross@common-lisp.net> + * cl-l10n.asd, load-locale.lisp: Moved loading of initial locale + to the asdf load-op. + * load-locale.lisp: Bug fix, incorrect order of arguments to + get-category in copy-category. + 2005-03-23 Sean Ross <sross@common-lisp.net> * printers.lisp: Fixed the %w, %e, %x, %X, %d and %j time format directives. * tests.lisp: Added a test for each supported time format directive. Index: cl-l10n/cl-l10n.asd diff -u cl-l10n/cl-l10n.asd:1.10 cl-l10n/cl-l10n.asd:1.11 --- cl-l10n/cl-l10n.asd:1.10 Wed Mar 23 11:58:16 2005 +++ cl-l10n/cl-l10n.asd Thu Mar 24 15:47:01 2005 @@ -11,7 +11,7 @@ :name "CL-L10N" :author "Sean Ross <sdr@jhb.ucs.co.za>" :maintainer "Sean Ross <sdr@jhb.ucs.co.za>" - :version "0.2.5" + :version "0.2.6" :description "Portable CL Locale Support" :long-description "Portable CL Package to support localization" :licence "MIT" @@ -26,6 +26,7 @@ :depends-on (:cl-ppcre)) (defmethod perform :after ((o load-op) (c (eql (find-system :cl-l10n)))) + (funcall (find-symbol "LOAD-DEFAULT-LOCALE" "CL-L10N")) (provide 'cl-l10n)) @@ -40,4 +41,4 @@ (defmethod perform ((op test-op) (sys (eql (find-system :cl-l10n-tests)))) (funcall (find-symbol "DO-TESTS" "REGRESSION-TEST"))) -;; EOF \ No newline at end of file +;; EOF Index: cl-l10n/load-locale.lisp diff -u cl-l10n/load-locale.lisp:1.10 cl-l10n/load-locale.lisp:1.11 --- cl-l10n/load-locale.lisp:1.10 Tue Feb 22 15:18:25 2005 +++ cl-l10n/load-locale.lisp Thu Mar 24 15:47:01 2005 @@ -196,7 +196,7 @@ (let ((from (trim (subseq line (position #\Space line)) (cons #\" *whitespace*)))) (handler-case (let* ((locale (locale from))) - (or (get-category cat locale) + (or (get-category locale cat) (locale-error "No category ~A in locale ~A." cat from))) (error (c) (locale-error "Unable to copy Category ~A from ~A. ~A." @@ -318,7 +318,6 @@ (locale (getenv "LC_CTYPE") :errorp nil) (locale "POSIX"))) -(load-default-locale) ;; EOF Index: cl-l10n/printers.lisp diff -u cl-l10n/printers.lisp:1.11 cl-l10n/printers.lisp:1.12 --- cl-l10n/printers.lisp:1.11 Wed Mar 23 11:58:16 2005 +++ cl-l10n/printers.lisp Thu Mar 24 15:47:01 2005 @@ -338,7 +338,7 @@ (define-compiler-macro format (&whole form dest control &rest args) "Compiler macro to remove unnecessary calls to parse-fmt-string." (if (stringp control) - `(cl::format ,dest ,(really-parse-fmt-string control) ,@args) + `(cl::format ,dest ,(parse-fmt-string control) ,@args) form)) (defmacro formatter (fmt-string)