From: David Vázquez <davazp@gmail.com>
Date: Sat, 11 May 2013 17:52:59 +0000 (+0100)
Subject: Remove test code
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=03a22fcf695fc0c639c74910312e095999df5d6a;p=jscl.git

Remove test code
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index fb6fc7f..5078229 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -551,17 +551,4 @@
     (print-component *component*)))
 
 
-(defun test-conditional ()
-  (with-component-compilation 
-    (ir-convert 1)
-    (ir-convert 2)
-    (ir-convert 3)
-    (with-cursor (:after :entry)
-      (ir-convert '(if x 1 0))
-      (ir-convert nil))
-    (finish-component *component*)
-    (check-ir-consistency)
-    (print-component *component*)))
-
-
 ;;; compiler.lisp ends here