projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
965bf11
)
r11482: reduce warnings
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 13:21:44 +0000
(13:21 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 13:21:44 +0000
(13:21 +0000)
parse-rrf.lisp
patch
|
blob
|
history
diff --git
a/parse-rrf.lisp
b/parse-rrf.lisp
index 90a11fcc5a63e3e34843b68bd7ce6fd79f532993..9a1c4fe78a3df32d67ed917e05578b7a825cfb5a 100644
(file)
--- 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) (s
ize 0) (s
afety 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))