+ (fmt-tui (parse-integer tui))))
+
+(defgeneric fmt-aui (aui))
+(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)))
+
+(defmethod fmt-aui ((aui string))
+ (if (eql (aref aui 0) #\A)
+ aui
+ (fmt-aui (parse-integer aui))))
+
+(defgeneric fmt-rui (rui))
+(when *has-fixnum-class*
+ (defmethod fmt-rui ((rui fixnum))
+ (prefixed-fixnum-string rui #\A 8)))
+
+(defmethod fmt-rui ((rui integer))
+ (prefixed-integer-string rui #\A 8))
+
+(defmethod fmt-rui ((rui string))
+ (if (eql (aref rui 0) #\R)
+ rui
+ (fmt-rui (parse-integer rui))))