From ddc4af5d96963df7c4df2706d752a1e1851ac86e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 8 Jan 2007 12:35:01 +0000 Subject: [PATCH] r11479: declare type --- parse-macros.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/parse-macros.lisp b/parse-macros.lisp index 2a7469b..1b00ae5 100644 --- 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" -- 2.34.1