Allow keywords in `timing` time type argument
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sat, 15 Oct 2016 13:14:57 +0000 |
| parents |
ee0d61f41802
|
| children |
56f6ff3b225f
|
| branches/tags |
(none) |
| files |
losh.lisp |
Changes
--- 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)