X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=ac20fce46a7c2f9435e8d51d21783a802ad735ad;hb=dec94b039e8ec90baf21463df839a6181de606f6;hp=9ae42fcbfb9b69d2a1916c0269c611ee1c8119ed;hpb=772659782631839f87fe059a45ecb28b933e298b;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 9ae42fc..ac20fce 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -234,19 +234,9 @@
 
 (defmacro time (form)
   #!+sb-doc
-  "Evaluates the Form and prints timing information on *Trace-Output*."
+  "Execute FORM and print 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)
-  ;; This is just a placeholder as of the switch from IR1 interpreter
-  ;; to bytecode interpreter. Someday it might make sense to complain
-  ;; about bytecoded FUN and/or compile it to native code, so I've
-  ;; left the placeholder in place, but as of sbcl-0.7.0 it's not
-  ;; obvious how to do the right thing easily, so I haven't actually 
-  ;; done it. -- WHN
-  fun)
-
 ;;; Return all the data that we want TIME to report.
 (defun time-get-sys-info ()
   (multiple-value-bind (user sys faults) (sb!sys:get-system-info)
@@ -255,8 +245,7 @@
 ;;; The guts of the TIME macro. Compute overheads, run the (compiled)
 ;;; function, report the times.
 (defun %time (fun)
-  (let ((fun (massage-time-function fun))
-	old-run-utime
+  (let (old-run-utime
 	new-run-utime
 	old-run-stime
 	new-run-stime