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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri May 22 01:51:28 2009
New Revision: 11923

Log:
Our input is already preprocessed. Don't do it again.
(Eliminated in GENERATE-INLINE-EXPANSION).

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	Fri May 22 01:51:28 2009
@@ -53,7 +53,7 @@
           (t
            (setf body (copy-tree body))
            (list 'LAMBDA lambda-list
-                 (precompiler:precompile-form (list* 'BLOCK block-name body) t *compile-file-environment*)))))
+                 (list* 'BLOCK block-name body)))))
   ) ; EVAL-WHEN
 
 ;;; Pass 1.