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

Revert ASDF/compilation issue related changes

Browse Source 
Fix in asdf-issues branch
This commit is contained in:
gheber 2015-06-15 06:31:05 -05:00
parent f092de28f9
commit 870466490b
5 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/chain-complexes.lisp
View File

@ -239,7 +239,7 @@
(rslts item)))) (rslts item))))
nrslts))) nrslts)))
#|
(DEFUN TIME-LIST () (DEFUN TIME-LIST ()
(the list (the list
(let ((time-list +empty-list+)) (let ((time-list +empty-list+))
@ -258,7 +258,7 @@
drslt)) drslt))
(rslts item)))) (rslts item))))
(sort time-list #'>)))) (sort time-list #'>))))
|#
(DEFUN CLEAN-RESULTS (&optional (results-coef *results-coef*)) (DEFUN CLEAN-RESULTS (&optional (results-coef *results-coef*))
(declare (declare

4
src/cobar.lisp
View File

@ -530,7 +530,7 @@
(? cf 2 (allp 1 (crpr 0 (d 7) 0 (d 7)) 1 (crpr 0 (d 56) 0 (d 56)))) (? cf 2 (allp 1 (crpr 0 (d 7) 0 (d 7)) 1 (crpr 0 (d 56) 0 (d 56))))
|# |#
#|
(DEFUN HMTP-VRTC-COBAR-INTR (h gf) (DEFUN HMTP-VRTC-COBAR-INTR (h gf)
(declare (type morphism h gf)) (declare (type morphism h gf))
(flet ((rslt (degr allp) (flet ((rslt (degr allp)
@ -579,7 +579,7 @@
:degr (1+ degr) :degr (1+ degr)
:list (rest rslt))))) :list (rest rslt)))))
(the intr-mrph #'rslt))) (the intr-mrph #'rslt)))
|#
#| #|
(require "special-smsts") (require "special-smsts")

4
src/ls-twisted-products.lisp
View File

@ -319,7 +319,7 @@
(pop-first-absm 4 (cdr (loop3 2 'a +1 1 'b 3))) (pop-first-absm 4 (cdr (loop3 2 'a +1 1 'b 3)))
|# |#
#|
(DEFUN CRTS-CONTRACTION-INTR (base-cmpr base-bspn base-face crts-cmpr) (DEFUN CRTS-CONTRACTION-INTR (base-cmpr base-bspn base-face crts-cmpr)
(declare (declare
(type cmprf base-cmpr crts-cmpr) (type cmprf base-cmpr crts-cmpr)
@ -401,7 +401,7 @@
(hh absm1 loop-absm2))))))) (hh absm1 loop-absm2)))))))
(the intr-mrph #'rslt))) (the intr-mrph #'rslt)))
|#
#| #|
() ()

4
src/smith.lisp
View File

@ -467,7 +467,7 @@
(minimal-rest-2 m 1) (minimal-rest-2 m 1)
|# |#
#|
(DEFUN MINIMAL-TERM-TOP-LEFT (mtrx-list begin il ic) (DEFUN MINIMAL-TERM-TOP-LEFT (mtrx-list begin il ic)
(declare (declare
(list mtrx-list) (list mtrx-list)
@ -480,7 +480,7 @@
(when (minusp (aref (third mtrx-list) begin begin)) (when (minusp (aref (third mtrx-list) begin begin))
(line-minus-5 mtrx-list begin begin)) (line-minus-5 mtrx-list begin begin))
mtrx-list))) mtrx-list)))
|#
#| #|
(setf p (idnt-mtrx 4) p-1 (idnt-mtrx 4) (setf p (idnt-mtrx 4) p-1 (idnt-mtrx 4)

4
src/tensor-products.lisp
View File

@ -140,7 +140,7 @@
(print (funcall bas i)))) (print (funcall bas i))))
|# |#
#|
(DEFUN TNSR-PRDC-INTR-DFFR (dffr1 dffr2) (DEFUN TNSR-PRDC-INTR-DFFR (dffr1 dffr2)
(declare (type morphism dffr1 dffr2)) (declare (type morphism dffr1 dffr2))
(flet ((rslt (degr tnpr) (flet ((rslt (degr tnpr)
@ -175,7 +175,7 @@
(tnpr degr1 gnrt1 degr2-1 gnrt2)))) (tnpr degr1 gnrt1 degr2-1 gnrt2))))
list2)))))))) list2))))))))
(the intr-mrph #'rslt))) (the intr-mrph #'rslt)))
|#
#| #|
(cat-init) (cat-init)