X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-format.lisp;h=78001b916ba15dc0d00192aa889fbeb75578d2ad;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=e3625505d1780b93c2932c4c4a66f7257d934991;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index e362550..78001b9 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -229,7 +229,10 @@
     (cond (name
 	   (write-string (string-capitalize name) stream))
 	  ((<= 0 (char-code char) 31)
-	   ;; Print control characters as "^"<char>
+	   ;; Print control characters as "^"<char>. (This seems to be
+	   ;; old pre-ANSI behavior, but ANSI just says that the "#^"
+	   ;; sequence is undefined and not reserved for the user, so
+	   ;; this behavior should be ANSI-compliant.)
 	   (write-char #\^ stream)
 	   (write-char (code-char (+ 64 (char-code char))) stream))
 	  (t