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

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