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))))