# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1476537257 0
# Node ID ee0d61f418020e7db00fa44dbcfac5b298d19238
# Parent  96818717e72de6956a2d2e862fd774273b7ebdf4
Clean up `timing` macroexpansion a bit

diff -r 96818717e72d -r ee0d61f41802 losh.lisp
--- a/losh.lisp	Sat Oct 15 13:12:30 2016 +0000
+++ b/losh.lisp	Sat Oct 15 13:14:17 2016 +0000
@@ -760,14 +760,14 @@
 
   "
   (let ((timing-function (ecase time-type
-                           ((real-time) #'get-internal-real-time)
-                           ((run-time) #'get-internal-run-time)))
+                           ((real-time) 'get-internal-real-time)
+                           ((run-time) 'get-internal-run-time)))
         (since-var (or since-var (when (null per-var)
                                    iterate::*result-var*))))
     (with-gensyms (start-time current-time previous-time)
       `(progn
-        (with ,start-time = (funcall ,timing-function))
-        (for ,current-time = (funcall ,timing-function))
+        (with ,start-time = (,timing-function))
+        (for ,current-time = (,timing-function))
         ,@(when since-var
             `((for ,since-var = (- ,current-time ,start-time))))
         ,@(when per-var