Changeset 10050


Ignore:
Timestamp:
09/28/05 14:36:24 (16 years ago)
Author:
piso
Message:

SYS:*NOINFORM*

File:
1 edited

Legend:

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

    r9956 r10050  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Lisp.java,v 1.392 2005-09-12 01:12:47 piso Exp $
     5 * $Id: Lisp.java,v 1.393 2005-09-28 14:36:24 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    252252    // ### interactive-eval
    253253    private static final Primitive INTERACTIVE_EVAL =
    254         new Primitive("interactive-eval", PACKAGE_SYS, false)
     254        new Primitive("interactive-eval", PACKAGE_SYS, true)
    255255    {
    256256        public LispObject execute(LispObject object) throws ConditionThrowable
     
    340340    }
    341341
    342     // Used by JVM compiler.
     342    // Used by the compiler.
    343343    public static final LispObject loadTimeValue(LispObject obj)
    344344        throws ConditionThrowable
     
    349349        else
    350350            return NIL;
     351    }
     352
     353    // Interface.
     354    public static final LispObject eval(String s)
     355        throws ConditionThrowable
     356    {
     357        return eval(new StringInputStream(s).read(true, NIL, false));
     358    }
     359
     360    public static final LispObject eval(LispObject obj)
     361        throws ConditionThrowable
     362    {
     363        return eval(obj, new Environment(), LispThread.currentThread());
    351364    }
    352365
     
    607620    }
    608621
    609     // Used by JVM compiler.
     622    // Used by the compiler.
    610623    public static final LispObject multipleValueList(LispObject result)
    611624        throws ConditionThrowable
     
    622635    }
    623636
    624     // Used by JVM compiler for MULTIPLE-VALUE-CALLs with a single values form.
     637    // Used by the compiler for MULTIPLE-VALUE-CALLs with a single values form.
    625638    public static final LispObject multipleValueCall1(LispObject result,
    626639                                                      LispObject function,
     
    834847    }
    835848
     849    // Used by the compiler.
    836850    public static final LispObject readObjectFromString(String s)
    837851    {
     
    16571671    }
    16581672
    1659     // Used by jvm compiler.
     1673    // Used by the compiler.
    16601674    public static final Symbol internInPackage(String name, String packageName)
    16611675        throws ConditionThrowable
     
    16671681    }
    16681682
    1669     // The jvm compiler's object table.
     1683    // The compiler's object table.
    16701684    private static final Hashtable objectTable = new Hashtable();
    16711685
     
    22902304        exportSpecial("*BATCH-MODE*", PACKAGE_EXT, NIL);
    22912305
    2292     // ### *preload*
    2293     public static final Symbol _PRELOAD_ =
    2294         internSpecial("*PRELOAD*", PACKAGE_SYS, NIL);
     2306    // ### *noinform*
     2307    public static final Symbol _NOINFORM_ =
     2308        exportSpecial("*NOINFORM*", PACKAGE_SYS, NIL);
    22952309
    22962310    // ### *disassembler*
Note: See TracChangeset for help on using the changeset viewer.