+(when *has-fixnum-class*
+ (defmethod fmt-aui ((aui fixnum))
+ (if (>= aui 10000000)
+ (prefixed-fixnum-string aui #\A 8)
+ (prefixed-fixnum-string aui #\A 7))))
+
+(defmethod fmt-aui ((aui integer))
+ (if (>= aui 10000000)
+ (prefixed-integer-string aui #\A 8)
+ (prefixed-integer-string aui #\A 7)))