X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fenv.lisp;h=bf41126775b2bb4f7646e59736107a82290688ed;hb=1dfcd0ed5fc81f4355101c1eeb990a1f7d089e40;hp=becccfaed3f78870119f5061ddb65d45d3a56dee;hpb=d5aafdd8ab6387e12bac187048ed322bc96fb79a;p=sbcl.git

diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp
index becccfa..bf41126 100644
--- a/src/pcl/env.lisp
+++ b/src/pcl/env.lisp
@@ -147,10 +147,10 @@
 
 (macrolet ((frob (&rest names)
 	     `(progn
-		,@(mapcar #'(lambda (name)
-			      `(defmethod ,name ((class cl:class))
-				 (funcall #',name
-					  (coerce-to-pcl-class class))))
+		,@(mapcar (lambda (name)
+			    `(defmethod ,name ((class cl:class))
+			       (funcall #',name
+					(coerce-to-pcl-class class))))
 			  names))))
   (frob
     class-direct-slots