(defun parse-ui (s &optional (nullvalue 0))
"Return integer value for a UMLS unique identifier."
(declare (simple-string s)
(defun parse-ui (s &optional (nullvalue 0))
"Return integer value for a UMLS unique identifier."
(declare (simple-string s)
- (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))))