From 8eb4dd94b9e22bd6ff23a17429894b5b3b8e3f4a Mon Sep 17 00:00:00 2001 From: Gerd Heber Date: Sat, 4 Jul 2015 17:32:20 -0500 Subject: [PATCH] The type INTR-MRPH appears to be unused. --- src/classes.lisp | 2 +- test/chcm-elementary-op-test.lisp | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/src/classes.lisp b/src/classes.lisp index e26b709..3477512 100644 --- a/src/classes.lisp +++ b/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 diff --git a/test/chcm-elementary-op-test.lisp b/test/chcm-elementary-op-test.lisp index 89914d8..a3fef10 100644 --- a/test/chcm-elementary-op-test.lisp +++ b/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))