Am I doing something wrong or there is a small bug into locale definition?<br><br>(let ((cl-l10n:*locale* "it_IT")(cl-l10n:*float-digits* nil)) (format nil "~:/cl-l10n:format-number/" (coerce 1/100000000000000000000000000000000 'double-float)))<br>
<br>arithmetic error DIVISION-BY-ZERO signalled<br>Operation was SB-KERNEL::DIVISION, operands (0 0).<br>   [Condition of type DIVISION-BY-ZERO]<br><br>Restarts:<br> 0: [ABORT] Return to SLIME's top level.<br> 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {100374F471}>)<br>
<br>Backtrace:<br>  0: (TRUNCATE 0 0)<br>  1: (SB-FORMAT::FORMAT-ADD-COMMAS "0" #\, 0)<br>  2: (SB-FORMAT::FORMAT-PRINT-INTEGER<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      0<br>      T<br>
      NIL<br>      10<br>      0<br>      #\<br>      #\,<br>      0)<br>  3: (SB-FORMAT::D-FORMAT-DIRECTIVE-INTERPRETER<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      #<~,,',,0:D><br>      (#<~{> #<~A> #<~}>)<br>
      #<unavailable argument><br>      #<unavailable argument>)<br>  4: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      (#<~,,',,0:D> #<~{> #<~A> #<~}>)<br>
      ("" 0 ("," "00000000000000000000000000000001"))<br>      (0 ("," "00000000000000000000000000000001")))<br>  5: (SB-FORMAT::%FORMAT<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>
      "~A~,,',,0:D~{~A~}"<br>      ("" 0 ("," "00000000000000000000000000000001"))<br>      ("" 0 ("," "00000000000000000000000000000001")))<br>  6: (COMMON-LISP:FORMAT<br>
      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      "~A~,,',,0:D~{~A~}")[:EXTERNAL]<br>  7: (FORMAT-NUMBER<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      1.d-32<br>      T<br>
      NIL<br>      "it_IT")<br>  8: (SB-FORMAT::/-FORMAT-DIRECTIVE-INTERPRETER<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      #<~:/cl-l10n:format-number/><br>      NIL<br>      #<unavailable argument><br>
      #<unavailable argument>)<br>  9: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      (#<~:/cl-l10n:format-number/>)<br>      (1.d-32)<br>      (1.d-32))<br>
 10: (SB-FORMAT::%FORMAT<br>      #<SB-IMPL::STRING-OUTPUT-STREAM {1002BC6CE1}><br>      "~:/cl-l10n:format-number/"<br>      (1.d-32)<br>      (1.d-32))<br> 11: (COMMON-LISP:FORMAT NIL "~:/cl-l10n:format-number/")[:EXTERNAL]<br>
 12: ((LAMBDA ()))<br> 13: (SB-INT:SIMPLE-EVAL-IN-LEXENV<br>      (LET ((*LOCALE* "it_IT") (*FLOAT-DIGITS* NIL))<br>        (FORMAT NIL "~:/cl-l10n:format-number/"<br>                (COERCE 1/100000000000000000000000000000000<br>
                        'DOUBLE-FLOAT)))<br>      #<NULL-LEXENV>)<br> 14: (SWANK::EVAL-REGION<br>      " (let ((cl-l10n:*locale* \"it_IT\")(cl-l10n:*float-digits* nil)) (format nil \"~:/cl-l10n:format-number/\" (coerce 1/100000000000000000000000000000000 'double-float)))<br>
     ")<br> 15: ((LAMBDA ()))<br> 16: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {1002B9D699}>)<br> 17: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {1002B9D669}>)<br> 18: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {1002B9D669}>)<br>
 19: (SWANK::REPL-EVAL<br>      " (let ((cl-l10n:*locale* \"it_IT\")(cl-l10n:*float-digits* nil)) (format nil \"~:/cl-l10n:format-number/\" (coerce 1/100000000000000000000000000000000 'double-float)))<br>
     ")<br> 20: (SB-INT:SIMPLE-EVAL-IN-LEXENV<br>      (SWANK:LISTENER-EVAL<br>       " (let ((cl-l10n:*locale* \"it_IT\")(cl-l10n:*float-digits* nil)) (format nil \"~:/cl-l10n:format-number/\" (coerce 1/100000000000000000000000000000000 'double-float)))<br>
     ")<br>      #<NULL-LEXENV>)<br> 21: ((LAMBDA ()))<br> 22: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))<br>      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK><br>      #<CLOSURE (LAMBDA #) {1002B9D409}>)<br>
 23: ((LAMBDA ()))<br> 24: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))<br>      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK><br>      #<FUNCTION (LAMBDA #) {10028B6509}>)<br> 25: (SWANK::CALL-WITH-REDIRECTED-IO<br>
      #<SWANK::CONNECTION {100373EC21}><br>      #<CLOSURE (LAMBDA #) {1002B9D2C9}>)<br> 26: (SWANK::CALL-WITH-CONNECTION<br>      #<SWANK::CONNECTION {100373EC21}><br>      #<FUNCTION (LAMBDA #) {10028B6509}>)<br>
 27: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {100373EC21}>)<br> 28: (SWANK::REPL-LOOP #<SWANK::CONNECTION {100373EC21}>)<br> 29: (SWANK::REPL-LOOP #<SWANK::CONNECTION {100373EC21}>)[:EXTERNAL]<br> 30: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {1003755119}>)<br>
 31: ((FLET SB-THREAD::WITH-MUTEX-THUNK))<br> 32: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]438))<br> 33: (SB-THREAD::CALL-WITH-MUTEX<br>      #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {2ADBDF31FEE9}><br>
      #S(SB-THREAD:MUTEX<br>         :NAME "thread result lock"<br>         :%OWNER #<SB-THREAD:THREAD "repl-thread" {100374F471}><br>         :STATE 1)<br>      #<SB-THREAD:THREAD "repl-thread" {100374F471}><br>
      T)<br> 34: ((LAMBDA ()))<br> 35: ("foreign function: #x41D832")<br> 36: ("foreign function: #x415644")<br><br>