Changeset 11587


Ignore:
Timestamp:
01/24/09 20:38:24 (12 years ago)
Author:
ehuelsmann
Message:

Ofcourse, you need all components for a commit to actually work... (Belongs to last commit.)

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java

    r11488 r11587  
    237237    SIMPLE_BIT_VECTOR.setCPL(SIMPLE_BIT_VECTOR, BIT_VECTOR, VECTOR,
    238238                             SIMPLE_ARRAY, ARRAY, SEQUENCE, CLASS_T);
    239     SIMPLE_STRING.setDirectSuperclasses(list2(STRING, SIMPLE_ARRAY));
    240     SIMPLE_STRING.setCPL(SIMPLE_STRING, STRING, VECTOR, SIMPLE_ARRAY, ARRAY,
    241                          SEQUENCE, CLASS_T);
     239    SIMPLE_STRING.setDirectSuperclasses(list3(BASE_STRING, STRING, SIMPLE_ARRAY));
     240    SIMPLE_STRING.setCPL(SIMPLE_STRING, BASE_STRING, STRING, VECTOR,
     241                         SIMPLE_ARRAY, ARRAY, SEQUENCE, CLASS_T);
    242242    SIMPLE_VECTOR.setDirectSuperclasses(list2(VECTOR, SIMPLE_ARRAY));
    243243    SIMPLE_VECTOR.setCPL(SIMPLE_VECTOR, VECTOR, SIMPLE_ARRAY, ARRAY, SEQUENCE,
  • trunk/abcl/src/org/armedbear/lisp/SimpleString.java

    r11562 r11587  
    9898    public LispObject typeOf()
    9999    {
    100         return list2(Symbol.SIMPLE_STRING, new Fixnum(capacity));
     100        return list2(Symbol.SIMPLE_BASE_STRING, new Fixnum(capacity));
    101101    }
    102102
     
    104104    public LispObject classOf()
    105105    {
    106         return BuiltInClass.SIMPLE_STRING;
     106        return BuiltInClass.SIMPLE_BASE_STRING;
    107107    }
    108108
Note: See TracChangeset for help on using the changeset viewer.