X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-format.lisp;h=890b943ca0e1653a2fa21809764a4ea91d1f60ff;hb=37200d73dfca16507809778574092cfb998711d5;hp=df74380e35f2e42e23d7e22b9e980cc2375c472c;hpb=8fee0ba99cd1b1038072bd3fc8f5d5338d80d2de;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index df74380..890b943 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -377,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))