Changeset 9046


Ignore:
Timestamp:
Apr 8, 2008, 2:52:04 AM (12 years ago)
Author:
gz
Message:

Small fix for ~@:C

File:
1 edited

Legend:

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

    r8172 r9046  
    14771477           (write-char char stream))
    14781478          ((and (< code 32) atsign)
    1479            (if (%str-member (setq char (code-char (logxor code 64)))
    1480                             "@CGHIJKLM[\\]^_")
     1479          (setq char (code-char (logxor code 64)))
     1480           (if (or colon (%str-member char "@CGHIJKLM[\\]^_"))
    14811481               (princ name stream)
    14821482               (progn
Note: See TracChangeset for help on using the changeset viewer.