X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fcall.lisp;h=a571adf7eae1f98bfe07d4d838a3b88a14c71e54;hb=e0814eee6f6dea52db010b45a330100f2fe65832;hp=8b3864393cde692d8cc47c4e0c93984723ee756b;hpb=165bb53b405ab95ce76615ab77cee8284df0a36e;p=sbcl.git

diff --git a/src/compiler/alpha/call.lisp b/src/compiler/alpha/call.lisp
index 8b38643..a571adf 100644
--- a/src/compiler/alpha/call.lisp
+++ b/src/compiler/alpha/call.lisp
@@ -661,11 +661,11 @@ default-value-8
 		 nargs-pass)
 
      ,@(when variable
-	 (mapcar #'(lambda (name offset)
-		     `(:temporary (:sc descriptor-reg
-				   :offset ,offset
-				   :to :eval)
-			 ,name))
+	 (mapcar (lambda (name offset)
+		   `(:temporary (:sc descriptor-reg
+				     :offset ,offset
+				     :to :eval)
+				,name))
 		 register-arg-names *register-arg-offsets*))
      ,@(when (eq return :fixed)
 	 '((:temporary (:scs (descriptor-reg) :from :eval) move-temp)))
@@ -709,11 +709,11 @@ default-value-8
 		       ,@(if variable
 			     `((inst subq csp-tn new-fp nargs-pass)
 			       ,@(let ((index -1))
-				   (mapcar #'(lambda (name)
-					       `(inst ldl ,name
-						      ,(ash (incf index)
-							    word-shift)
-						      new-fp))
+				   (mapcar (lambda (name)
+					     `(inst ldl ,name
+						    ,(ash (incf index)
+							  word-shift)
+						    new-fp))
 					   register-arg-names)))
 			     '((inst li (fixnumize nargs) nargs-pass))))
 		      ,@(if (eq return :tail)
@@ -1201,8 +1201,8 @@ default-value-8
 		,@(when translate
 		    `((:policy :fast-safe)
 		      (:translate ,translate)))
-		(:args ,@(mapcar #'(lambda (arg)
-				     `(,arg :scs (any-reg descriptor-reg)))
+		(:args ,@(mapcar (lambda (arg)
+				   `(,arg :scs (any-reg descriptor-reg)))
 				 args))
 		(:vop-var vop)
 		(:save-p :compute-only)