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

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

diff --git a/src/description.lisp b/src/description.lisp
index d373ace..2ce2c81 100644 (file)
--- a/src/description.lisp
+++ b/src/description.lisp
@@ -31,7 +31,7 @@
 (defun find-attribute (description attribute-name &optional (errorp t))
   (or (find attribute-name (description-attributes description)
            :key #'attribute-name)
-      (when errorp (error "No attribute named ~A found in ~A" attribute-name description))))
+      (when errorp (error "No attribute named ~A found in ~A describing ~A" attribute-name description (described-object description)))))
 
 (define-layered-function description-active-descriptions (description)
   (:method ((description standard-description-object))
@@ -101,13 +101,7 @@
                        function))))))))
 
 
-(defmacro with-described-object ((object description &rest args)
-                                &body body)
-    `(funcall-with-described-object 
-      (lambda () ,@body)
-      ,object
-      ,description
-      ,@args))
+
                   
 (defmacro define-description (name &optional superdescriptions &body options)
   (let ((description-name (defining-description name)))