Added Emacs mode line and introduced consistent formatting.

kenzo-test.asd

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (defsystem :kenzo-test
     :description "A simple regression test suite for Kenzo"

kenzo.asd

@@ -1,4 +1,4 @@
-;;;; kenzo.asd
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :cl-user)
 
@@ -64,4 +64,3 @@
              (:file "spectral-sequences")))
              |#
              ))))
-

package.lisp

@@ -1,6 +1,4 @@
-;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
-;;;;
-;;;; package.lisp
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (defpackage #:cat
   (:use #:cl)

run-kenzo-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (DECLAIM (OPTIMIZE (speed 3) (space 0) (debug 3)))
 

src/Demo.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;; DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO
 ;;; DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO
 ;;; DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO DEMO
@@ -11,10 +13,10 @@
   (terpri)
   (dotimes (i 50) (princ "-"))
   (princ "<Comment>")
-;  (dotimes (i 31) (princ "-"))
-;  (terpri)
+                                        ;  (dotimes (i 31) (princ "-"))
+                                        ;  (terpri)
   (princ string)
-;  (terpri)
+                                        ;  (terpri)
   (dotimes (i 50) (princ "-"))
   (values))
 
@@ -26,8 +28,8 @@
      (terpri)
      (dotimes (i 50) (princ "-"))
      (princ "<Lisp Statement>")
-;     (dotimes (i 29) (princ "-"))
-;     (terpri)
+                                        ;     (dotimes (i 29) (princ "-"))
+                                        ;     (terpri)
      (pprint ',statement)
      (terpri) ; (terpri)
      (dotimes (i 50) (princ "-"))
@@ -66,7 +68,7 @@
   (terpri)
   (dotimes (i 50) (princ "-"))
   (princ "<Result>")
-;  (dotimes (i 32) (princ "-"))
+                                        ;  (dotimes (i 32) (princ "-"))
   (terpri) ; (terpri)
   (prin1 (eval *statement*))
   (terpri) ; (terpri)

src/abbreviations.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (IN-PACKAGE #:cat)
 

src/algebras.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS
 ;;;  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS
 ;;;  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS  ALGEBRAS
@@ -87,4 +89,3 @@
   (declare (fixnum idnm))
   (the (or hopf-algebra null)
        (find idnm *hopf-list* :key #'idnm)))
-

src/bar.lisp

@@ -1,5 +1,5 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
-;;;
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  BAR  BAR  BAR  BAR  BAR  BAR  BAR  BAR  BAR
 ;;;  BAR  BAR  BAR  BAR  BAR  BAR  BAR  BAR  BAR
 ;;;  BAR  BAR  BAR  BAR  BAR  BAR  BAR  BAR  BAR

src/bicones.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES
 ;;;  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES
 ;;;  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES  BICONES

src/cartesian-products.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS
 ;;;  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS
 ;;;  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS  CARTESIAN-PRODUCTS

src/cat-init.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES
 ;;;  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES
 ;;;  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES  FILES
@@ -51,8 +53,7 @@
     "cs-twisted-products"
     "cl-space-efhm"
     "whitehead"
-      "smith"
-      ))
+    "smith"))
 
 (DO ((i 1 (1+ i))
      (mark +file-list+ (cdr mark)))

src/chain-complexes.lisp

@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 ;;;  CHAIN-COMPLEXES  CHAIN-COMPLEXES  CHAIN-COMPLEXES  CHAIN-COMPLEXES
 ;;;  CHAIN-COMPLEXES  CHAIN-COMPLEXES  CHAIN-COMPLEXES  CHAIN-COMPLEXES

src/chcm-elementary-op.lisp

@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 ;;; CHCM-ELEMENTARY-OP CHCM-ELEMENTARY-OP CHCM-ELEMENTARY-OP CHCM-ELEMENTARY-OP
 ;;; CHCM-ELEMENTARY-OP CHCM-ELEMENTARY-OP CHCM-ELEMENTARY-OP CHCM-ELEMENTARY-OP

src/cl-space-efhm.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  CL-SPACE-EFHM  CL-SPACE-EFHM  CL-SPACE-EFHM  CL-SPACE-EFHM
 ;;;  CL-SPACE-EFHM  CL-SPACE-EFHM  CL-SPACE-EFHM  CL-SPACE-EFHM
 ;;;  CL-SPACE-EFHM  CL-SPACE-EFHM  CL-SPACE-EFHM  CL-SPACE-EFHM

src/classes.lisp

@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 ;;;  CLASSES  CLASSES  CLASSES  CLASSES  CLASSES  CLASSES  CLASSES
 ;;;  CLASSES  CLASSES  CLASSES  CLASSES  CLASSES  CLASSES  CLASSES

src/classifying-spaces.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  CLASSIFYING-SPACES  CLASSIFYING-SPACES  CLASSIFYING-SPACES
 ;;;  CLASSIFYING-SPACES  CLASSIFYING-SPACES  CLASSIFYING-SPACES
 ;;;  CLASSIFYING-SPACES  CLASSIFYING-SPACES  CLASSIFYING-SPACES

src/coalgebras.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS
 ;;;  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS
 ;;;  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS  COALGEBRAS
@@ -69,4 +71,3 @@
                                         :orgn orgn))
          (push chcm *clgb-list*)
          chcm)))
