Work in progress. Mostly bug fixing.

[sod] / src / module-proto.lisp

diff --git a/src/module-proto.lisp b/src/module-proto.lisp
index 93034a4113bad3e9b00f468f4f6990606cdbd1d7..93b4f689e311d1b75a84b9f8b490bd680f36504f 100644 (file)
--- 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))))
 
                 ,@(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 --------------------------------------------------
 ;;;----- That's all, folks --------------------------------------------------