X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-type.lisp;h=1563ca5ebbdafd91bd0d7772d72595e104b7ae91;hb=e0814eee6f6dea52db010b45a330100f2fe65832;hp=5950822c575461a6cbe2bba7648520fc02b01eac;hpb=165bb53b405ab95ce76615ab77cee8284df0a36e;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 5950822..1563ca5 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -381,12 +381,12 @@
 (defun fixed-values-op (types1 types2 rest2 operation)
   (declare (list types1 types2) (type ctype rest2) (type function operation))
   (let ((exact t))
-    (values (mapcar #'(lambda (t1 t2)
-			(multiple-value-bind (res win)
-			    (funcall operation t1 t2)
-			  (unless win
-			    (setq exact nil))
-			  res))
+    (values (mapcar (lambda (t1 t2)
+		      (multiple-value-bind (res win)
+			  (funcall operation t1 t2)
+			(unless win
+			  (setq exact nil))
+			res))
 		    types1
 		    (append types2
 			    (make-list (- (length types1) (length types2))
@@ -1714,8 +1714,8 @@
     ;; See whether dimensions are compatible.
     (cond ((not (or (eq dims1 '*) (eq dims2 '*)
 		    (and (= (length dims1) (length dims2))
-			 (every #'(lambda (x y)
-				    (or (eq x '*) (eq y '*) (= x y)))
+			 (every (lambda (x y)
+				  (or (eq x '*) (eq y '*) (= x y)))
 				dims1 dims2))))
 	   (values nil t))
 	  ;; See whether complexpness is compatible.