X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Floop-extension.lisp;h=b18447a5a8e450a2ad1bbe244b4a8cd8ace9b9d7;hp=802533092c71b36a0c5ac8fa1655219ce622c674;hb=ab37892bfa71e0d66021cc73f28cd189be30c81c;hpb=9db6946c8331a477b309608ec6232cbfabb97d24

diff --git a/sql/loop-extension.lisp b/sql/loop-extension.lisp
index 8025330..b18447a 100644
--- a/sql/loop-extension.lisp
+++ b/sql/loop-extension.lisp
@@ -141,7 +141,7 @@
 (defun clsql-loop-method (method-name iter-var iter-var-data-type
 			  prep-phrases inclusive? allowed-preps
 			  method-specific-data)
-  (declare (ignore method-name inclusive? allowed-preps method-specific-data))
+  (declare (ignore method-name iter-var-data-type inclusive? allowed-preps method-specific-data))
   (let ((in-phrase nil)
 	(from-phrase nil))
     (loop for (prep . rest) in prep-phrases