Computation of spectral sequences added.

kenzo.asd

@@ -57,16 +57,15 @@
              (:file "cl-space-efhm")
              (:file "whitehead")
              (:file "smith")
+             (:file "sage-interface")             
              (:module "anromero"
              :components
 	     ((:file "resolutions")
 	     (:file "cylinders")
              (:file "fundamental-classes")
              (:file "homotopy")	     
-		(:file "bicomplexes")))
-		#|
-             ((:file "bicomplexes")
+             (:file "bicomplexes")
              (:file "filtered-complexes")
-             (:file "spectral-sequences")))
-             |#
-            ))))
+             (:file "spectral-sequences")
+	     (:file "persistent-homology")             
+            ))))))

src/anromero/bicomplexes.lisp

@@ -250,7 +250,7 @@
         chcm)))
 
 #|
-(setf bc (Build-Bicm :bcbasis #'bas :dffr1 #'dif1 :dffr2 #'dif2 :cmpr 's-cmpr 
+(setf bc (Build-Bicm :bcbasis #'bas :dffr1 #'dif1 :dffr2 #'dif2 :cmpr #'s-cmpr 
           :orgn '(BC-test)))
 (dotimes (i 5)
    (print (basis bc i)))

src/anromero/resolutions.lisp

@@ -650,6 +650,8 @@
 
 
 
+
+
 (DEFUN ZGCMBN-TWI (zgcmpr zgcmbn)
   ;;(declare (type zgcmbn zgcmbn))
   (with-cmbn (degr list) zgcmbn

src/cat-init.lisp

@@ -53,7 +53,16 @@
     "cs-twisted-products"
     "cl-space-efhm"
     "whitehead"
-    "smith"))
+    "smith"
+    "anromero\\resolutions"
+    "anromero\\cylinders"
+    "anromero\\fundamental-classes"
+    "anromero\\homotopy"
+    "anromero\\bicomplexes"
+    "anromero\\filtered-complexes"
+    "anromero\\spectral-sequences"
+    "anromero\\persistent-homology"
+    ))
 
 (DO ((i 1 (1+ i))
      (mark +file-list+ (cdr mark)))
@@ -61,8 +70,8 @@
   (format t "~% FILE ~2D: ~A" i (car mark)))
 
 (DEFCONSTANT +SOURCE-EXTENSION+
-  #+(or allegro lispworks) "cl"
-  #+(or clisp ccl ecl sbcl) "lisp"
+  #+(or lispworks) "cl"
+  #+(or allegro clisp ccl ecl sbcl) "lisp"
   #-(or allegro ccl clisp ecl lispworks sbcl)
   (error "Not an Allegro or CCL or CLisp or LispWorks or SBCL environment."))