Changeset 3989


Ignore:
Timestamp:
09/22/03 12:05:41 (19 years ago)
Author:
piso
Message:

MAKE-STRUCTURE-CLASS: set up CPL of new class correctly.

File:
1 edited

Legend:

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

    r3966 r3989  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StructureClass.java,v 1.2 2003-09-21 15:06:39 piso Exp $
     5 * $Id: StructureClass.java,v 1.3 2003-09-22 12:05:41 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6464            Symbol symbol = checkSymbol(arg);
    6565            StructureClass c = new StructureClass(symbol);
     66            c.setCPL(c, BuiltInClass.STRUCTURE_OBJECT, BuiltInClass.CLASS_T);
    6667            addClass(symbol, c);
    6768            return c;
Note: See TracChangeset for help on using the changeset viewer.