Changeset 11433


Ignore:
Timestamp:
12/07/08 22:12:47 (13 years ago)
Author:
ehuelsmann
Message:

Strings are also BASE-STRING; SIMPLE-STRINGs are also SIMPLE-BASE-STRINGs.

Found by: Douglas Miles

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

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/AbstractString.java

    r11391 r11433  
    4141            if (type == Symbol.STRING)
    4242                return T;
     43            if (type == Symbol.BASE_STRING)
     44                return T;
    4345        }
    4446        if (type == BuiltInClass.STRING)
     47            return T;
     48        if (type == BuiltInClass.BASE_STRING)
    4549            return T;
    4650        return super.typep(type);
  • trunk/j/src/org/armedbear/lisp/SimpleString.java

    r11391 r11433  
    119119        if (type == Symbol.SIMPLE_ARRAY)
    120120            return T;
     121        if (type == Symbol.SIMPLE_BASE_STRING)
     122            return T;
    121123        if (type == BuiltInClass.SIMPLE_STRING)
    122124            return T;
    123125        if (type == BuiltInClass.SIMPLE_ARRAY)
     126            return T;
     127        if (type == BuiltInClass.SIMPLE_BASE_STRING)
    124128            return T;
    125129        return super.typep(type);
Note: See TracChangeset for help on using the changeset viewer.