;; 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
(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))