X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=5ddfde3be5cb01f5e0fcbfff532281d0f8686dd2;hb=245101f127d61e28b9c864c720eb17973469a904;hp=451003ad32632a048d537f302b4a502e282a4364;hpb=5e7911a06d41c8e374e218ff9654e0977c3f9aeb;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 451003a..5ddfde3 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -228,6 +228,7 @@
 ;;; The guts of the TIME macro. Compute overheads, run the (compiled)
 ;;; function, report the times.
 (defun %time (fun)
+  (declare (type function fun))
   (let (old-run-utime
 	new-run-utime
 	old-run-stime