Changeset 5779


Ignore:
Timestamp:
Jan 23, 2007, 6:19:25 AM (18 years ago)
Author:
Gary Byers
Message:

ppc32, ppc64 also had trouble with (CLASS-OF non-simple-string).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-clos-boot.lisp

    r5778 r5779  
    17971797            (find-class 'long-vector)
    17981798            (find-class 'fixnum-vector)
    1799             *t-class*                   ;(find-class 'new-base-string)
     1799            (find-class 'base-string)
    18001800            (find-class 'unsigned-byte-vector)
    18011801            (find-class 'byte-vector)
    1802             (find-class 'base-string)
     1802            *t-class*                   ; old base-string
    18031803            (find-class 'unsigned-word-vector)
    18041804            (find-class 'word-vector)
    … …  
    18301830            (find-class 'base-string)
    18311831            *t-class*
    1832             *t-class*
     1832            (find-class 'base-string)
    18331833            *t-class*
    18341834            *t-class*
Note: See TracChangeset for help on using the changeset viewer.