Changeset 4317


Ignore:
Timestamp:
10/11/03 20:40:25 (18 years ago)
Author:
piso
Message:

typep()

File:
1 edited

Legend:

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

    r4314 r4317  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StandardObject.java,v 1.5 2003-10-11 19:44:29 piso Exp $
     5 * $Id: StandardObject.java,v 1.6 2003-10-11 20:40:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5959            if (type == cls.getSymbol())
    6060                return T;
     61            LispObject cpl = cls.getCPL();
     62            while (cpl != NIL) {
     63                if (type == cpl.car())
     64                    return T;
     65                if (type == ((LispClass)cpl.car()).getSymbol())
     66                    return T;
     67                cpl = cpl.cdr();
     68            }
    6169        }
    6270        return super.typep(type);
Note: See TracChangeset for help on using the changeset viewer.