Changeset 13191


Ignore:
Timestamp:
01/30/11 13:20:31 (11 years ago)
Author:
ehuelsmann
Message:

Signal an error containing the name of the class, when
the type of the CLASS-LAYOUT slot isn't what it is expected to be.

File:
1 edited

Legend:

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

    r12749 r13191  
    133133  {
    134134    LispObject layout = getInstanceSlotValue(symLayout);
     135    if (layout == UNBOUND_VALUE)
     136        return null;
     137
     138    if (! (layout instanceof Layout)) {
     139        (new Error()).printStackTrace();
     140        LispThread.currentThread().printBacktrace();
     141        return (Layout)Lisp.error(Symbol.TYPE_ERROR,
     142                new SimpleString("The value " + layout.writeToString()
     143                    + " is not of expected type " + Symbol.LAYOUT.writeToString()
     144                    + " in class " + this.writeToString() + "."));
     145      }
     146   
    135147    return (layout == UNBOUND_VALUE) ? null : (Layout)layout;
    136148  }
Note: See TracChangeset for help on using the changeset viewer.