Changeset 8604


Ignore:
Timestamp:
02/18/05 14:31:11 (16 years ago)
Author:
piso
Message:

loadTimeValue()

File:
1 edited

Legend:

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

    r8591 r8604  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Lisp.java,v 1.320 2005-02-16 19:47:14 piso Exp $
     5 * $Id: Lisp.java,v 1.321 2005-02-18 14:31:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    292292        Symbol.BREAK.getSymbolFunction().execute();
    293293        setInterrupted(false);
     294    }
     295
     296    // Used by JVM compiler.
     297    public static final LispObject loadTimeValue(LispObject obj)
     298        throws ConditionThrowable
     299    {
     300        final LispThread thread = LispThread.currentThread();
     301        if (_LOAD_TRUENAME_.symbolValue(thread) != NIL)
     302            return eval(obj, new Environment(), thread);
     303        else
     304            return NIL;
    294305    }
    295306
Note: See TracChangeset for help on using the changeset viewer.