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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Sep 13 04:51:48 2008
New Revision: 11312

Modified:
   trunk/j/src/org/armedbear/lisp/Closure.java
Log:
Replace looping over BODY by PROGN call. That's its purpose.

Modified: trunk/j/src/org/armedbear/lisp/Closure.java
==============================================================================
--- trunk/j/src/org/armedbear/lisp/Closure.java	(original)
+++ trunk/j/src/org/armedbear/lisp/Closure.java	Sat Sep 13 04:51:48 2008
@@ -885,21 +885,14 @@
             ext.declareSpecial(specials[i]);
         }
     }
-    LispObject result = NIL;
-    LispObject prog = body;
     try
       {
-        while (prog != NIL)
-          {
-            result = eval(prog.car(), ext, thread);
-            prog = prog.cdr();
-          }
+        return progn(body, ext, thread);
       }
     finally
       {
         thread.lastSpecialBinding = lastSpecialBinding;
       }
-    return result;
   }
 
   private final boolean isSpecial(Symbol sym)