0.pre7.14:

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

diff --git a/src/code/time.lisp b/src/code/time.lisp
index e0d001f..4781333 100644 (file)
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -240,6 +240,7 @@
 ;;; 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))