Changeset 4076


Ignore:
Timestamp:
09/26/03 18:38:36 (19 years ago)
Author:
piso
Message:

EVAL-WHEN

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r4074 r4076  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.443 2003-09-26 18:26:27 piso Exp $
     5 * $Id: Primitives.java,v 1.444 2003-09-26 18:38:36 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    31723172    };
    31733173
     3174    // ### eval-when
     3175    private static final SpecialOperator EVAL_WHEN =
     3176        new SpecialOperator("eval-when")
     3177    {
     3178        public LispObject execute(LispObject args, Environment env)
     3179            throws ConditionThrowable
     3180        {
     3181            return progn(args.cdr(), env, LispThread.currentThread());
     3182        }
     3183    };
     3184
    31743185    // ### function
    31753186    private static final SpecialOperator FUNCTION =
Note: See TracChangeset for help on using the changeset viewer.