Changeset 4539

Timestamp:

10/25/03 21:53:23 (18 years ago)

Author:

piso

Message:

SYMBOL-MACROLET

File:

• trunk/j/src/org/armedbear/lisp/SpecialOperators.java (modified) (3 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: SpecialOperators.java,v 1.6 2003-10-15 21:27:24 piso Exp $
+ * $Id: SpecialOperators.java,v 1.7 2003-10-25 21:53:23 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -114 +114 @@
         return result;
     }
+
+    // ### symbol-macrolet
+    private static final SpecialOperator SYMBOL_MACROLET =
+        new SpecialOperator("symbol-macrolet")
+    {
+        public LispObject execute(LispObject args, Environment env)
+            throws ConditionThrowable
+        {
+            boolean sequential = true; // FIXME Is this right?
+            LispObject varList = checkList(args.car());
+            final LispThread thread = LispThread.currentThread();
+            LispObject result = NIL;
+            if (varList != NIL) {
+                Environment oldDynEnv = thread.getDynamicEnvironment();
+                try {
+                    Environment ext = new Environment(env);
+                    Environment evalEnv = sequential ? ext : env;
+                    for (int i = varList.length(); i-- > 0;) {
+                        LispObject obj = varList.car();
+                        varList = varList.cdr();
+                        if (obj instanceof Cons && obj.length() == 2) {
+                            bind(checkSymbol(obj.car()),
+                                 new SymbolMacro(eval(obj.cadr(), evalEnv, thread)),
+                                 ext);
+                        } else
+                            throw new ConditionThrowable(new ProgramError("SYMBOL-MACROLET: bad symbol-expansion pair: " + obj));
+                    }
+                    LispObject body = args.cdr();
+                    while (body != NIL) {
+                        result = eval(body.car(), ext, thread);
+                        body = body.cdr();
+                    }
+                }
+                finally {
+                    thread.setDynamicEnvironment(oldDynEnv);
+                }
+            } else {
+                LispObject body = args.cdr();
+                while (body != NIL) {
+                    result = eval(body.car(), env, thread);
+                    body = body.cdr();
+                }
+            }
+            return result;
+        }
+    };
 
     // ### load-time-value
@@ -221 +267 @@
     }
 
-    // ### symbol-macrolet
-    private static final SpecialOperator SYMBOL_MACROLET =
-        new SpecialOperator("symbol-macrolet")
-    {
-        public LispObject execute(LispObject args, Environment env)
-            throws ConditionThrowable
-        {
-            throw new ConditionThrowable(new LispError("SYMBOL-MACROLET is not implemented"));
-        }
-    };
-
     // ### the
     // the value-type form => result*