X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=9ae42fcbfb9b69d2a1916c0269c611ee1c8119ed;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=4781333814d5a6cb138d573441669a91953e0580;hpb=31361af9eb64344f521abbb245ea784c76c746e5;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 4781333..9ae42fc 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -239,19 +239,13 @@
 
 ;;; 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)))
+  ;; 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 ()