diff options
Diffstat (limited to 'tests/common.tl')
| -rw-r--r-- | tests/common.tl | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/tests/common.tl b/tests/common.tl index 82cefd48..4011583f 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -57,13 +57,6 @@ ((:cygwin :cygnal) (dlopen "cygwin1.dll")) (t (dlopen nil)))) -(defmacro macro-time-let (:env env bindings . body) - (with-gensyms (invoke) - ^(macrolet ((,invoke () - (let ,bindings - (expand '(progn ,*body) ,env)))) - (,invoke)))) - (defmacro with-temp-file ((name-var stream-var prefix) . body) ^(let* ((,stream-var (mkstemp ,prefix)) (,name-var (stream-get-prop ,stream-var :name))) |