HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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))
((attribute standard-attribute) display object &rest args)
(declare (ignore args))
- (format t "Editab
pe? ~A ~A" (attribute-label attribute) attribute
))
+ (format t "Editab
le? ~A ~A" (attribute-label attribute) (attribute-editp object attribute)
))
\ No newline at end of file
\ No newline at end of file