Changeset 4076

Timestamp:

09/26/03 18:38:36 (19 years ago)

Author:

piso

Message:

EVAL-WHEN

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.443 2003-09-26 18:26:27 piso Exp $
+ * $Id: Primitives.java,v 1.444 2003-09-26 18:38:36 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3172 +3172 @@
     };
 
+    // ### eval-when
+    private static final SpecialOperator EVAL_WHEN =
+        new SpecialOperator("eval-when")
+    {
+        public LispObject execute(LispObject args, Environment env)
+            throws ConditionThrowable
+        {
+            return progn(args.cdr(), env, LispThread.currentThread());
+        }
+    };
+
     // ### function
     private static final SpecialOperator FUNCTION =