X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=class-support.lisp;h=208e1a3e23f368d710089a6312a06b3030dd30e8;hb=188873f068b0c53febe4ee0ededbc755fce4869d;hp=89dbd6e2b5d399236e93d1805a908900c1124719;hpb=63e2c4c3263fc0e5feaff7498350829f4bbdfcec;p=umlisp.git

diff --git a/class-support.lisp b/class-support.lisp
index 89dbd6e..208e1a3 100644
--- a/class-support.lisp
+++ b/class-support.lisp
@@ -66,7 +66,16 @@
 (defmethod fmt-tui ((tui string))
   (if (eql (aref tui 0) #\T)
       tui
-      (fmt-tui (parse-integer tui))))
+    (fmt-tui (parse-integer tui))))
+
+(defgeneric fmt-aui (aui))
+(defmethod fmt-aui ((aui fixnum))
+  (prefixed-fixnum-string aui #\A 7))
+
+(defmethod fmt-aui ((aui string))
+  (if (eql (aref aui 0) #\A)
+      aui
+      (fmt-aui (parse-integer aui))))
 
 (defgeneric fmt-eui (e))
 (defmethod fmt-eui ((e fixnum))