summaryrefslogtreecommitdiffstats
path: root/tests/common.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/common.tl')
-rw-r--r--tests/common.tl7
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))))