Changeset 3989

Timestamp:

09/22/03 12:05:41 (20 years ago)

Author:

piso

Message:

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

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: StructureClass.java,v 1.2 2003-09-21 15:06:39 piso Exp $
+ * $Id: StructureClass.java,v 1.3 2003-09-22 12:05:41 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -64 +64 @@
             Symbol symbol = checkSymbol(arg);
             StructureClass c = new StructureClass(symbol);
+            c.setCPL(c, BuiltInClass.STRUCTURE_OBJECT, BuiltInClass.CLASS_T);
             addClass(symbol, c);
             return c;