Skip to content
Snippets Groups Projects
Commit 310e8c3b authored by sean's avatar sean
Browse files

quick patch to allow numeric printing in it_IT

darcs-hash:6ce18bf572664977710d24f88a85a693e24d3abe
parent 24c22abb
No related branches found
No related tags found
No related merge requests found
......@@ -178,7 +178,7 @@ If LOADER is non-nil skip everything and call loader with LOC-NAME."
#+openmcl (when no-ts (return-from create-number-fmt-string "~A~D~{~A~}"))
(cl:format nil "~~A~~,,'~A,~A~A~~{~~A~~}"
(thousands-sep-char (locale-thousands-sep locale))
(if (minusp (locale-grouping locale)) 3 (locale-grouping locale))
(if (minusp (locale-grouping locale)) 3 (max 1 (locale-grouping locale)))
(if no-ts "D" ":D")))
(defun get-descriptors (minusp locale)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment