Changeset 12575

Timestamp:

03/28/10 19:22:19 (13 years ago)

Author:

astalla

Message:

Made SEQUENCE be a built-in class again to avoid to cause problems with metaclass support. This temporarily makes extending SEQUENCE impossible, until we make certain built-in classes be extensible.

File:

• trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java

@@ -120 +120 @@
   public static final BuiltInClass REAL                 = addClass(Symbol.REAL);
   public static final BuiltInClass RESTART              = addClass(Symbol.RESTART);
+  public static final BuiltInClass SEQUENCE             = addClass(Symbol.SEQUENCE); 
   public static final BuiltInClass SIMPLE_ARRAY         = addClass(Symbol.SIMPLE_ARRAY);
   public static final BuiltInClass SIMPLE_BASE_STRING   = addClass(Symbol.SIMPLE_BASE_STRING);
@@ -138 +139 @@
     (StructureClass)addClass(Symbol.STRUCTURE_OBJECT,
              new StructureClass(Symbol.STRUCTURE_OBJECT, list(CLASS_T)));
-
-    public static final SlotClass SEQUENCE =
-  (SlotClass) addClass(Symbol.SEQUENCE,
-           new SlotClass(Symbol.SEQUENCE, list(CLASS_T)));
 
     /* All the stream classes below are being defined as structure classes