projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11469: update test suite
[umlisp.git]
/
utils.lisp
diff --git
a/utils.lisp
b/utils.lisp
index 208a87e1ba4f6dbc0d2c40ee799b3b46be061c7e..9fc23e4b8befa07d6a6a60c3819f1076d4009a51 100644
(file)
--- a/
utils.lisp
+++ b/
utils.lisp
@@
-10,7
+10,7
@@
;;;; $Id$
;;;;
;;;; This file, part of UMLisp, is
;;;; $Id$
;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-200
4
by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-200
6
by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
@@
-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)