Revert ASDF/compilation issue related changes

Fix in asdf-issues branch

src/chain-complexes.lisp

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

src/cobar.lisp

@@ -530,7 +530,7 @@
   (? 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)
    (declare (type morphism h gf))
    (flet ((rslt (degr allp)
@@ -579,7 +579,7 @@
                    :degr (1+ degr)
                    :list (rest rslt)))))
       (the intr-mrph #'rslt)))
-|#
+
 
 #|
   (require "special-smsts")

src/ls-twisted-products.lisp

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

src/smith.lisp

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

src/tensor-products.lisp

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