(format stream "~A" (inspected-description object))
(unless (or *skip-address-display*
(eq object *inspect-unbound-object-marker*)
+ (and (= sb-vm::n-word-bits 64) (typep object 'single-float))
(characterp object) (typep object 'fixnum))
(write-string " at #x" stream)
(format stream (n-word-bits-hex-format)
(defmethod inspected-description ((object standard-object))
(format nil "~W" (class-of object)))
-(defmethod inspected-description ((object sb-kernel:funcallable-instance))
- (format nil "a funcallable-instance of type ~S" (type-of object)))
-
(defmethod inspected-description ((object function))
(format nil "~S" object) nil)
(ref32-hexstr object start))))
(defmethod inspected-description ((object single-float))
- (description-maybe-internals "single-float ~W" (list object)
- "[#x~A]"
- (ref32-hexstr object (round sb-vm::n-word-bits 8))))
+ (ecase sb-vm::n-word-bits
+ (32
+ (description-maybe-internals "single-float ~W" (list object)
+ "[#x~A]"
+ (ref32-hexstr object (round sb-vm::n-word-bits 8))))
+ (64
+ ;; on 64-bit platform, single-floats are not boxed
+ (description-maybe-internals "single-float ~W" (list object)
+ "[#x~8,'0X]"
+ (ash (sb-kernel:get-lisp-obj-address object) -32)))))
(defmethod inspected-description ((object fixnum))
(description-maybe-internals
(let ((components (inspected-standard-object-parts object)))
(list components (length components) :named nil)))
-(defmethod inspected-parts ((object sb-kernel:funcallable-instance))
- (let ((components (inspected-standard-object-parts object)))
- (list components (length components) :named nil)))
-
(defmethod inspected-parts ((object condition))
(let ((components (inspected-standard-object-parts object)))
(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))