X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Flate-format.lisp;h=998468b1ba9461c855218d696b8d9c753656ebd0;hb=09957fcf57b49ed5ae5f05d62ad12d7ddbfd8e1d;hp=27d2b3ab87b4566be66314ec92d11f71949ad583;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index 27d2b3a..998468b 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -655,14 +655,14 @@
   (expand-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
 	    (if *orig-args-available*
 		`(setf args (%format stream ,(expand-next-arg) orig-args args))
@@ -867,14 +867,14 @@
 		 (if *orig-args-available*
 		     `((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)))))
 			 (setf args
 			       (%format stream inside-string orig-args args))))
 		     (throw 'need-orig-args nil))
@@ -1104,10 +1104,10 @@
 		       (line-len '(or (sb!impl::line-length stream) 72)))
 		      (format-directive-params first-semi)
 		    `(setf extra-space ,extra line-len ,line-len))))
-	   ,@(mapcar #'(lambda (segment)
-			 `(push (with-output-to-string (stream)
-				  ,@(expand-directive-list segment))
-				segments))
+	   ,@(mapcar (lambda (segment)
+		       `(push (with-output-to-string (stream)
+				,@(expand-directive-list segment))
+			      segments))
 		     segments))
 	 (format-justification stream
 			       ,@(if newline-segment-p