Changeset 3772

Timestamp:

09/14/03 17:03:03 (20 years ago)

Author:

piso

Message:

Removed TYPE_LIST, TYPE_SEQUENCE.

File:

• trunk/j/src/org/armedbear/lisp/Lisp.java (modified) (3 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.129 2003-09-14 16:45:14 piso Exp $
+ * $Id: Lisp.java,v 1.130 2003-09-14 17:03:03 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -97 +97 @@
     static final int TYPE_RATIONAL = TYPE_INTEGER | TYPE_RATIO;
     static final int TYPE_REAL     = TYPE_RATIONAL | TYPE_FLOAT;
-
-    static final int TYPE_LIST     = TYPE_CONS | TYPE_NULL;
-    static final int TYPE_SEQUENCE = TYPE_VECTOR | TYPE_LIST;
 
     // Functional types.
@@ -326 +323 @@
                         if (debug)
                             return funcall(fun,
-                                evalList(obj.cdr(), env, thread), thread);
+                                           evalList(obj.cdr(), env, thread),
+                                           thread);
                         if (profiling)
                             fun.incrementCallCount();