X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-format.lisp;h=8c5c0c5c4dcb2b356e12e4dbb5b7ace4133d5182;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=7ed479bec1ad0039239fb271c01271364c76168e;hpb=11fa2359dd9dc3fbb84a9b80b255617e4792bd0e;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index 7ed479b..8c5c0c5 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -483,8 +483,10 @@
         `(format-print-integer stream ,(expand-next-arg) ,colonp ,atsignp
                                ,base ,mincol ,padchar ,commachar
                                ,commainterval))
-      `(write ,(expand-next-arg) :stream stream :base ,base :radix nil
-              :escape nil)))
+      `(let ((*print-base* ,base)
+             (*print-radix* nil)
+             (*print-escape* nil))
+         (output-object ,(expand-next-arg) stream))))
 
 (def-format-directive #\D (colonp atsignp params)
   (expand-format-integer 10 colonp atsignp params))