X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=fac1b02aa91c81a36e3b1d741bffab28810de24a;hb=e0814eee6f6dea52db010b45a330100f2fe65832;hp=1e93c38e5483f921fde988d152571cda79b19f60;hpb=165bb53b405ab95ce76615ab77cee8284df0a36e;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index 1e93c38..fac1b02 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -67,11 +67,11 @@
       (let ((var (first vars))
 	    (cases (sort cases #'type-test-order :key #'car)))
 	`((typecase ,var
-	    ,@(mapcar #'(lambda (case)
-			  `(,(first case)
-			    ,@(generate-number-dispatch (rest vars)
-							(rest error-tags)
-							(cdr case))))
+	    ,@(mapcar (lambda (case)
+			`(,(first case)
+			  ,@(generate-number-dispatch (rest vars)
+						      (rest error-tags)
+						      (cdr case))))
 		      cases)
 	    (t (go ,(first error-tags))))))
       cases))
@@ -879,12 +879,12 @@
 	  nil
 	  (macrolet ((foo (&rest stuff)
 		       `(typecase obj2
-			  ,@(mapcar #'(lambda (foo)
-					(let ((type (car foo))
-					      (fn (cadr foo)))
-					  `(,type
-					    (and (typep obj1 ',type)
-						 (,fn obj1 obj2)))))
+			  ,@(mapcar (lambda (foo)
+				      (let ((type (car foo))
+					    (fn (cadr foo)))
+					`(,type
+					  (and (typep obj1 ',type)
+					       (,fn obj1 obj2)))))
 				    stuff))))
 	    (foo
 	      (single-float eql)