X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..c91b90c3bfd3d3e68cc3d3ff3f431d1e73920061:/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 @@
 		 ,@(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 --------------------------------------------------