Changeset 9046 for trunk

Timestamp:

Apr 8, 2008, 2:52:04 AM (12 years ago)

Author:

gz

Message:

Small fix for ~@:C

File:

• trunk/source/lib/format.lisp (modified) (1 diff)

trunk/source/lib/format.lisp

@@ -1477 +1477 @@
            (write-char char stream))
           ((and (< code 32) atsign)
-           (if (%str-member (setq char (code-char (logxor code 64)))
-                            "@CGHIJKLM[\\]^_")
+           (setq char (code-char (logxor code 64)))
+           (if (or colon (%str-member char "@CGHIJKLM[\\]^_"))
                (princ name stream)
                (progn