X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=4d84e8c01cf2ec90ede1e0671e24b0d47fad18ef;hb=74a48d09e08aead6f67204878bdf9be4f448e1e8;hp=8c1b3084c45eb096d5c2b80e667c3bc2e78eea90;hpb=4ad052044a22f502d9dc6faf6dfe01f3bab84262;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 8c1b308..4d84e8c 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -462,8 +462,8 @@
 		  (,n-cache ,var-name))
 	      (declare (type fixnum ,n-index))
 	      ,@(sets)
-	      ,@(mapcar #'(lambda (i val)
-			    `(setf (svref ,n-cache ,i) ,val))
+	      ,@(mapcar (lambda (i val)
+			  `(setf (svref ,n-cache ,i) ,val))
 			(values-indices)
 			(values-names))
 	      (values)))))
@@ -479,8 +479,8 @@
 		  (dotimes (i nargs)
 		    (arg-sets `(setf (svref ,n-cache (+ ,n-index ,i)) nil)))
 		  (arg-sets))
-	      ,@(mapcar #'(lambda (i val)
-			    `(setf (svref ,n-cache ,i) ,val))
+	      ,@(mapcar (lambda (i val)
+			  `(setf (svref ,n-cache ,i) ,val))
 			(values-indices)
 			default-values))
 	    (values)))