[armedbear-cvs] r11396 - trunk/j/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Mon Nov 24 19:01:42 2008
New Revision: 11396

Log:
Fix return in an anonymous lambda. An anynonymous lambda
should not generate a block around the lambda body.


Modified:
   trunk/j/src/org/armedbear/lisp/jvm.lisp

Modified: trunk/j/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/j/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/j/src/org/armedbear/lisp/jvm.lisp	Mon Nov 24 19:01:42 2008
@@ -867,7 +867,7 @@
              (multiple-value-bind (body decls)
                  (parse-body body)
                (setf (compiland-lambda-expression compiland)
-                     `(lambda ,lambda-list , at decls (block nil , at body)))
+                     `(lambda ,lambda-list , at decls , at body))
                (let ((*visible-variables* *visible-variables*)
                      (*current-compiland* compiland))
                  (p1-compiland compiland)))