From aae28bd72fce0f205414747bacd8760eeee83dbb Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 24 May 2013 23:12:46 +0100 Subject: [PATCH] Remove debugging format --- experimental/compiler.lisp | 1 - 1 file changed, 1 deletion(-) 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 -- 1.7.10.4