projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11441: remove old cxt classes/functions. Use new :compute-cached-value for hyperobjects
[umlisp.git]
/
utils.lisp
diff --git
a/utils.lisp
b/utils.lisp
index 7fa3395f2ca870887c308b0c920f5854d4c88e4b..9fc23e4b8befa07d6a6a60c3819f1076d4009a51 100644
(file)
--- a/
utils.lisp
+++ b/
utils.lisp
@@
-85,6
+85,15
@@
(nth-value 0 (parse-integer aui))))
aui))
(nth-value 0 (parse-integer aui))))
aui))
+(defun parse-rui (rui)
+ (declare (optimize (speed 3) (safety 0)))
+ (if (stringp rui)
+ (let ((ch (schar rui 0)))
+ (if (char-equal ch #\R)
+ (parse-ui rui)
+ (nth-value 0 (parse-integer rui))))
+ rui))
+
(defun parse-eui (eui)
(declare (optimize (speed 3) (safety 0)))
(if (stringp eui)
(defun parse-eui (eui)
(declare (optimize (speed 3) (safety 0)))
(if (stringp eui)