Changeset 4004

Timestamp:

09/22/03 17:21:41 (19 years ago)

Author:

piso

Message:

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

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (4 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.423 2003-09-22 12:22:25 piso Exp $
+ * $Id: Primitives.java,v 1.424 2003-09-22 17:21:41 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -801 +801 @@
 
     // ### append
-    private static final Primitive APPEND = new Primitive("append") {
+    public static final Primitive APPEND = new Primitive("append") {
         public LispObject execute()
         {
@@ -1148 +1148 @@
                 throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
             LispObject datum = args[0];
+            if (datum instanceof LispError)
+                throw new ConditionThrowable((LispError)datum);
             if (datum instanceof Symbol) {
                 if (datum == Symbol.PACKAGE_ERROR)
@@ -2263 +2265 @@
 
     // ### apply
-    private static final Primitive APPLY = new Primitive("apply") {
+    public static final Primitive APPLY = new Primitive("apply") {
         public LispObject execute(LispObject first, LispObject second)
             throws ConditionThrowable