X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=890b943ca0e1653a2fa21809764a4ea91d1f60ff;hb=9b1fade83db8453b75b8c7380eb12ce41b5b889c;hp=5a29fbad05467f9dd5dff02786ffd20cd2691a7e;hpb=01d3afd8254db54a95552d6e4d09f54a9c970449;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index 5a29fba..890b943 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -78,8 +78,7 @@
                       (function
                        (typecase character
                          (base-char
-                       (svref *format-directive-interpreters*
-                              (char-code character)))
+                          (svref *format-directive-interpreters* (char-code character)))
                          (character nil)))
                       (*default-format-error-offset*
                        (1- (format-directive-end directive))))
@@ -378,7 +377,7 @@
 
 (defun format-print-cardinal-aux (stream n period err)
   (multiple-value-bind (beyond here) (truncate n 1000)
-    (unless (<= period 20)
+    (unless (<= period 21)
       (error "number too large to print in English: ~:D" err))
     (unless (zerop beyond)
       (format-print-cardinal-aux stream beyond (1+ period) err))