Added ignore declarations.

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))

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))