Changeset 11586


Ignore:
Timestamp:
01/24/09 20:36:52 (13 years ago)
Author:
ehuelsmann
Message:

Eliminate the pesky beeps in TYPE-OF.1; however unfortunately, this breaks TYPE-OF.4 for the case of "". Now go and search!

File:
1 edited

Legend:

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

    r11585 r11586  
    9494                 (SIMPLE-CONDITION CONDITION)
    9595                 (SIMPLE-ERROR SIMPLE-CONDITION ERROR)
    96                  (SIMPLE-STRING SIMPLE-BASE-STRING BASE-STRING STRING SIMPLE-ARRAY)
     96                 (SIMPLE-STRING BASE-STRING STRING SIMPLE-ARRAY)
    9797                 (SIMPLE-TYPE-ERROR SIMPLE-CONDITION TYPE-ERROR)
    9898                 (SIMPLE-VECTOR VECTOR SIMPLE-ARRAY)
     
    484484            (and (classp type2) (eq (%class-name type2) t)))
    485485    (return-from %subtypep (values t t)))
     486  (when (classp type1)
     487    (setf type1 (%class-name type1)))
     488  (when (classp type2)
     489    (setf type2 (%class-name type2)))
    486490  (let ((ct1 (ctype type1))
    487491        (ct2 (ctype type2)))
Note: See TracChangeset for help on using the changeset viewer.