[Openmcl-cvs-notifications] r9046 - /trunk/source/lib/format.lisp

[gz at clozure.com]

Author: gz
Date: Mon Apr  7 22:52:04 2008
New Revision: 9046

Log:
Small fix for ~@:C

Modified:
    trunk/source/lib/format.lisp

Modified: trunk/source/lib/format.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/format.lisp (original)
+++ trunk/source/lib/format.lisp Mon Apr  7 22:52:04 2008
@@ -1476,8 +1476,8 @@
           ((not (or atsign colon))
            (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
                  (write-char #\^ stream)