Changeset 3772


Ignore:
Timestamp:
09/14/03 17:03:03 (19 years ago)
Author:
piso
Message:

Removed TYPE_LIST, TYPE_SEQUENCE.

File:
1 edited

Legend:

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

    r3768 r3772  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.129 2003-09-14 16:45:14 piso Exp $
     5 * $Id: Lisp.java,v 1.130 2003-09-14 17:03:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9797    static final int TYPE_RATIONAL = TYPE_INTEGER | TYPE_RATIO;
    9898    static final int TYPE_REAL     = TYPE_RATIONAL | TYPE_FLOAT;
    99 
    100     static final int TYPE_LIST     = TYPE_CONS | TYPE_NULL;
    101     static final int TYPE_SEQUENCE = TYPE_VECTOR | TYPE_LIST;
    10299
    103100    // Functional types.
     
    326323                        if (debug)
    327324                            return funcall(fun,
    328                                 evalList(obj.cdr(), env, thread), thread);
     325                                           evalList(obj.cdr(), env, thread),
     326                                           thread);
    329327                        if (profiling)
    330328                            fun.incrementCallCount();
Note: See TracChangeset for help on using the changeset viewer.