# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1476537297 0
# Node ID 756273274876ca232584a772a2e1397fe66b1c5d
# Parent  ee0d61f418020e7db00fa44dbcfac5b298d19238
Allow keywords in `timing` time type argument

diff -r ee0d61f41802 -r 756273274876 losh.lisp
--- a/losh.lisp	Sat Oct 15 13:14:17 2016 +0000
+++ b/losh.lisp	Sat Oct 15 13:14:57 2016 +0000
@@ -760,8 +760,8 @@
 
   "
   (let ((timing-function (ecase time-type
-                           ((real-time) 'get-internal-real-time)
-                           ((run-time) 'get-internal-run-time)))
+                           ((:real-time real-time) 'get-internal-real-time)
+                           ((:run-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)