(defun parse-ui (s &optional (nullvalue 0))
"Return integer value for a UMLS unique identifier."
(declare (simple-string s)
- (optimize (speed 3) (safety 0)))
+ (optimize (speed 3) (safety 0)))
(if (< (length s) 2)
nullvalue
- (nth-value 0 (parse-integer s :start 1))))
+ (nth-value 0 (parse-integer s :start 1))))
(defun parse-cui (cui)
(declare (optimize (speed 3) (safety 0)))
#-(or 64bit x86-64)
(defun make-cuisui (cui sui)
- (declare (fixnum cui sui)
- (optimize (speed 3) (safety 0) (space 0)))
- (+ (* +cuisui-scale+ cui) sui))
+ (when (and cui sui)
+ (locally (declare (fixnum cui sui)
+ (optimize (speed 3) (safety 0) (space 0)))
+ (+ (* +cuisui-scale+ cui) sui))))
#+(or 64bit x86-64)
(defun make-cuilui (cui lui)