Changeset 4292

Timestamp:

10/10/03 18:56:34 (20 years ago)

Author:

piso

Message:

CLASS-SLOTS: built-in classes don't have slots.

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: StandardClass.java,v 1.8 2003-10-10 17:01:33 piso Exp $
+ * $Id: StandardClass.java,v 1.9 2003-10-10 18:56:34 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -103 +103 @@
             if (arg instanceof StandardClass)
                 return ((StandardClass)arg).effectiveSlots;
-            if (arg == BuiltInClass.STANDARD_CLASS)
-                return NIL; // FIXME
+            if (arg instanceof BuiltInClass)
+                return NIL;
             throw new ConditionThrowable(new TypeError(arg, "standard class"));
         }