1.0.25.15: less compilation warnings

[sbcl.git] / contrib / sb-aclrepl / inspect.lisp

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index 8ded127..071411a 100644 (file)
--- a/contrib/sb-aclrepl/inspect.lisp
+++ b/contrib/sb-aclrepl/inspect.lisp
@@ -665,7 +665,7 @@ cons cells and LIST-TYPE is :normal, :dotted, or :cyclic"
      ;; on 64-bit platform, single-floats are not boxed
      (description-maybe-internals "single-float ~W" (list object)
                                   "[#x~8,'0X]"
-                                  (sb-kernel:get-lisp-obj-address object)))))
+                                  (ash (sb-kernel:get-lisp-obj-address object) -32)))))
 
 (defmethod inspected-description ((object fixnum))
   (description-maybe-internals