X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=10641b39f89bec0172d80cd11a6b620871f0e84b;hb=9ef324a619b3ea13ba688d4be2ef22931e62a744;hp=54c0730708298e7930ceee577c358ca7dcc40324;hpb=cd2c70c8b5d4dcc62b968f5a9bedd3c9c8698e82;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 54c0730..10641b3 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -3209,6 +3209,7 @@ initially undefined function references:~2%")
 	(let ((package (find-package (sb-cold:package-data-name pd))))
 	  (labels (;; Call FN on every node of the TREE.
 		   (mapc-on-tree (fn tree)
+                                 (declare (type function fn))
 				 (typecase tree
 				   (cons (mapc-on-tree fn (car tree))
 					 (mapc-on-tree fn (cdr tree)))