0.8.0.73:

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

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 451003a..5ddfde3 100644 (file)
--- 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