Changeset 11923

Timestamp:

05/22/09 05:51:28 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (1 diff)

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

@@ -54 +54 @@
            (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