Changeset 4558


Ignore:
Timestamp:
10/28/03 16:01:02 (18 years ago)
Author:
piso
Message:

LOAD-TIME-VALUE

File:
1 edited

Legend:

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

    r4552 r4558  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.9 2003-10-27 19:02:28 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.10 2003-10-28 16:01:02 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    163163
    164164    // ### load-time-value
     165    // load-time-value form &optional read-only-p => object
    165166    private static final SpecialOperator LOAD_TIME_VALUE =
    166167        new SpecialOperator("load-time-value")
     
    169170            throws ConditionThrowable
    170171        {
    171             throw new ConditionThrowable(new LispError("LOAD-TIME-VALUE is not implemented"));
     172            switch (args.length()) {
     173                case 1:
     174                case 2:
     175                    return eval(args.car(), new Environment(),
     176                                LispThread.currentThread());
     177                default:
     178                    throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
     179            }
    172180        }
    173181    };
Note: See TracChangeset for help on using the changeset viewer.