diff options
Diffstat (limited to 'tests/common.tl')
-rw-r--r-- | tests/common.tl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/common.tl b/tests/common.tl index cdfc6c6a..accbf1f7 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -39,3 +39,10 @@ (caseql (os-symbol) ((:linux :solaris :macos :android) (dlopen nil)) ((:cygwin) (dlopen "cygwin1.dll")))) + +(defmacro macro-time-let (:env env bindings . body) + (with-gensyms (invoke) + ^(macrolet ((,invoke () + (let ,bindings + (expand '(progn ,*body) ,env)))) + (,invoke)))) |