projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9507: rrf updates
[umlisp.git]
/
class-support.lisp
diff --git
a/class-support.lisp
b/class-support.lisp
index 89dbd6e2b5d399236e93d1805a908900c1124719..208e1a3e23f368d710089a6312a06b3030dd30e8 100644
(file)
--- a/
class-support.lisp
+++ b/
class-support.lisp
@@
-66,7
+66,16
@@
(defmethod fmt-tui ((tui string))
(if (eql (aref tui 0) #\T)
tui
(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))
(defgeneric fmt-eui (e))
(defmethod fmt-eui ((e fixnum))