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

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index e362550..13c3480 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -120,14 +120,10 @@
        (defun ,defun-name (stream ,directive ,directives orig-args args)
 	 (declare (ignorable stream orig-args args))
 	 ,@(if lambda-list
-	       `((let ,(mapcar #'(lambda (var)
-				   `(,var
-				     (,(intern (concatenate
-						'string
-						"FORMAT-DIRECTIVE-"
-						(symbol-name var))
-					       (symbol-package 'foo))
-				      ,directive)))
+	       `((let ,(mapcar (lambda (var)
+				 `(,var
+				   (,(symbolicate "FORMAT-DIRECTIVE-" var)
+				    ,directive)))
 			       (butlast lambda-list))
 		   (values (progn ,@body) args)))
 	       `((declare (ignore ,directive ,directives))
@@ -229,7 +225,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