Changeset 4317

Timestamp:

10/11/03 20:40:25 (19 years ago)

Author:

piso

Message:

typep()

File:

• trunk/j/src/org/armedbear/lisp/StandardObject.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: StandardObject.java,v 1.5 2003-10-11 19:44:29 piso Exp $
+ * $Id: StandardObject.java,v 1.6 2003-10-11 20:40:25 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -59 +59 @@
             if (type == cls.getSymbol())
                 return T;
+            LispObject cpl = cls.getCPL();
+            while (cpl != NIL) {
+                if (type == cpl.car())
+                    return T;
+                if (type == ((LispClass)cpl.car()).getSymbol())
+                    return T;
+                cpl = cpl.cdr();
+            }
         }
         return super.typep(type);