+(defun parse-aui (aui)
+ (declare (optimize (speed 3) (safety 0)))
+ (if (stringp aui)
+ (let ((ch (schar aui 0)))
+ (if (char-equal ch #\A)
+ (parse-ui 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))
+