X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=4c945e8bb126e659dc74694b44419a5b4c5bfef8;hb=7c5138fcbdb302abc563a2060493f2f0304ae902;hp=d4b0dd12177044d59608370684ea1eb04cd7fc41;hpb=4c5a011ccc355e3653b9490de6a2b3df5777e55d;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index d4b0dd1..4c945e8 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1406,7 +1406,8 @@
 			     (m+ m+ (* m+ print-base))
 			     (m- m- (* m- print-base)))
 			    ((not (or (< (* (+ r m+) print-base) s)
-				      (and high-ok (= (* (+ r m+) print-base) s))))
+				      (and (not high-ok)
+                                           (= (* (+ r m+) print-base) s))))
 			     (values k (generate r s m+ m-)))))))
 		 (generate (r s m+ m-)
 		   (let (d tc1 tc2)