Changeset 11433
- Timestamp:
- 12/07/08 22:12:47 (14 years ago)
- Location:
- trunk/j/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/AbstractString.java
r11391 r11433 41 41 if (type == Symbol.STRING) 42 42 return T; 43 if (type == Symbol.BASE_STRING) 44 return T; 43 45 } 44 46 if (type == BuiltInClass.STRING) 47 return T; 48 if (type == BuiltInClass.BASE_STRING) 45 49 return T; 46 50 return super.typep(type); -
trunk/j/src/org/armedbear/lisp/SimpleString.java
r11391 r11433 119 119 if (type == Symbol.SIMPLE_ARRAY) 120 120 return T; 121 if (type == Symbol.SIMPLE_BASE_STRING) 122 return T; 121 123 if (type == BuiltInClass.SIMPLE_STRING) 122 124 return T; 123 125 if (type == BuiltInClass.SIMPLE_ARRAY) 126 return T; 127 if (type == BuiltInClass.SIMPLE_BASE_STRING) 124 128 return T; 125 129 return super.typep(type);
Note: See TracChangeset
for help on using the changeset viewer.