0.pre7.122:

[sbcl.git] / src / code / final.lisp

diff --git a/src/code/final.lisp b/src/code/final.lisp
index e3685dc..5b9d1ba 100644 (file)
--- 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)