X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=8adb473b45fc82c642bb2aa22b6db214750fc9f7;hb=74a48d09e08aead6f67204878bdf9be4f448e1e8;hp=c061ddbeee15bda10e4bba872bfbfb04d9ca3c3b;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index c061ddb..8adb473 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -61,11 +61,11 @@
 
 (eval-when (:compile-toplevel :execute)
   (sb!xc:defmacro pick-vector-type (type &rest specs)
-    `(cond ,@(mapcar #'(lambda (spec)
-			 `(,(if (eq (car spec) t)
-				t
-				`(subtypep ,type ',(car spec)))
-			   ,@(cdr spec)))
+    `(cond ,@(mapcar (lambda (spec)
+		       `(,(if (eq (car spec) t)
+			      t
+			      `(subtypep ,type ',(car spec)))
+			 ,@(cdr spec)))
 		     specs))))
 
 ;;; These functions are used in the implementation of MAKE-ARRAY for
@@ -492,20 +492,20 @@
   "Return the type of the elements of the array"
   (let ((widetag (widetag-of array)))
     (macrolet ((pick-element-type (&rest stuff)
-		 `(cond ,@(mapcar #'(lambda (stuff)
-				      (cons
-				       (let ((item (car stuff)))
-					 (cond ((eq item t)
-						t)
-					       ((listp item)
-						(cons 'or
-						      (mapcar (lambda (x)
-								`(= widetag ,x))
-							      item)))
-					       (t
-						`(= widetag ,item))))
-				       (cdr stuff)))
-						   stuff))))
+		 `(cond ,@(mapcar (lambda (stuff)
+				    (cons
+				     (let ((item (car stuff)))
+				       (cond ((eq item t)
+					      t)
+					     ((listp item)
+					      (cons 'or
+						    (mapcar (lambda (x)
+							      `(= widetag ,x))
+							    item)))
+					     (t
+					      `(= widetag ,item))))
+				     (cdr stuff)))
+				  stuff))))
       ;; FIXME: The data here are redundant with
       ;; *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*.
       (pick-element-type
@@ -930,9 +930,9 @@
 
 (defun zap-array-data-aux (old-data old-dims offset new-data new-dims)
   (declare (fixnum offset))
-  (let ((limits (mapcar #'(lambda (x y)
-			    (declare (fixnum x y))
-			    (1- (the fixnum (min x y))))
+  (let ((limits (mapcar (lambda (x y)
+			  (declare (fixnum x y))
+			  (1- (the fixnum (min x y))))
 			old-dims new-dims)))
     (macrolet ((bump-index-list (index limits)
 		 `(do ((subscripts ,index (cdr subscripts))