X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/6de8d30004efc9337b8c40d2ff2d0a76651d23eb..e8d4fa4537a1655714ad8bbbf9b7ba2d85ead959:/src/display.lisp?ds=sidebyside

diff --git a/src/display.lisp b/src/display.lisp
index 28957a9..f9998a7 100644
--- a/src/display.lisp
+++ b/src/display.lisp
@@ -21,6 +21,7 @@
   (let ((*description* description)
 	(*display* display)
 	(*object*  object))
+    (dletf (((described-object description) object))
     (contextl::funcall-with-special-initargs  
       (loop 
 	 :for (key val) :on args :by #'cddr
@@ -31,14 +32,14 @@
 	(contextl::funcall-with-special-initargs  
 	 (let ((attribute (find-attribute description 'active-attributes)))	
 	   (when attribute
-	     (loop for spec in (attribute-value object attribute)
+	     (loop for spec in (attribute-value attribute)
 		  if (listp spec)
 		  collect (cons (or 
 				 (find-attribute description (car spec))
 						 (error "No attribute matching ~A" (car spec)))
 				 (cdr spec)))))
      (lambda ()
-       (call-next-method)))))))
+       (call-next-method))))))))