Remove test code

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index fb6fc7f..5078229 100644 (file)
--- 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