tons of small changes to bring this up to date with maxclaims 2.0

[clinton/lisp-on-lines.git] / src / description-class.lisp

diff --git a/src/description-class.lisp b/src/description-class.lisp
index e599444..bba188e 100644 (file)
--- 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)))
 
    (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 
 (defun initialize-effective-attribute-values-for-description-class (class description attribute-objects)
 
     (loop