The type INTR-MRPH appears to be unused.

src/classes.lisp

@@ -83,7 +83,7 @@
 ;; (function (degr) (list gnrt))
 
 ;; INTR-MRPH = INTeRnal-MoRPHism
-(DEFTYPE INTR-MRPH () 'function)
+;; (DEFTYPE INTR-MRPH () 'function)
 ;; (or (function (degr gnrt) cmbn)  ;; if :gnrt strategy
 ;;     (function (cmbn) (cmbn))     ;; if :cmbn strategy
 

test/chcm-elementary-op-test.lisp

@@ -109,7 +109,6 @@
 ;;	       (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))