-

src/cobar.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR
 ;;;  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR
 ;;;  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR  COBAR

src/combinations.lisp

@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 ;;;  COMBINATIONS  COMBINATIONS  COMBINATIONS  COMBINATIONS  COMBINATIONS
 ;;;  COMBINATIONS  COMBINATIONS  COMBINATIONS  COMBINATIONS  COMBINATIONS

src/cones.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES
 ;;;  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES
 ;;;  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES  CONES

src/cs-twisted-products.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  CS-TWISTED-PRODUCTS  CS-TWISTED-PRODUCTS  CS-TWISTED-PRODUCTS
 ;;;  CS-TWISTED-PRODUCTS  CS-TWISTED-PRODUCTS  CS-TWISTED-PRODUCTS
 ;;;  CS-TWISTED-PRODUCTS  CS-TWISTED-PRODUCTS  CS-TWISTED-PRODUCTS

src/delta.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA
 ;;;  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA
 ;;;  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA  DELTA

src/disk-pasting.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  DISK-PASTING  DISK-PASTING  DISK-PASTING  DISK-PASTING
 ;;;  DISK-PASTING  DISK-PASTING  DISK-PASTING  DISK-PASTING
 ;;;  DISK-PASTING  DISK-PASTING  DISK-PASTING  DISK-PASTING

src/effective-homology.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  EFFECTIVE-HOMOLOGY  EFFECTIVE-HOMOLOGY  EFFECTIVE-HOMOLOGY
 ;;;  EFFECTIVE-HOMOLOGY  EFFECTIVE-HOMOLOGY  EFFECTIVE-HOMOLOGY
 ;;;  EFFECTIVE-HOMOLOGY  EFFECTIVE-HOMOLOGY  EFFECTIVE-HOMOLOGY

src/eilenberg-zilber.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  EILENBERG-ZILBER  EILENBERG-ZILBER  EILENBERG-ZILBER
 ;;;  EILENBERG-ZILBER  EILENBERG-ZILBER  EILENBERG-ZILBER
 ;;;  EILENBERG-ZILBER  EILENBERG-ZILBER  EILENBERG-ZILBER
@@ -158,7 +160,7 @@
   (declare
    (type (simple-array cmbn (* *)) array-pq)
    (type cmprf cmpr))
