X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftime.lisp;h=f9acccc0a8e4e35528393b0750eea6d9e6cfeeb6;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=2d7b0f77a34be3a4c21d532ef9cdd473b8fc16b3;hpb=e33fb894f991b2926d8f3bace9058e4c0b2c3a37;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 2d7b0f7..f9acccc 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -235,7 +235,7 @@
 (defmacro time (form)
   #!+sb-doc
   "Execute FORM and print timing information on *TRACE-OUTPUT*."
-  `(%time #'(lambda () ,form)))
+  `(%time (lambda () ,form)))
 
 ;;; Return all the data that we want TIME to report.
 (defun time-get-sys-info ()