`(let ((,eof (gensym "EOFSYM-"))
(,files (source-files ,path)))
(unless ,files
- (error "Can't find file files for ~A~%" ,path))
+ (error "Can't find files for ~A~%" (namestring ,path)))
(with-open-file (,ustream (first ,files) :direction :input
#+(and clisp unicode) :external-format
#+(and clisp unicode) charset:utf-8)
(do ((,line (read-umls-line ,ustream ,eof)
(read-umls-line ,ustream ,eof)))
((eq ,line ,eof) t)
- ,@body)))))
+ (locally (declare (type list ,line))
+ ,@body))))))
(defmacro with-umls-ufile ((line ufile) &body body)
"Opens a UMLS and processes each parsed line with (body) argument"