[cl-l10n-cvs] CVS update: cl-l10n/ChangeLog cl-l10n/cl-l10n.asd cl-l10n/load-locale.lisp cl-l10n/printers.lisp

[Sean Ross]

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 at 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 at 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 at jhb.ucs.co.za>"
   :maintainer "Sean Ross <sdr at 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) , at args)
+      `(cl::format ,dest ,(parse-fmt-string control) , at args)
       form))
 
 (defmacro formatter (fmt-string)