From 870466490b7a6f4b519a579d54edc16305bcbf7a Mon Sep 17 00:00:00 2001
From: gheber <leberecht@beingandti.me>
Date: Mon, 15 Jun 2015 06:31:05 -0500
Subject: [PATCH] Revert ASDF/compilation issue related changes

Fix in asdf-issues branch
---
 src/chain-complexes.lisp     | 4 ++--
 src/cobar.lisp               | 4 ++--
 src/ls-twisted-products.lisp | 4 ++--
 src/smith.lisp               | 4 ++--
 src/tensor-products.lisp     | 4 ++--
 5 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/chain-complexes.lisp b/src/chain-complexes.lisp
index 27f7390..9cc9cfd 100644
--- a/src/chain-complexes.lisp
+++ b/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
diff --git a/src/cobar.lisp b/src/cobar.lisp
index a1e2cd0..cdf04b0 100644
--- a/src/cobar.lisp
+++ b/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")
diff --git a/src/ls-twisted-products.lisp b/src/ls-twisted-products.lisp
index bed7f3a..f6d237b 100644
--- a/src/ls-twisted-products.lisp
+++ b/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)))
-|#
+
 
 #|
 ()
diff --git a/src/smith.lisp b/src/smith.lisp
index c5ff584..0db1a1b 100644
--- a/src/smith.lisp
+++ b/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)
diff --git a/src/tensor-products.lisp b/src/tensor-products.lisp
index d37fd73..bd760b3 100644
--- a/src/tensor-products.lisp
+++ b/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)