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

diff --git a/src/code/final.lisp b/src/code/final.lisp
index 5b9d1ba..b4a920f 100644
--- a/src/code/final.lisp
+++ b/src/code/final.lisp
@@ -14,6 +14,7 @@
 (defvar *objects-pending-finalization* nil)
 
 (defun finalize (object function)
+  (declare (type function function))
   #!+sb-doc
   "Arrange for FUNCTION to be called when there are no more references to
    OBJECT."
@@ -45,7 +46,7 @@
 			 (weak-pointer-value (car pair))
 		       (declare (ignore object))
 		       (unless valid
-			 (funcall (cdr pair))
+			 (funcall (the function (cdr pair)))
 			 t)))
 		   *objects-pending-finalization*))
   nil)