(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)