(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))))
(dolist (uterm (s#term ucon))
(dolist (ustr (s#str uterm))
(when (string-equal sui (sui ustr))
(dolist (uterm (s#term ucon))
(dolist (ustr (s#str uterm))
(when (string-equal sui (sui ustr))