- (description-maybe-internals "character ~W char-code #x~4,'0X"
- (list object (char-code object))
- "[#x~8,'0X]"
- (sb-kernel:get-lisp-obj-address object)))
+ ;; FIXME: This will need to change as and when we get more characters
+ ;; than just the 256 we have today.
+ (description-maybe-internals
+ "character ~W char-code #x~2,'0X"
+ (list object (char-code object))
+ "[#x~8,'0X]"
+ (logior sb-vm:character-widetag (ash (char-code object)
+ sb-vm:n-widetag-bits))))