Changeset 12292


Ignore:
Timestamp:
Jun 24, 2009, 8:10:28 PM (10 years ago)
Author:
gb
Message:

Try to handle ~:C FORMAT directive more sanely, now that we claim
to have a good idea of which characters are GRAPHIC-CHAR-P and
which aren't.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/format.lisp

    r11809 r12292  
    14551455    (cond ((and atsign (not colon))
    14561456           (prin1 char stream))
    1457           ((< 127 code)
    1458            (write-char char stream)
    1459            (when (and atsign
    1460                       (neq #\Null (setq char (code-char (logand 127 code)))))
    1461              (princ " (Meta " stream)
    1462              (write-char char stream)
    1463              (write-char #\) stream)))
     1457          (colon
     1458           (if (or (eql char #\space)
     1459                   (not (graphic-char-p char)))
     1460             (princ name stream)
     1461             (write-char char stream)))
    14641462          ((not (or atsign colon))
    14651463           (write-char char stream))
Note: See TracChangeset for help on using the changeset viewer.