Work in progress. Mostly bug fixing.

[sod] / src / module-proto.lisp

diff --git a/src/module-proto.lisp b/src/module-proto.lisp
index 93034a4..93b4f68 100644 (file)
--- 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 --------------------------------------------------