-;   (format t "  -22-  ")		;
+;   (format t "  -22-  ")		;       ;
   (the cmbn
        (let* ((n+1 (1- (array-dimension array-pq 0)))
               (n (1- n+1)))

src/fibrations.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  FIBRATIONS  FIBRATIONS  FIBRATIONS  FIBRATIONS  FIBRATIONS
 ;;;  FIBRATIONS  FIBRATIONS  FIBRATIONS  FIBRATIONS  FIBRATIONS
 ;;;  FIBRATIONS  FIBRATIONS  FIBRATIONS  FIBRATIONS  FIBRATIONS

src/homology-groups.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS
 ;;  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS
 ;;  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS  HOMOLOGY-GROUPS

src/k-pi-n.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1
 ;;;  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1
 ;;;  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1  K-PI-1

src/kan.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN
 ;;;  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN
 ;;;  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN  KAN

src/kenzo.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;; kenzo.lisp
 
 (IN-PACKAGE #:cat)

src/loop-spaces.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES
 ;;;  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES
 ;;;  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES  LOOP-SPACES

src/lp-space-efhm.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  LP-SPACE-EFHM  LP-SPACE-EFHM  LP-SPACE-EFHM  LP-SPACE-EFHM
 ;;;  LP-SPACE-EFHM  LP-SPACE-EFHM  LP-SPACE-EFHM  LP-SPACE-EFHM
 ;;;  LP-SPACE-EFHM  LP-SPACE-EFHM  LP-SPACE-EFHM  LP-SPACE-EFHM

src/ls-twisted-products.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  LS-TWISTED-PRODUCTS  LS-TWISTED-PRODUCTS  LS-TWISTED-PRODUCTS
 ;;;  LS-TWISTED-PRODUCTS  LS-TWISTED-PRODUCTS  LS-TWISTED-PRODUCTS
 ;;;  LS-TWISTED-PRODUCTS  LS-TWISTED-PRODUCTS  LS-TWISTED-PRODUCTS

src/macros.lisp

@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 ;;;  MACROS  MACROS  MACROS  MACROS  MACROS  MACROS  MACROS
 ;;;  MACROS  MACROS  MACROS  MACROS  MACROS  MACROS  MACROS

src/searching-homology.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SEARCHING-HOMOLOGY  SEARCHING-HOMOLOGY  SEARCHING-HOMOLOGY
 ;;;  SEARCHING-HOMOLOGY  SEARCHING-HOMOLOGY  SEARCHING-HOMOLOGY
 ;;;  SEARCHING-HOMOLOGY  SEARCHING-HOMOLOGY  SEARCHING-HOMOLOGY

src/serre.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE
 ;;;  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE
 ;;;  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE  SERRE

src/simplicial-groups.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SIMPLICIAL-GROUPS  SIMPLICIAL-GROUPS  SIMPLICIAL-GROUPS
 ;;;  SIMPLICIAL-GROUPS  SIMPLICIAL-GROUPS  SIMPLICIAL-GROUPS
 ;;;  SIMPLICIAL-GROUPS  SIMPLICIAL-GROUPS  SIMPLICIAL-GROUPS

src/simplicial-mrphs.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SIMPLICIAL-MRPHS  SIMPLICIAL-MRPHS  SIMPLICIAL-MRPHS
 ;;;  SIMPLICIAL-MRPHS  SIMPLICIAL-MRPHS  SIMPLICIAL-MRPHS
 ;;;  SIMPLICIAL-MRPHS  SIMPLICIAL-MRPHS  SIMPLICIAL-MRPHS

src/simplicial-sets.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SIMPLICIAL-SETS  SIMPLICIAL-SETS  SIMPLICIAL-SETS
 ;;;  SIMPLICIAL-SETS  SIMPLICIAL-SETS  SIMPLICIAL-SETS
 ;;;  SIMPLICIAL-SETS  SIMPLICIAL-SETS  SIMPLICIAL-SETS

src/smith.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH
 ;;;  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH
 ;;;  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH  SMITH

src/special-smsts.lisp

@@ -1,4 +1,5 @@
 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS
 ;;;  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS
 ;;;  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS  SPECIAL-SMSTS

src/suspensions.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  SUSPENSIONS  SUSPENSIONS  SUSPENSIONS  SUSPENSIONS
 ;;;  SUSPENSIONS  SUSPENSIONS  SUSPENSIONS  SUSPENSIONS
 ;;;  SUSPENSIONS  SUSPENSIONS  SUSPENSIONS  SUSPENSIONS

src/tensor-products.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS
 ;;;  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS
 ;;;  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS  TENSOR-PRODUCTS

src/various.lisp

@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 ;;;  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS
 ;;;  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS

src/whitehead.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD
 ;;;  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD
 ;;;  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD  WHITEHEAD

test/Test.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST
 ;;;  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST
 ;;;  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST
@@ -33,7 +35,7 @@
         (setf f5 (z-whitehead x5 ch5))
         (setf x6 (fibration-total f5))
 
-))
+        ))
 
 (time (homology o2s3 7))
 (time (homology x6 6))

