[cl-l10n-devel] Problem with it_IT locale

[Andrea Chiumenti]

Am I doing something wrong or there is a small bug into locale definition?

(let ((cl-l10n:*locale* "it_IT")(cl-l10n:*float-digits* nil)) (format nil
"~:/cl-l10n:format-number/" (coerce 1/100000000000000000000000000000000
'double-float)))

arithmetic error DIVISION-BY-ZERO signalled
Operation was SB-KERNEL::DIVISION, operands (0 0).
   [Condition of type DIVISION-BY-ZERO]

Restarts:
 0: [ABORT] Return to SLIME's top level.
 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
{100374F471}>)

Backtrace:
  0: (TRUNCATE 0 0)
  1: (SB-FORMAT::FORMAT-ADD-COMMAS "0" #\, 0)
  2: (SB-FORMAT::FORMAT-PRINT-INTEGER
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      0
      T
      NIL
      10
      0
      #\
      #\,
      0)
  3: (SB-FORMAT::D-FORMAT-DIRECTIVE-INTERPRETER
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      #<~,,',,0:D>
      (#<~{> #<~A> #<~}>)
      #<unavailable argument>
      #<unavailable argument>)
  4: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      (#<~,,',,0:D> #<~{> #<~A> #<~}>)
      ("" 0 ("," "00000000000000000000000000000001"))
      (0 ("," "00000000000000000000000000000001")))
  5: (SB-FORMAT::%FORMAT
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      "~A~,,',,0:D~{~A~}"
      ("" 0 ("," "00000000000000000000000000000001"))
      ("" 0 ("," "00000000000000000000000000000001")))
  6: (COMMON-LISP:FORMAT
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      "~A~,,',,0:D~{~A~}")[:EXTERNAL]
  7: (FORMAT-NUMBER
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      1.d-32
      T
      NIL
      "it_IT")
  8: (SB-FORMAT::/-FORMAT-DIRECTIVE-INTERPRETER
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      #<~:/cl-l10n:format-number/>
      NIL
      #<unavailable argument>
      #<unavailable argument>)
  9: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      (#<~:/cl-l10n:format-number/>)
      (1.d-32)
      (1.d-32))
 10: (SB-FORMAT::%FORMAT
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}>
      "~:/cl-l10n:format-number/"
      (1.d-32)
      (1.d-32))
 11: (COMMON-LISP:FORMAT NIL "~:/cl-l10n:format-number/")[:EXTERNAL]
 12: ((LAMBDA ()))
 13: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (LET ((*LOCALE* "it_IT") (*FLOAT-DIGITS* NIL))
        (FORMAT NIL "~:/cl-l10n:format-number/"
                (COERCE 1/100000000000000000000000000000000
                        'DOUBLE-FLOAT)))
      #<NULL-LEXENV>)
 14: (SWANK::EVAL-REGION
      " (let ((cl-l10n:*locale* \"it_IT\")(cl-l10n:*float-digits* nil))
(format nil \"~:/cl-l10n:format-number/\" (coerce
1/100000000000000000000000000000000 'double-float)))
     ")
 15: ((LAMBDA ()))
 16: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {1002B9D699}>)
 17: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {1002B9D669}>)
 18: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {1002B9D669}>)
 19: (SWANK::REPL-EVAL
      " (let ((cl-l10n:*locale* \"it_IT\")(cl-l10n:*float-digits* nil))
(format nil \"~:/cl-l10n:format-number/\" (coerce
1/100000000000000000000000000000000 'double-float)))
     ")
 20: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (SWANK:LISTENER-EVAL
       " (let ((cl-l10n:*locale* \"it_IT\")(cl-l10n:*float-digits* nil))
(format nil \"~:/cl-l10n:format-number/\" (coerce
1/100000000000000000000000000000000 'double-float)))
     ")
      #<NULL-LEXENV>)
 21: ((LAMBDA ()))
 22: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<CLOSURE (LAMBDA #) {1002B9D409}>)
 23: ((LAMBDA ()))
 24: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<FUNCTION (LAMBDA #) {10028B6509}>)
 25: (SWANK::CALL-WITH-REDIRECTED-IO
      #<SWANK::CONNECTION {100373EC21}>
      #<CLOSURE (LAMBDA #) {1002B9D2C9}>)
 26: (SWANK::CALL-WITH-CONNECTION
      #<SWANK::CONNECTION {100373EC21}>
      #<FUNCTION (LAMBDA #) {10028B6509}>)
 27: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {100373EC21}>)
 28: (SWANK::REPL-LOOP #<SWANK::CONNECTION {100373EC21}>)
 29: (SWANK::REPL-LOOP #<SWANK::CONNECTION {100373EC21}>)[:EXTERNAL]
 30: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {1003755119}>)
 31: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
 32: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]438))
 33: (SB-THREAD::CALL-WITH-MUTEX
      #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {2ADBDF31FEE9}>
      #S(SB-THREAD:MUTEX
         :NAME "thread result lock"
         :%OWNER #<SB-THREAD:THREAD "repl-thread" {100374F471}>
         :STATE 1)
      #<SB-THREAD:THREAD "repl-thread" {100374F471}>
      T)
 34: ((LAMBDA ()))
 35: ("foreign function: #x41D832")
 36: ("foreign function: #x415644")
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-l10n-devel/attachments/20080305/f4b4cd05/attachment.html>