X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=cf19fb7391860498f83cd3dbf948f1b4a77350a2;hb=0e5c6a3b77adf6bcd2e7f7c7ac5bbfc684602274;hp=8ded127506ace37969fa4b3dd524ea001a27306a;hpb=dd0e7aad8215b548fdb1e402affdc0caad95b621;p=sbcl.git

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index 8ded127..cf19fb7 100644
--- 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
@@ -817,12 +817,7 @@ cons cells and LIST-TYPE is :normal, :dotted, or :cyclic"
     (list components (length components) :named nil)))
 
 (defmethod inspected-parts ((object function))
-  (let* ((type (sb-kernel:widetag-of object))
-         (object (if (= type sb-vm:closure-header-widetag)
-                     (sb-kernel:%closure-fun object)
-                     object))
-         (components (list (cons "arglist"
-                               (sb-kernel:%simple-fun-arglist object)))))
+  (let ((components (list (cons "arglist" (sb-kernel:%fun-lambda-list object)))))
     (list components (length components) :named nil)))
 
 (defmethod inspected-parts ((object vector))