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)