X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/5b0a2bdbdeabfd02923a9998e6e2dafa614b47f3..239fa5bd3dff0b38b0cebdd3438311f21c24ba4f:/src/module-proto.lisp

diff --git a/src/module-proto.lisp b/src/module-proto.lisp
index 93034a4..93b4f68 100644
--- a/src/module-proto.lisp
+++ b/src/module-proto.lisp
@@ -208,4 +208,9 @@ (defmacro define-module
 		 ,@(and truenamep `(:truename ,truename))
 		 ,@(and locationp `(:location ,location))))
 
+(export 'with-temporary-module)
+(defmacro with-temporary-module ((&key) &body body)
+  "Evaluate BODY within the context of a temporary module."
+  `(call-with-temporary-module (lambda () ,@body)))
+
 ;;;----- That's all, folks --------------------------------------------------