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

[Alessio Stalla]

Author: astalla
Date: Sun Mar 28 15:22:19 2010
New Revision: 12575

Log:
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.


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

Modified: trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java	Sun Mar 28 15:22:19 2010
@@ -119,6 +119,7 @@
   public static final BuiltInClass READTABLE            = addClass(Symbol.READTABLE);
   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);
   public static final BuiltInClass SIMPLE_BIT_VECTOR    = addClass(Symbol.SIMPLE_BIT_VECTOR);
@@ -138,10 +139,6 @@
     (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
        but won't be available as such until further action is taken:
        the 'defstruct' internal administration is missing.