test/bar-test.lisp

@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/bicones-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/cartesian-products-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/ccn.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/chain-complexes-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/chcm-elementary-op-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 
@@ -73,18 +74,18 @@
           (is (eq mrph3 mrph33)))))
 
 #|
-  (setf s3 (sphere 3))
-  (setf ch3 (chml-clss s3 3))
-  (setf 2ch3 (n-mrph 2 ch3))
-  (setf f3 (z-whitehead s3 2ch3))
-  (setf x (fibration-total f3))
-  (homology x 0 10)
-  (setf k (k-z 3))
-  (setf ch3 (chml-clss k 3))
-  (setf 2ch3 (n-mrph 2 ch3))
-  (setf f3 (z-whitehead k 2ch3))
-  (setf x (fibration-total f3))
-  (homology x 0 10)
+(setf s3 (sphere 3))
+(setf ch3 (chml-clss s3 3))
+(setf 2ch3 (n-mrph 2 ch3))
+(setf f3 (z-whitehead s3 2ch3))
+(setf x (fibration-total f3))
+(homology x 0 10)
+(setf k (k-z 3))
+(setf ch3 (chml-clss k 3))
+(setf 2ch3 (n-mrph 2 ch3))
+(setf f3 (z-whitehead k 2ch3))
+(setf x (fibration-total f3))
+(homology x 0 10)
 |#
 
 (test n-mrph
@@ -93,15 +94,15 @@
         (let* ((s3 (cat:sphere 3))
                (ch3 (cat:chml-clss s3 3))
                (2ch3 (cat:n-mrph 2 ch3))
-;;	       (f3 (cat:z-whitehead s3 2ch3))
-;;	       (x (cat:fibration-total f3))
+               ;;          (f3 (cat:z-whitehead s3 2ch3))
+               ;;          (x (cat:fibration-total f3))
                (k (cat:k-z 3)))
-;;	  (cat:homology x 0 10)
-;;	  (setf ch3 (cat:chml-clss k 3))
-;;	  (setf 2ch3 (cat:n-mrph 2 ch3))
-;;	  (setf f3 (cat:z-whitehead k 2ch3))
-;;	  (setf x (cat:fibration-total f3))
-;;	  (cat:homology x 0 10)
+          ;;      (cat:homology x 0 10)
+          ;;      (setf ch3 (cat:chml-clss k 3))
+          ;;      (setf 2ch3 (cat:n-mrph 2 ch3))
+          ;;      (setf f3 (cat:z-whitehead k 2ch3))
+          ;;      (setf x (cat:fibration-total f3))
+          ;;      (cat:homology x 0 10)
           )))
 
 

test/circle.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/cl-space-efhm-test.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 (in-package :kenzo-test)
 
 (in-suite :kenzo)

test/classifying-spaces-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/cobar-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/combinations-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/common.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/cones-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/cs-twisted-products-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/delta-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/diabolo.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/disk-pasting-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/effective-homology-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/eilenberg-zilber-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/fibrations-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/homology-groups-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/k-pi-n-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/loop-spaces-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/lp-space-efhm-test.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 (in-package :kenzo-test)
 
 (in-suite :kenzo)

test/ls-twisted-products-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/macros-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 
@@ -119,5 +120,3 @@
        (macroexpand-1 '(cat:with-crpr (absm1 absm2) crpr
                         (statement-1)
                         (statement-2)))))
-
-

test/package.lisp

@@ -1,3 +1,5 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
+
 ;;;; package.lisp
 
 (defpackage :kenzo-test
@@ -6,4 +8,3 @@
 (in-package :kenzo-test)
 
 (def-suite :kenzo)
-

test/searching-homology-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/serre-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/simplicial-groups-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/simplicial-mrphs-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/simplicial-sets-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/smith-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/special-smsts-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/suspensions-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/tensor-products-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/various-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)
 

test/whitehead-test.lisp

@@ -1,3 +1,4 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 
 (in-package :kenzo-test)