- "Evaluates the Form and prints timing information on *Trace-Output*."
- `(%time #'(lambda () ,form)))
-
-;;; Try to compile the closure arg to %TIME if it is interpreted.
-(defun massage-time-function (fun)
- (cond
- #!+sb-interpreter
- ((sb!eval:interpreted-function-p fun)
- (multiple-value-bind (def env-p) (function-lambda-expression fun)
- (declare (ignore def))
- (cond
- (env-p
- (warn "non-null environment for TIME form, forced to interpret.~@
- Compiling the entire form will produce more accurate times.")
- fun)
- (t
- (compile nil fun)))))
- (t fun)))
+ "Execute FORM and print timing information on *TRACE-OUTPUT*."
+ `(%time (lambda () ,form)))