0.8.18.3:

[sbcl.git] / src / code / print.lisp

diff --git a/src/code/print.lisp b/src/code/print.lisp
index d4b0dd1..4c945e8 100644 (file)
--- 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)