Changeset 11313

Timestamp:

09/13/08 10:03:24 (14 years ago)

Author:

ehuelsmann

Message:

Fix FLET.64 and LABELS.43: flet forms without function bindings can still have bodies which start with DECLARE forms.

Down to 56 failures.

File:

• trunk/j/src/org/armedbear/lisp/SpecialOperators.java (modified) (1 diff)

trunk/j/src/org/armedbear/lisp/SpecialOperators.java

@@ -348 +348 @@
     LispObject defs = checkList(args.car());
     final LispThread thread = LispThread.currentThread();
-    LispObject result;
-    if (defs != NIL)
-      {
-        SpecialBinding lastSpecialBinding = thread.lastSpecialBinding;
-        Environment ext = new Environment(env);
-        while (defs != NIL)
-          {
-            final LispObject def = checkList(defs.car());
-            final LispObject name = def.car();
-            final Symbol symbol;
-            if (name instanceof Symbol)
-              {
-                symbol = checkSymbol(name);
-                if (symbol.getSymbolFunction() instanceof SpecialOperator)
-                  {
-                    String message =
-                      symbol.getName() + " is a special operator and may not be redefined";
-                    return error(new ProgramError(message));
-                  }
-              }
-            else if (isValidSetfFunctionName(name))
-              symbol = checkSymbol(name.cadr());
-            else
-              return type_error(name, FUNCTION_NAME);
-            LispObject rest = def.cdr();
-            LispObject parameters = rest.car();
-            LispObject body = rest.cdr();
-            LispObject decls = NIL;
-            while (body.car() instanceof Cons && body.car().car() == Symbol.DECLARE)
-              {
-                decls = new Cons(body.car(), decls);
-                body = body.cdr();
-              }
-            body = new Cons(symbol, body);
-            body = new Cons(Symbol.BLOCK, body);
-            body = new Cons(body, NIL);
-            while (decls != NIL)
-              {
-                body = new Cons(decls.car(), body);
-                decls = decls.cdr();
-              }
-            LispObject lambda_expression =
-              new Cons(Symbol.LAMBDA, new Cons(parameters, body));
-            LispObject lambda_name =
-              list2(recursive ? Symbol.LABELS : Symbol.FLET, name);
-            Closure closure =
-              new Closure(lambda_name, lambda_expression,
-                          recursive ? ext : env);
-            ext.addFunctionBinding(name, closure);
-            defs = defs.cdr();
-          }
-        try
-          {
-            result = progn(args.cdr(), ext, thread);
-          }
-        finally
-          {
-            thread.lastSpecialBinding = lastSpecialBinding;
-          }
-      }
-    else
-      result = progn(args.cdr(), env, thread);
-    return result;
+    SpecialBinding lastSpecialBinding = thread.lastSpecialBinding;
+    Environment ext = new Environment(env);
+    while (defs != NIL)
+      {
+        final LispObject def = checkList(defs.car());
+        final LispObject name = def.car();
+        final Symbol symbol;
+        if (name instanceof Symbol)
+          {
+            symbol = checkSymbol(name);
+            if (symbol.getSymbolFunction() instanceof SpecialOperator)
+              {
+                String message =
+                  symbol.getName() + " is a special operator and may not be redefined";
+                return error(new ProgramError(message));
+              }
+          }
+        else if (isValidSetfFunctionName(name))
+          symbol = checkSymbol(name.cadr());
+        else
+          return type_error(name, FUNCTION_NAME);
+        LispObject rest = def.cdr();
+        LispObject parameters = rest.car();
+        LispObject body = rest.cdr();
+        LispObject decls = NIL;
+        while (body.car() instanceof Cons && body.car().car() == Symbol.DECLARE)
+          {
+            decls = new Cons(body.car(), decls);
+            body = body.cdr();
+          }
+        body = new Cons(symbol, body);
+        body = new Cons(Symbol.BLOCK, body);
+        body = new Cons(body, NIL);
+        while (decls != NIL)
+          {
+            body = new Cons(decls.car(), body);
+            decls = decls.cdr();
+          }
+        LispObject lambda_expression =
+          new Cons(Symbol.LAMBDA, new Cons(parameters, body));
+        LispObject lambda_name =
+          list2(recursive ? Symbol.LABELS : Symbol.FLET, name);
+        Closure closure =
+          new Closure(lambda_name, lambda_expression,
+                      recursive ? ext : env);
+        ext.addFunctionBinding(name, closure);
+        defs = defs.cdr();
+      }
+    try
+      {
+        return progn(args.cdr(), ext, thread);
+      }
+    finally
+      {
+        thread.lastSpecialBinding = lastSpecialBinding;
+      }
   }