diff --git a/test/chcm-elementary-op-test.lisp b/test/chcm-elementary-op-test.lisp
index a3fef10..89914d8 100644
--- a/test/chcm-elementary-op-test.lisp
+++ b/test/chcm-elementary-op-test.lisp
@@ -109,6 +109,7 @@
 ;;	       (f3 (cat:z-whitehead s3 2ch3))
 ;;	       (x (cat:fibration-total f3))
 	       (k (cat:k-z 3)))
+	  (declare (ignore k 2ch3))
 ;;	  (cat:homology x 0 10)
 ;;	  (setf ch3 (cat:chml-clss k 3))
 ;;	  (setf 2ch3 (cat:n-mrph 2 ch3))
diff --git a/test/circle.lisp b/test/circle.lisp
index fc2a3da..cf6d6e7 100644
--- a/test/circle.lisp
+++ b/test/circle.lisp
@@ -6,7 +6,9 @@
 (defun circle ()
   (the cat:chain-complex
        (cat:build-chcm
-	:cmpr #'(lambda (gnrt1 gnrt2) (the cat:cmpr :equal))
+	:cmpr #'(lambda (gnrt1 gnrt2)
+		  (declare (ignore gnrt1 gnrt2))
+		  (the cat:cmpr :equal))
 	:basis #'(lambda (dmns)
 		   (the list
 			(case dmns (0 '(*)) (1 '(s1))