X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=3556649b5e682d893bc6b5985bb250f57592cbe4;hb=c6b052b5c190f24ac8e03d69bfc5d333f268b960;hp=81a08ea6b00e733c7eac6ca6cea931ed9268a775;hpb=7c1298a73f97b8c71474d8aa4a7c8f863fe0718d;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 81a08ea..3556649 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1037,7 +1037,8 @@
 	     (not (array-readably-printable-p array)))
     (error 'print-not-readable :object array))
   (write-char #\# stream)
-  (let ((*print-base* 10))
+  (let ((*print-base* 10)
+	(*print-radix* nil))
     (output-integer (array-rank array) stream))
   (write-char #\A stream)
   (with-array-data ((data array) (start) (end))