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