X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-rrf.lisp;fp=parse-rrf.lisp;h=9a1c4fe78a3df32d67ed917e05578b7a825cfb5a;hb=fee295eedafd4f070b8290d2861d6b2cae06fccb;hp=90a11fcc5a63e3e34843b68bd7ce6fd79f532993;hpb=965bf11233f305fcb6635c319756a96c4c4202af;p=umlisp.git

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 90a11fc..9a1c4fe 100644
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -194,8 +194,9 @@ used in the United States. We create a new scale (SRLUS) where SRL to SRLUS mapp
   (let ((pos (gensym "POS-"))
         (found (gensym "FOUND-"))
         (key (kmrcl:ensure-keyword (concatenate 'string filename "^" fieldname))))
-    `(locally (declare (optimize (speed 3) (size 0) (safety 0)))
+    `(locally (declare (optimize (speed 3) (safety 0)))
       (multiple-value-bind (,pos ,found) (gethash ,key *vff-position-hash*)
+        (declare (ignore ,found))
         (if ,pos
             (locally (declare (type (integer 0 100000) ,pos))
               (nth ,pos ,record))