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)