X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/4644082451f92f7a060e47be6b9967acf8412c7f..f56d6e7e926f9c3f968325e244794ff748435ac3:/src/description-class.lisp

diff --git a/src/description-class.lisp b/src/description-class.lisp
index e599444..bba188e 100644
--- a/src/description-class.lisp
+++ b/src/description-class.lisp
@@ -96,6 +96,14 @@
    (remove 'described-object (class-slots (class-of description))
 	   :key #'slot-definition-name)))
 
+(defmacro with-described-object ((object description &rest args)
+				 &body body)
+    `(funcall-with-described-object 
+      (lambda () ,@body)
+      ,object
+      ,description
+      ,@args))
+
 (defun initialize-effective-attribute-values-for-description-class (class description attribute-objects)
 
     (loop