X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=b4b6bf561f65c1569d65fe0fab60125facfdce4d;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=a129f24ec1567c84602397dc38d53fa68917adc7;hpb=0a82f2db352cc348d2107a882e50af222ff97ed3;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index a129f24..b4b6bf5 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -21,13 +21,12 @@
   generally expand into additional text to be output, usually consuming one
   or more of the FORMAT-ARGUMENTS in the process. A few useful directives
   are:
-	~A or ~nA     Prints one argument as if by PRINC
-	~S or ~nS     Prints one argument as if by PRIN1
-	~D or ~nD     Prints one argument as a decimal integer
-	~%	    Does a TERPRI
-	~&	    Does a FRESH-LINE
-
-	 where n is the width of the field in which the object is printed.
+        ~A or ~nA   Prints one argument as if by PRINC
+        ~S or ~nS   Prints one argument as if by PRIN1
+        ~D or ~nD   Prints one argument as a decimal integer
+        ~%          Does a TERPRI
+        ~&          Does a FRESH-LINE
+  where n is the width of the field in which the object is printed.
 
   DESTINATION controls where the result will go. If DESTINATION is T, then
   the output is sent to the standard output stream. If it is NIL, then the
@@ -153,7 +152,7 @@
 	 (when ,params
 	   (error 'format-error
 		  :complaint
-		  "too many parameters, expected no more than ~D"
+		  "too many parameters, expected no more than ~W"
 		  :arguments (list ,(length specs))
 		  :offset (caar ,params)))
 	 ,@body))))
@@ -833,8 +832,8 @@
 	    (if (<= 0 posn (length orig-args))
 		(setf args (nthcdr posn orig-args))
 		(error 'format-error
-		       :complaint "Index ~D is out of bounds. (It should ~
-				   have been between 0 and ~D.)"
+		       :complaint "Index ~W is out of bounds. (It should ~
+				   have been between 0 and ~W.)"
 		       :arguments (list posn (length orig-args))))))
       (if colonp
 	  (interpret-bind-defaults ((n 1)) params
@@ -846,8 +845,8 @@
 		       (setf args (nthcdr new-posn orig-args))
 		       (error 'format-error
 			      :complaint
-			      "Index ~D is out of bounds. (It should 
-			       have been between 0 and ~D.)"
+			      "Index ~W is out of bounds. (It should 
+			       have been between 0 and ~W.)"
 			      :arguments
 			      (list new-posn (length orig-args))))))))
 	  (interpret-bind-defaults ((n 1)) params
@@ -863,14 +862,14 @@
   (interpret-bind-defaults () params
     (handler-bind
 	((format-error
-	  #'(lambda (condition)
-	      (error 'format-error
-		     :complaint
-		     "~A~%while processing indirect format string:"
-		     :arguments (list condition)
-		     :print-banner nil
-		     :control-string string
-		     :offset (1- end)))))
+	  (lambda (condition)
+	    (error 'format-error
+		   :complaint
+		   "~A~%while processing indirect format string:"
+		   :arguments (list condition)
+		   :print-banner nil
+		   :control-string string
+		   :offset (1- end)))))
       (if atsignp
 	  (setf args (%format stream (next-arg) orig-args args))
 	  (%format stream (next-arg) (next-arg))))))
@@ -1003,14 +1002,15 @@
 	       (if (zerop posn)
 		   (handler-bind
 		       ((format-error
-			 #'(lambda (condition)
-			     (error 'format-error
-				    :complaint
+			 (lambda (condition)
+			   (error
+			    'format-error
+			    :complaint
 			    "~A~%while processing indirect format string:"
-				    :arguments (list condition)
-				    :print-banner nil
-				    :control-string string
-				    :offset (1- end)))))
+			    :arguments (list condition)
+			    :print-banner nil
+			    :control-string string
+			    :offset (1- end)))))
 		     (%format stream insides orig-args args))
 		   (interpret-directive-list stream insides
 					     orig-args args)))
@@ -1142,13 +1142,13 @@
     (if per-line-p
 	(pprint-logical-block
 	    (stream arg :per-line-prefix prefix :suffix suffix)
-	  (let ((*logical-block-popper* #'(lambda () (pprint-pop))))
+	  (let ((*logical-block-popper* (lambda () (pprint-pop))))
 	    (catch 'up-and-out
 	      (interpret-directive-list stream insides
 					(if atsignp orig-args arg)
 					arg))))
 	(pprint-logical-block (stream arg :prefix prefix :suffix suffix)
-	  (let ((*logical-block-popper* #'(lambda () (pprint-pop))))
+	  (let ((*logical-block-popper* (lambda () (pprint-pop))))
 	    (catch 'up-and-out
 	      (interpret-directive-list stream insides
 					(if atsignp orig-args arg)