projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
88be55a
)
r11479: declare type
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 12:35:01 +0000
(12:35 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 12:35:01 +0000
(12:35 +0000)
parse-macros.lisp
patch
|
blob
|
history
diff --git
a/parse-macros.lisp
b/parse-macros.lisp
index 2a7469b75b58ed22b3dc9f3a8b5a3275bd2c358d..1b00ae50fbd5639e17f31096e5b25ae14a7858f1 100644
(file)
--- a/
parse-macros.lisp
+++ b/
parse-macros.lisp
@@
-72,7
+72,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"