X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/f2ff8a16385c1c4bc677c703a0b48d0255046456..81d7061052c90867a26b50e69e35f5d96b17686a:/src/standard-descriptions/edit.lisp?ds=sidebyside

diff --git a/src/standard-descriptions/edit.lisp b/src/standard-descriptions/edit.lisp
index d4a913e..2d8c42c 100644
--- 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