[armedbear-cvs] r13998 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Mon Jul  9 02:47:36 2012
New Revision: 13998

Log:
Structure classes are finalized by definition, make them say so

- fixes a bunch of ansi tests, we're now back to our expected number of
  failures

Modified:
   trunk/abcl/src/org/armedbear/lisp/StructureClass.java

Modified: trunk/abcl/src/org/armedbear/lisp/StructureClass.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/StructureClass.java	Sun Jul  8 08:30:33 2012	(r13997)
+++ trunk/abcl/src/org/armedbear/lisp/StructureClass.java	Mon Jul  9 02:47:36 2012	(r13998)
@@ -120,6 +120,7 @@
                 c.setCPL(c, BuiltInClass.STRUCTURE_OBJECT, BuiltInClass.CLASS_T);
             c.setDirectSlotDefinitions(directSlots);
             c.setSlotDefinitions(slots);
+            c.setFinalized(true);
             addClass(symbol, c);
             return c;
         }