;;;  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

(IN-PACKAGE "COMMON-LISP-USER")

(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) #-ACLPC (debug 0)))

(DEFCONSTANT +FILE-LIST+
   '("classes"
     "macros"
     "various"
     "combinations"
     "chain-complexes"
     "chcm-elementary-op"
     "effective-homology"
     "homology-groups"
     "searching-homology"
     "cones"
     "tensor-products"
     "coalgebras"
     "cobar"
     "algebras"
     "bar"
     "simplicial-sets"
     "simplicial-mrphs"
     "delta"
     "special-smsts"
     "suspensions"
     "disk-pasting"
     "cartesian-products"
     "eilenberg-zilber"
     "kan"
     "simplicial-groups"
     "fibrations"
     "loop-spaces"
     "ls-twisted-products"
     "lp-space-efhm"
     "classifying-spaces"
     "k-pi-n"
     "serre"
     "cs-twisted-products"
     "cl-space-efhm"
     "whitehead"
     "smith"
;     "prisms"
;     "whitehead-1"
;     "whitehead-2"
     ))

(DEFCONSTANT +FILE-LIST-2+
  '("3-sphere"
    "pr-infinity"))

(DO ((i 1 (1+ i))
     (mark +file-list+ (cdr mark)))
    ((endp mark) (terpri))
   (format t "~2% FILE ~2D: ~A" i (car mark)))

(DEFCONSTANT +SOURCE-EXTENSION+
   #+ACLPC "lsp"
   #-ACLPC "lisp")

(DEFCONSTANT +COMPILED-EXTENSION+
   #+ACLPC "fsl"
   #-ACLPC "fasl")

(DEFUN LOAD-SFILES ()
   (mapc #'(lambda (file-name)
             (load (concatenate 'string file-name "." +source-extension+)))
    +file-list+))

(DEFVAR *CMBN-CONTROL*)
(SETF *CMBN-CONTROL* T)

(DEFUN COMPILE-FILES ()
 #+(and allegro unix allegro-v4.3)
   (format t "~%SPEED-PARAMETER = ~D~%~@
              *CMBN-CONTROL*  = ~A~2%"
             comp::.speed. *cmbn-control*)
 #+(and allegro unix allegro-v5.0)
   (format t "~%SPEED-PARAMETER = ~D~%~@
              *CMBN-CONTROL*  = ~A~2%"
             excl::.speed. *cmbn-control*)
 #+aclpc
   (format t "~2%SPEED-PARAMETER = ~D~%~@
                 *CMBN-CONTROL*  = ~D~%"
      *speed-level* *cmbn-control*)
   (mapc #'(lambda (file-name)
              (compile-file (concatenate 'string file-name "." +source-extension+))
          (load (concatenate 'string file-name "." +compiled-extension+)))
    +file-list+))

(DEFUN LOAD-CFILES ()
   (mapc #'(lambda (file-name)
             (load (concatenate 'string file-name "." +compiled-extension+)))
    +file-list+))

(DEFUN CAT-FILES (name1)
  (setf name1 (concatenate 'string name1 ".lisp"))
  (when (probe-file name1)
    (delete-file name1))
  (run-shell-command (concatenate 'string "echo >> " name1))
  (mapc #'(lambda (name2)
        (run-shell-command
          (concatenate 'string
        "cat " name2 ".lisp >> " name1)))
    +file-list+))





Home page.