housekeeping
Wed Jul 27 05:37:13 PDT 2011 attila.lendvai@gmail.com
* housekeeping
diff -rN -u old-cl-l10n/src/cldr-parsing.lisp new-cl-l10n/src/cldr-parsing.lisp
--- old-cl-l10n/src/cldr-parsing.lisp 2014-07-30 14:21:41.000000000 -0700
+++ new-cl-l10n/src/cldr-parsing.lisp 2014-07-30 14:21:41.000000000 -0700
@@ -5,6 +5,8 @@
;;; see http://unicode.org/cldr/
+;; TODO use alists instead of plists...
+
(defvar *parser*)
(define-condition cldr-parser-warning (simple-warning)
@@ -110,6 +112,7 @@
(setf (getf entry :formatter) (compile-number-pattern/currency (getf entry :pattern)))
(setf (assoc-value (formatters-of currency-formatter) verbosity) entry)))))
+;; TODO get rid of this
(defun dummy-formatter (&rest args)
(declare (ignore args))
(error "Seems like either the CLDR file parsing or the CLDR files themselves have a bug. This dummy formatter should have been replaced in the postprocessing phase."))
diff -rN -u old-cl-l10n/src/i18n.lisp new-cl-l10n/src/i18n.lisp
--- old-cl-l10n/src/i18n.lisp 2014-07-30 14:21:41.000000000 -0700
+++ new-cl-l10n/src/i18n.lisp 2014-07-30 14:21:41.000000000 -0700
@@ -310,6 +310,7 @@
(return (values (cdr it) t)))))
(defun localize-number-symbol-character (number-symbol-char)
+ (check-type number-symbol-char character)
(bind ((number-symbol-name (case number-symbol-char
(#\. 'ldml:decimal)
(#\0 'ldml:native-zero-digit)