Changeset 4659


Ignore:
Timestamp:
11/06/03 17:12:33 (18 years ago)
Author:
piso
Message:

DECLARE

File:
1 edited

Legend:

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

    r4589 r4659  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.13 2003-10-31 18:30:33 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.14 2003-11-06 17:12:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    343343    };
    344344
     345    // ### declare
     346    private static final SpecialOperator DECLARE = new SpecialOperator("declare")
     347    {
     348        public LispObject execute(LispObject args, Environment env)
     349        {
     350            return NIL;
     351        }
     352    };
     353
    345354    // ### function
    346     private static final SpecialOperator FUNCTION =
    347         new SpecialOperator("function")
     355    private static final SpecialOperator FUNCTION = new SpecialOperator("function")
    348356    {
    349357        public LispObject execute(LispObject args, Environment env)
Note: See TracChangeset for help on using the changeset viewer.