[armedbear-cvs] r13117 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jan  1 12:41:38 2011
New Revision: 13117

Log:
Fix #117: Workaround for the fact that we shouldn't be doing
UNSAFE-P checks in pass1.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Sat Jan  1 12:41:38 2011
@@ -1186,8 +1186,8 @@
          (case (%car args)
            (QUOTE
             nil)
-           (LAMBDA
-            nil)
+;;           (LAMBDA
+;;            nil)
            ((RETURN-FROM GO CATCH THROW UNWIND-PROTECT BLOCK)
             t)
            (t