mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Problem solved when computing twice the same spectral sequence

Browse Source
This commit is contained in:
Ana Romero 2019-09-11 19:04:51 +02:00
parent 29e5768f85
commit 658803c996
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/anromero/filtered-complexes.lisp
View File

@ -95,13 +95,12 @@
(the FILTERED-CHAIN-COMPLEX (the FILTERED-CHAIN-COMPLEX
(progn (progn
(change-class chcm 'FILTERED-CHAIN-COMPLEX) (change-class chcm 'FILTERED-CHAIN-COMPLEX)
(let* ((orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) (let* ((orgn (orgn chcm))
(already (find orgn *flcc-list* :key #'orgn :test #'equal))) (already (find orgn *flcc-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-CHAIN-COMPLEX) already)) (declare (type (or null FILTERED-CHAIN-COMPLEX) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flcc-list*)) (push chcm *flcc-list*))
chcm))) chcm)))
@ -352,13 +351,12 @@
(the FILTERED-COALGEBRA (the FILTERED-COALGEBRA
(progn (progn
(change-class chcm 'FILTERED-COALGEBRA) (change-class chcm 'FILTERED-COALGEBRA)
(let* ((orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) (let* ((orgn (orgn chcm))
(already (find orgn *flclgb-list* :key #'orgn :test #'equal))) (already (find orgn *flclgb-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-COALGEBRA) already)) (declare (type (or null FILTERED-COALGEBRA) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flCLGB-list*) (push chcm *flCLGB-list*)
chcm)))) chcm))))
@ -424,13 +422,12 @@
(change-class chcm 'FILTERED-ALGEBRA) (change-class chcm 'FILTERED-ALGEBRA)
;;(setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) ;;(setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn)))
(let* ( (let* (
(orgn (append (orgn chcm) (list 'FILTERED-WITH) flin-orgn)) (orgn (orgn chcm))
(already (find orgn *flalgb-list* :key #'orgn :test #'equal))) (already (find orgn *flalgb-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-ALGEBRA) already)) (declare (type (or null FILTERED-ALGEBRA) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flaLGB-list*) (push chcm *flaLGB-list*)
chcm)))) chcm))))
@ -469,13 +466,12 @@
(change-class chcm 'FILTERED-hopf-ALGEBRA) (change-class chcm 'FILTERED-hopf-ALGEBRA)
;;(setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) ;;(setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn)))
(let* ( (let* (
(orgn (append (orgn chcm) (list 'FILTERED-WITH) flin-orgn)) (orgn (orgn chcm))
(already (find orgn *flhopf-list* :key #'orgn :test #'equal))) (already (find orgn *flhopf-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-HOPF-ALGEBRA) already)) (declare (type (or null FILTERED-HOPF-ALGEBRA) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flhopf-list*) (push chcm *flhopf-list*)
chcm)))) chcm))))
@ -545,13 +541,12 @@
(change-class chcm 'FILTERED-SIMPLICIAL-SET) (change-class chcm 'FILTERED-SIMPLICIAL-SET)
;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) ;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn)))
(let* ( (let* (
(orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) (orgn (orgn chcm))
(already (find orgn *flsmst-list* :key #'orgn :test #'equal))) (already (find orgn *flsmst-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-SIMPLICIAL-SET) already)) (declare (type (or null FILTERED-SIMPLICIAL-SET) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flsmst-list*) (push chcm *flsmst-list*)
chcm)))) chcm))))
@ -590,13 +585,12 @@
(change-class chcm 'FILTERED-KAN) (change-class chcm 'FILTERED-KAN)
;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) ;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn)))
(let* ( (let* (
(orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) (orgn (orgn chcm))
(already (find orgn *flkan-list* :key #'orgn :test #'equal))) (already (find orgn *flkan-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-KAN) already)) (declare (type (or null FILTERED-KAN) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flkan-list*) (push chcm *flkan-list*)
chcm)))) chcm))))
@ -685,13 +679,12 @@
(change-class chcm 'FILTERED-SIMPLICIAL-GROUP) (change-class chcm 'FILTERED-SIMPLICIAL-GROUP)
;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) flin-orgn)) ;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) flin-orgn))
(let* ( (let* (
(orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) (orgn (orgn chcm))
(already (find orgn *flsmgr-list* :key #'orgn :test #'equal))) (already (find orgn *flsmgr-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-SIMPLICIAL-GROUP) already)) (declare (type (or null FILTERED-SIMPLICIAL-GROUP) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flsmgr-list*) (push chcm *flsmgr-list*)
chcm)))) chcm))))
@ -706,13 +699,12 @@
(change-class chcm 'AB-FILTERED-SIMPLICIAL-GROUP) (change-class chcm 'AB-FILTERED-SIMPLICIAL-GROUP)
;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) flin-orgn)) ;; (setf orgn (append (orgn chcm) (list 'FILTERED-WITH) flin-orgn))
(let* ( (let* (
(orgn (append (orgn chcm) (list 'FILTERED-WITH) (list flin-orgn))) (orgn (orgn chcm))
(already (find orgn *flabsmgr-list* :key #'orgn :test #'equal))) (already (find orgn *flabsmgr-list* :key #'orgn :test #'equal)))
(declare (type (or null FILTERED-AB-SIMPLICIAL-GROUP) already)) (declare (type (or null FILTERED-AB-SIMPLICIAL-GROUP) already))
(when already (when already
(return-from change-chcm-to-flcc already)) (return-from change-chcm-to-flcc already))
(setf (slot-value chcm 'flin) flin) (setf (slot-value chcm 'flin) flin)
(setf (slot-value chcm 'orgn) orgn)
(push chcm *flabsmgr-list*) (push chcm *flabsmgr-list*)
chcm)))) chcm))))