Changeset 4004


Ignore:
Timestamp:
09/22/03 17:21:41 (19 years ago)
Author:
piso
Message:

Made APPEND and APPLY primitives public (for SimpleTypeError?.java).

File:
1 edited

Legend:

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

    r3992 r4004  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.423 2003-09-22 12:22:25 piso Exp $
     5 * $Id: Primitives.java,v 1.424 2003-09-22 17:21:41 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    801801
    802802    // ### append
    803     private static final Primitive APPEND = new Primitive("append") {
     803    public static final Primitive APPEND = new Primitive("append") {
    804804        public LispObject execute()
    805805        {
     
    11481148                throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
    11491149            LispObject datum = args[0];
     1150            if (datum instanceof LispError)
     1151                throw new ConditionThrowable((LispError)datum);
    11501152            if (datum instanceof Symbol) {
    11511153                if (datum == Symbol.PACKAGE_ERROR)
     
    22632265
    22642266    // ### apply
    2265     private static final Primitive APPLY = new Primitive("apply") {
     2267    public static final Primitive APPLY = new Primitive("apply") {
    22662268        public LispObject execute(LispObject first, LispObject second)
    22672269            throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.