X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=1f4f79332a980b1e2138d4cdbbe6c6cde94f600c;hb=25e76ec2b1083ac6a4bba42af7ad7b5a8239f2b8;hp=20a3c03102b370c73999a93841f720301d726bf5;hpb=f5133ab2ffcddbcdb330cbbceff3af8d66673ce8;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index 20a3c03..1f4f793 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -441,6 +441,7 @@ Lisp process."
   (flet ((frob ()
 	   (let ((start (get-internal-ticks))
 	         (fun (symbol-function 'compute-overhead-aux)))
+             (declare (type function fun))
 	     (dotimes (i *timer-overhead-iterations*)
 	       (funcall fun fun))
 	     (/ (float (- (get-internal-ticks) start))