X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbackend.lisp;h=8b9abe1dc586bcd95a2414da88e008e3ab52edaf;hb=80304981972c91c1b3f3fca75f36dacf1fecf307;hp=04c4e3510c1af48df08629ace4a33229dd4d1998;hpb=0a82f2db352cc348d2107a882e50af222ff97ed3;p=sbcl.git

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 04c4e35..8b9abe1 100644
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -151,19 +151,19 @@
 		(eval-when (:compile-toplevel :load-toplevel :execute)
 		  (defparameter *vm-support-routines* ',routines))
 		(defstruct (vm-support-routines (:copier nil))
-		  ,@(mapcar #'(lambda (routine)
-				`(,routine nil :type (or function null)))
+		  ,@(mapcar (lambda (routine)
+			      `(,routine nil :type (or function null)))
 			    routines))
 		,@(mapcar
-		   #'(lambda (name)
-		       `(defun ,name (&rest args)
-			  (apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-"
-						    name)
-				      *backend-support-routines*)
-				     (error "machine-specific support ~S ~
+		   (lambda (name)
+		     `(defun ,name (&rest args)
+			(apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-"
+						  name)
+				    *backend-support-routines*)
+				   (error "machine-specific support ~S ~
 					    routine undefined"
-					    ',name))
-				 args)))
+					  ',name))
+			       args)))
 		   routines))))
 
   (def-vm-support-routines
@@ -185,7 +185,7 @@
     make-old-fp-passing-location
     make-old-fp-save-location
     make-return-pc-save-location
-    make-argument-count-location
+    make-arg-count-location
     make-nfp-tn
     make-stack-pointer-tn
     make-number-stack-pointer-tn