simplified slot access somewhat. layered slots still a little screwy.

[clinton/lisp-on-lines.git] / src / standard-descriptions / edit.lisp

diff --git a/src/standard-descriptions/edit.lisp b/src/standard-descriptions/edit.lisp
index d4a913e..2d8c42c 100644 (file)
--- a/src/standard-descriptions/edit.lisp
+++ b/src/standard-descriptions/edit.lisp
@@ -54,7 +54,7 @@
   ((attribute standard-attribute) display object &rest args)
   
   (declare (ignore args))
-  (format t "Editabpe? ~A ~A" (attribute-label attribute) attribute))
+  (format t "Editable? ~A ~A" (attribute-label attribute) (attribute-editp object attribute)))
 
 
                       
\ No newline at end of file