[cl-backend] hack around xspan and disable the beta reduction pass

sorear · Feb 27, 2011 · 78147ba · 78147ba
1 parent dbcf870
commit 78147ba
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 7 deletions.
diff --git a/cl-backend/backend.lisp b/cl-backend/backend.lisp
@@ -32,8 +32,9 @@
 
 ; Hacks
 
-(nam-op ehspan (class name unused start end goto) )
-(nam-op span (n1 n2 sync body) body)
+;(nam-op ehspan (class name unused start end goto) )
+;(nam-op span (n1 n2 sync body) body)
+(nam-op xspan (n1 n2 flag body dunno1 dunno2 dunno3) body)
 
 (defun strip-ann (thing) 
   (if (consp thing)

diff --git a/src/niecza b/src/niecza
@@ -350,6 +350,20 @@ else {
     exit 1;
 }
 
+my $stages;
+if $bcnd eq 'clisp' {
+    $stages = [
+        NieczaPassBegin.new,
+        NieczaPassSimplifier.new,
+    ];
+} else {
+    $stages = [
+        NieczaPassBegin.new,
+        NieczaPassBeta.new,
+        NieczaPassSimplifier.new,
+    ];
+}
+
 my $c = NieczaCompiler.new(
     module_finder => NieczaPathSearch.new(
         path => @lib,
@@ -358,11 +372,7 @@ my $c = NieczaCompiler.new(
         lang => $safe ?? 'SAFE' !! $lang,
         safemode => $safe,
     ),
-    stages => [
-        NieczaPassBegin.new,
-        NieczaPassBeta.new,
-        NieczaPassSimplifier.new,
-    ],
+    stages => $stages,
     backend => $backend,
     verbose => $verb,
 );