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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Oct  1 16:39:16 2008
New Revision: 11333

Modified:
   trunk/j/src/org/armedbear/lisp/SpecialOperators.java
Log:
Code simplification.

Patch by: Philip Hudson <phil dot hudson at iname dot com>

Modified: trunk/j/src/org/armedbear/lisp/SpecialOperators.java
==============================================================================
--- trunk/j/src/org/armedbear/lisp/SpecialOperators.java	(original)
+++ trunk/j/src/org/armedbear/lisp/SpecialOperators.java	Wed Oct  1 16:39:16 2008
@@ -281,13 +281,7 @@
         final LispThread thread = LispThread.currentThread();
         final Environment ext = new Environment(env);
         args = ext.processDeclarations(args);
-        LispObject result = NIL;
-        while (args != NIL)
-          {
-            result = eval(args.car(), ext, thread);
-            args = args.cdr();
-          }
-        return result;
+        return progn(args, ext, thread);
       }
     };
 
@@ -299,13 +293,7 @@
         throws ConditionThrowable
       {
         LispThread thread = LispThread.currentThread();
-        LispObject result = NIL;
-        while (args != NIL)
-          {
-            result = eval(args.car(), env, thread);
-            args = ((Cons)args).cdr;
-          }
-        return result;
+        return progn(args, env, thread);
       }
     };