Update of /project/cl-l10n/cvsroot/cl-l10n In directory common-lisp.net:/tmp/cvs-serv24119 Modified Files: locale.lisp printers.lisp Log Message: Fixed print-time-string to handle double percs Date: Mon Nov 29 15:14:41 2004 Author: sross Index: cl-l10n/locale.lisp diff -u cl-l10n/locale.lisp:1.1.1.1 cl-l10n/locale.lisp:1.2 --- cl-l10n/locale.lisp:1.1.1.1 Mon Nov 29 10:56:55 2004 +++ cl-l10n/locale.lisp Mon Nov 29 15:14:41 2004 @@ -10,6 +10,7 @@ ;; Merge with property files ;; Cache getters? (reset on reload of locales) ;; Time Zone printing +;; Parsers? (in-package :cl-l10n ) Index: cl-l10n/printers.lisp diff -u cl-l10n/printers.lisp:1.1.1.1 cl-l10n/printers.lisp:1.2 --- cl-l10n/printers.lisp:1.1.1.1 Mon Nov 29 10:56:57 2004 +++ cl-l10n/printers.lisp Mon Nov 29 15:14:41 2004 @@ -78,7 +78,7 @@ (= 1 (locale-p-cs-precedes locale)) (locale-p-sign-posn locale)))) -;; FIXME . Rounding +;; FIXME . Rounding and float coercion. (defun format-money (stream arg use-int-sym no-ts &optional (locale *locale*)) (let ((locale (locale-des->locale locale))) (multiple-value-bind (int-part float-part) @@ -292,7 +292,7 @@ with perc = nil do (case x (#\% (if perc - (princ #\% stream) + (progn (princ #\% stream) (setf perc nil)) (setf perc t))) (t (if perc (progn (apply (lookup-formatter x) stream locale values)