Ignore:
Timestamp:
Jul 14, 2009, 8:27:22 PM (10 years ago)
Author:
gz
Message:

r12361-r12403 from trunk - a few bug fixes, new japanese character encodings, smarter #$ reader macro, and new image/fasl versions due to x8632 large function support.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/format.lisp

    r12301 r12410  
    13811381    (unless (or (stringp string)(functionp string))
    13821382      (format-error "Indirected control string is not a string or function"))
    1383     ; fix so 3.1 doesn't make an extended-string here! for which %str-member was busted
    1384     ; it didn't fail in 3.0 cause the setq was erroneously missing
    1385     ; should really fix the compiler macro to not do that! - done
    1386     (when (AND (stringp string)(NOT (SIMPLE-STRING-P STRING)))
     1383    (when (and (stringp string) (not (simple-string-p string)))
    13871384      (setq string (coerce string 'simple-string)))
    13881385    (catch 'format-escape
Note: See TracChangeset for help on using the changeset viewer.