diff options
Diffstat (limited to 'tests/011/macros-1.txr')
| -rw-r--r-- | tests/011/macros-1.txr | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/011/macros-1.txr b/tests/011/macros-1.txr index 946cbf2e..81199c12 100644 --- a/tests/011/macros-1.txr +++ b/tests/011/macros-1.txr @@ -1,10 +1,11 @@ @(do (progn - (defmacro rem-num (:env menv some-form) - (let ((expanded (macroexpand some-form menv))) - (if (numberp (car expanded)) - (cdr expanded) - some-form))) + (macro-time + (defmacro rem-num (:env menv some-form) + (let ((expanded (macroexpand some-form menv))) + (if (numberp (car expanded)) + (cdr expanded) + some-form)))) (prinl (macrolet ((foo () '(1 list 42)) |