The type INTR-MRPH appears to be unused.
This commit is contained in:
parent
cddfc7ba99
commit
8eb4dd94b9
@ -83,7 +83,7 @@
|
|||||||
;; (function (degr) (list gnrt))
|
;; (function (degr) (list gnrt))
|
||||||
|
|
||||||
;; INTR-MRPH = INTeRnal-MoRPHism
|
;; INTR-MRPH = INTeRnal-MoRPHism
|
||||||
(DEFTYPE INTR-MRPH () 'function)
|
;; (DEFTYPE INTR-MRPH () 'function)
|
||||||
;; (or (function (degr gnrt) cmbn) ;; if :gnrt strategy
|
;; (or (function (degr gnrt) cmbn) ;; if :gnrt strategy
|
||||||
;; (function (cmbn) (cmbn)) ;; if :cmbn strategy
|
;; (function (cmbn) (cmbn)) ;; if :cmbn strategy
|
||||||
|
|
||||||
|
|||||||
@ -109,7 +109,6 @@
|
|||||||
;; (f3 (cat:z-whitehead s3 2ch3))
|
;; (f3 (cat:z-whitehead s3 2ch3))
|
||||||
;; (x (cat:fibration-total f3))
|
;; (x (cat:fibration-total f3))
|
||||||
(k (cat:k-z 3)))
|
(k (cat:k-z 3)))
|
||||||
(declare (ignore k 2ch3))
|
|
||||||
;; (cat:homology x 0 10)
|
;; (cat:homology x 0 10)
|
||||||
;; (setf ch3 (cat:chml-clss k 3))
|
;; (setf ch3 (cat:chml-clss k 3))
|
||||||
;; (setf 2ch3 (cat:n-mrph 2 ch3))
|
;; (setf 2ch3 (cat:n-mrph 2 ch3))
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user