From: David Vázquez <davazp@gmail.com>
Date: Fri, 24 May 2013 22:12:46 +0000 (+0100)
Subject: Remove debugging format
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=aae28bd72fce0f205414747bacd8760eeee83dbb;p=jscl.git

Remove debugging format
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index f8ef505..8ff1bcf 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -888,7 +888,6 @@
                  ;; The set of nodes which belongs to this loop.
                  (body (natural-loop-body loop)))
             ;; The header belongs to the loop
-            (format t "~S ~S~%" (block-order header) loop)
             (setf (aref body (block-order header)) 1
                   (block-loop header) loop)
             ;; Add to the loop all the blocks which can reach the tail