Changeset 4292


Ignore:
Timestamp:
10/10/03 18:56:34 (19 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

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

    r4285 r4292  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StandardClass.java,v 1.8 2003-10-10 17:01:33 piso Exp $
     5 * $Id: StandardClass.java,v 1.9 2003-10-10 18:56:34 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    103103            if (arg instanceof StandardClass)
    104104                return ((StandardClass)arg).effectiveSlots;
    105             if (arg == BuiltInClass.STANDARD_CLASS)
    106                 return NIL; // FIXME
     105            if (arg instanceof BuiltInClass)
     106                return NIL;
    107107            throw new ConditionThrowable(new TypeError(arg, "standard class"));
    108108        }
Note: See TracChangeset for help on using the changeset viewer.