X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffinal.lisp;h=5b9d1ba5f1a1b87eef1d9db6898e7d75c4e756e7;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=e3685dcd568195d1f244084bb8d94189b1cfc76e;hpb=e5f24ebc38e38c986df830fd1e4035d16bea4e5c;p=sbcl.git

diff --git a/src/code/final.lisp b/src/code/final.lisp
index e3685dc..5b9d1ba 100644
--- a/src/code/final.lisp
+++ b/src/code/final.lisp
@@ -34,19 +34,19 @@
     (sb!sys:without-gcing
      (setf *objects-pending-finalization*
 	   (delete object *objects-pending-finalization*
-		   :key #'(lambda (pair)
-			    (values (weak-pointer-value (car pair))))))))
+		   :key (lambda (pair)
+			  (values (weak-pointer-value (car pair))))))))
   nil)
 
 (defun finalize-corpses ()
   (setf *objects-pending-finalization*
-	(delete-if #'(lambda (pair)
-		       (multiple-value-bind (object valid)
-			   (weak-pointer-value (car pair))
-			 (declare (ignore object))
-			 (unless valid
-			   (funcall (cdr pair))
-			   t)))
+	(delete-if (lambda (pair)
+		     (multiple-value-bind (object valid)
+			 (weak-pointer-value (car pair))
+		       (declare (ignore object))
+		       (unless valid
+			 (funcall (cdr pair))
+			 t)))
 		   *objects-pending-finalization*))
   nil)