;;; ;;; [[ Loading the initialization file. ;;; [[ Do not forget the extension ".cl" not guessed by LispWorks. ;;; CL-USER 1 > (load "cat-init.cl") ; Loading text file C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\cat-init.cl FILE 1: macros FILE 2: various FILE 3: classes FILE 4: combinations FILE 5: chain-complexes FILE 6: chcm-elementary-op FILE 7: effective-homology FILE 8: homology-groups FILE 9: searching-homology FILE 10: cones FILE 11: tensor-products FILE 12: coalgebras FILE 13: cobar FILE 14: algebras FILE 15: bar FILE 16: simplicial-sets FILE 17: simplicial-mrphs FILE 18: delta FILE 19: special-smsts FILE 20: suspensions FILE 21: disk-pasting FILE 22: cartesian-products FILE 23: eilenberg-zilber FILE 24: kan FILE 25: simplicial-groups FILE 26: fibrations FILE 27: loop-spaces FILE 28: ls-twisted-products FILE 29: lp-space-efhm FILE 30: classifying-spaces FILE 31: k-pi-n FILE 32: serre FILE 33: cs-twisted-products FILE 34: cl-space-efhm FILE 35: whitehead FILE 36: smith #P"C:/Docume~1/Francis/AA/Kenzo/Kenzo-1.1-LispWorks/cat-init.cl" ;;; ;;; [[ Compiling the Kenzo files. ;;; [[ Compiling will be stopped by LispWorks because ;;; [[ a claimed error; which is not one! ;;; [[ see below how to bypass. ;;; [[ Find "***" with your editor. ;;; CL-USER 2 > (compile-files) *CMBN-CONTROL* = T ;;; Compiling file macros.cl ... ;;; Safety = 1, Speed = 3, Space = 0, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 0, Fixnum safety = 3 ;;; Source level debugging is off ;;; Source file recording is on ;;; Cross referencing is on ; (TOP-LEVEL-FORM 1) ; (TOP-LEVEL-FORM 2) ; (TOP-LEVEL-FORM 3) ; -1-EXPT-N ; -1-EXPT-N+1 ; -1-EXPT-N-1 ; 2-EXP ; MASK ; BINOMIAL-P-Q ; LEXICO ; TERM ; -TERM ; CFFC ; -CFFC ; GNRT ; -GNRT ; WITH-TERM ; WITH--TERM ; WITH-CMBN ; TERM-CMBN ; CMBN-NON-ZERO-P ; CMBN-ZERO-P ; CONTROL ; CONTROLN ; (DEFVAR *WRONG-CMBN*) ; CMPR ; CMPR3 ; BASIS ; BASIS3 ; DFFR ; ? ; MAKE-RSLT ; RSLT-GNRT ; RSLT-VALUE ; RSLT-CLNM ; RSLT-RNTM ; I-CMPS ; I-ADD ; I-SBTR ; BCC ; TCC ; F ; G ; H ; LBCC ; RBCC ; LF ; LG ; LH ; RF ; RG ; RH ; BASELIG ; BASECOL ; BCNB ; BCNC ; BCND ; WITH-BICN ; TNPR ; WITH-TNPR ; CPRD ; CBGN ; CDEGR ; CGNRT ; -CDEGR ; -CGNRT ; WITH-CBGN ; WITH--CBGN ; WITH-ALLP ; GNRT-ALLP-TNPR ; APRD ; BRGN ; BDEGR ; BGNRT ; -BDEGR ; -BGNRT ; WITH-BRGN ; WITH--BRGN ; WITH-ABAR ; WITH-GBAR ; ABSM ; WITH-ABSM ; DEGENERATE-P ; NON-DEGENERATE-P ; BSPN ; BNDR ; DGNL ; FACE ; D ; MAKE-GMSM-FACES-INFO ; INFO-GMSM ; INFO-FACES ; INFO-FACE-I ; INFO-BNDR ; CRPR ; CRPR2 ; CRPR4 ; ABSM1 ; ABSM2 ; WITH-CRPR ; WITH-CRPR-2 ; WITH-CRPR-4 ; EILENBERG-ZILBER ; KFLL ; KFLL4 ; GRML ; GRIN ; BUILD-AB-SMGR ; POWR ; PGMSM ; EXPN ; WITH-POWR ; WITH-APOWR ; APOWR ; APDGOP ; APGMSM ; APEXPN ; LINE-NUMBER ; COLUMN-NUMBER ; LINE-OP-5 ; COLUMN-OP-5 ; LINE-SWAP-5 ; COLUMN-SWAP-5 ; LINE-MINUS-5 ; COLUMN-MINUS-5 ; GNRT-NAME ; (TOP-LEVEL-FORM 4) ; Loading fasl file C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\macros.ofasl ;;; Compiling file various.cl ... ;;; Safety = 1, Speed = 3, Space = 0, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 0, Fixnum safety = 3 ;;; Source level debugging is off ;;; Source file recording is on ;;; Cross referencing is on ; (TOP-LEVEL-FORM 1) ; (TOP-LEVEL-FORM 2) ; (TOP-LEVEL-FORM 3) ; (DEFCONSTANT +EMPTY-LIST+) ; (DEFCONSTANT +F-EMPTY-VECTOR+) ; (DEFCONSTANT +S-EMPTY-VECTOR+) ; (DEFCONSTANT +TRUE+) ; (DEFCONSTANT +FALSE+) ; (DEFCONSTANT +2-EXP+) ; (DEFCONSTANT +MASK+) ; BINOMIAL-N-P ; (TOP-LEVEL-FORM 4) ; (TOP-LEVEL-FORM 5) ; ; >A-B< ; >A-B> ; V ; SRANDOM ; CLOCK ; DONE ; (TOP-LEVEL-FORM 6) ; Loading fasl file C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\various.ofasl ;;; Compiling file classes.cl ... ;;; Safety = 1, Speed = 3, Space = 0, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 0, Fixnum safety = 3 ;;; Source level debugging is off ;;; Source file recording is on ;;; Cross referencing is on ; (TOP-LEVEL-FORM 1) ; (TOP-LEVEL-FORM 2) ; (TOP-LEVEL-FORM 3) ; (DEFTYPE ANY) ; (SUBFUNCTION (DEFSETF CMBN-LIST) (DEFSTRUCT CMBN)) ; (SUBFUNCTION (DEFSETF CMBN-DEGR) (DEFSTRUCT CMBN)) ; (SUBFUNCTION MAKE-CMBN (DEFSTRUCT CMBN)) ; (SUBFUNCTION MAKE-CMBN (DEFSTRUCT CMBN)) ; CFFC-P ; (DEFTYPE CFFC) ; (DEFTYPE GNRT) ; (DEFTYPE CMPR) ; (DEFTYPE CMPRF) ; TERM-P ; (DEFTYPE TERM) ; ICMBN-P ; (DEFTYPE ICMBN) ; (DEFTYPE BASIS) ; (DEFTYPE INTR-MRPH) ; (DEFCLASS CHAIN-COMPLEX) ; (DEFCLASS MORPHISM) ; (DEFCLASS HOMOTOPY-EQUIVALENCE) ; (DEFVAR *IDNM-COUNTER*) ; (TOP-LEVEL-FORM 4) ;;; ;;; [[ Do not take account of these warnings. ;;; [[ These classes are mutually recursive ;;; [[ and redefinitions are necessary. ;;; ;;;*** Warning in (DEFCLASS CHAIN-COMPLEX): (DEFCLASS CHAIN-COMPLEX) defined more than once in C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\classes.cl. ; (DEFCLASS CHAIN-COMPLEX) ; (DEFTYPE STRT) ;;;*** Warning in (DEFCLASS MORPHISM): (DEFCLASS MORPHISM) defined more than once in C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\classes.cl. ; (DEFCLASS MORPHISM) ; (SUBFUNCTION (DEFSETF RESULT-RNTM) (DEFSTRUCT RESULT)) ; (SUBFUNCTION (DEFSETF RESULT-CLNM) (DEFSTRUCT RESULT)) ; (SUBFUNCTION (DEFSETF RESULT-VALUE) (DEFSTRUCT RESULT)) ; (SUBFUNCTION (DEFSETF RESULT-GNRT) (DEFSTRUCT RESULT)) ; (SUBFUNCTION MAKE-RESULT (DEFSTRUCT RESULT)) ; (SUBFUNCTION MAKE-RESULT (DEFSTRUCT RESULT)) ; (DEFCLASS REDUCTION) ;;;*** Warning in (DEFCLASS HOMOTOPY-EQUIVALENCE): (DEFCLASS HOMOTOPY-EQUIVALENCE) defined more than once in C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\classes.cl. ; (DEFCLASS HOMOTOPY-EQUIVALENCE) ; (SUBFUNCTION (DEFSETF UPLIG) (DEFSTRUCT MATRICE)) ; (SUBFUNCTION (DEFSETF LEFTCOL) (DEFSTRUCT MATRICE)) ; (SUBFUNCTION MAKE-MATRICE (DEFSTRUCT MATRICE)) ; (SUBFUNCTION MAKE-MATRICE (DEFSTRUCT MATRICE)) ; (SUBFUNCTION (DEFSETF UP) (DEFSTRUCT T-MAT)) ; (SUBFUNCTION (DEFSETF LEFT) (DEFSTRUCT T-MAT)) ; (SUBFUNCTION (DEFSETF ICOL) (DEFSTRUCT T-MAT)) ; (SUBFUNCTION (DEFSETF ILIG) (DEFSTRUCT T-MAT)) ; (SUBFUNCTION (DEFSETF VAL) (DEFSTRUCT T-MAT)) ; (SUBFUNCTION MAKE-T-MAT (DEFSTRUCT T-MAT)) ; (SUBFUNCTION MAKE-T-MAT (DEFSTRUCT T-MAT)) ; (SUBFUNCTION (DEFSETF IBICN) (DEFSTRUCT BICN)) ; (SUBFUNCTION (DEFSETF BCNX) (DEFSTRUCT BICN)) ; (SUBFUNCTION MAKE-BICN (DEFSTRUCT BICN)) ; (SUBFUNCTION MAKE-BICN (DEFSTRUCT BICN)) ; (SUBFUNCTION (DEFSETF GNRT2) (DEFSTRUCT TNPR)) ; (SUBFUNCTION (DEFSETF DEGR2) (DEFSTRUCT TNPR)) ; (SUBFUNCTION (DEFSETF GNRT1) (DEFSTRUCT TNPR)) ; (SUBFUNCTION (DEFSETF DEGR1) (DEFSTRUCT TNPR)) ; (SUBFUNCTION MAKE-TNPR (DEFSTRUCT TNPR)) ; (SUBFUNCTION MAKE-TNPR (DEFSTRUCT TNPR)) ; (DEFCLASS COALGEBRA) ; CBGN-P ; (DEFTYPE CBGN) ; IALLP-P ; (DEFTYPE IALLP) ; (SUBFUNCTION (DEFSETF ALLP-LIST) (DEFSTRUCT ALLP)) ; (SUBFUNCTION MAKE-ALLP (DEFSTRUCT ALLP)) ; (SUBFUNCTION MAKE-ALLP (DEFSTRUCT ALLP)) ; (DEFCLASS ALGEBRA) ; (DEFCLASS HOPF-ALGEBRA) ; BRGN-P ; (DEFTYPE BRGN) ; IABAR-P ; (DEFTYPE IABAR) ; (SUBFUNCTION (DEFSETF ABAR-LIST) (DEFSTRUCT ABAR)) ; (SUBFUNCTION MAKE-ABAR (DEFSTRUCT ABAR)) ; (SUBFUNCTION MAKE-ABAR (DEFSTRUCT ABAR)) ; (DEFTYPE DGOP) ; (DEFTYPE GMSM) ; (DEFTYPE DLOP) ; (SUBFUNCTION (DEFSETF GMSM) (DEFSTRUCT ABSM)) ; (SUBFUNCTION (DEFSETF DGOP) (DEFSTRUCT ABSM)) ; (SUBFUNCTION MAKE-ABSM (DEFSTRUCT ABSM)) ; (SUBFUNCTION MAKE-ABSM (DEFSTRUCT ABSM)) ; (DEFTYPE FACE) ; (DEFTYPE FACE*) ; (DEFCLASS SIMPLICIAL-SET) ; (DEFTYPE SINTR) ; (DEFCLASS SIMPLICIAL-MRPH) ; SOFT-DLOP-P ; (DEFTYPE SOFT-DLOP) ; (SUBFUNCTION (DEFSETF GMSM2) (DEFSTRUCT CRPR)) ; (SUBFUNCTION (DEFSETF DGOP2) (DEFSTRUCT CRPR)) ; (SUBFUNCTION (DEFSETF GMSM1) (DEFSTRUCT CRPR)) ; (SUBFUNCTION (DEFSETF DGOP1) (DEFSTRUCT CRPR)) ; (SUBFUNCTION MAKE-CRPR (DEFSTRUCT CRPR)) ; (SUBFUNCTION MAKE-CRPR (DEFSTRUCT CRPR)) ; (DEFTYPE KFLL) ; (DEFCLASS KAN) ; FIBRATION-P ; (DEFTYPE FIBRATION) ; (DEFCLASS SIMPLICIAL-GROUP) ; (DEFCLASS AB-SIMPLICIAL-GROUP) ; EXPN-P ; (DEFTYPE EXPN) ; POWR-P ; (DEFTYPE POWR) ; APOWR-P ; (DEFTYPE APOWR) ; ILOOP-P ; (DEFTYPE ILOOP) ; (SUBFUNCTION (DEFSETF LOOP-LIST) (DEFSTRUCT LOOP)) ; (SUBFUNCTION MAKE-LOOP (DEFSTRUCT LOOP)) ; (SUBFUNCTION MAKE-LOOP (DEFSTRUCT LOOP)) ; (SUBFUNCTION (DEFSETF GBAR-LIST) (DEFSTRUCT GBAR)) ; (SUBFUNCTION (DEFSETF GBAR-DMNS) (DEFSTRUCT GBAR)) ; (SUBFUNCTION MAKE-GBAR (DEFSTRUCT GBAR)) ; (SUBFUNCTION MAKE-GBAR (DEFSTRUCT GBAR)) ; (TOP-LEVEL-FORM 5) ; Loading fasl file C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\classes.ofasl Warning: (DEFCLASS CHAIN-COMPLEX) defined more than once in C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\classes.cl. Warning: (DEFCLASS MORPHISM) defined more than once in C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\classes.cl. Warning: (DEFCLASS HOMOTOPY-EQUIVALENCE) defined more than once in C:\Docume~1\Francis\AA\Kenzo\Kenzo-1.1-LispWorks\classes.cl. ;;; *** ;;; [[ Defining (METHOD PRINT-OBJECT (LOOP T)) ;;; [[ is not at all an error. ;;; [[ LispWorks complains for Loop being an identifier ;;; [[ of the Common-Lisp Package and is afraid we damage the system! ;;; [[ The loops here are the loops of Algebraic Topology ;;; [[ not the iterated loops of standard programming !!! ;;; Error: Defining (METHOD PRINT-OBJECT (LOOP T)) visible from packages COMMON-LISP, CLOS. 1 (continue) Define it anyway. 2 Discard the new method. 3 Try loading classes.ofasl again. 4 Give up loading classes.ofasl. 5 Try loading another file instead of classes.ofasl. 6 (abort) Return to level 0. 7 Return to top loop level 0. Type :b for backtrace, :c