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
API CHANGE: Removed the OBJECT arg from attribute-value
[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
..
6786ceb
100644
(file)
--- a/
src/standard-descriptions/edit.lisp
+++ b/
src/standard-descriptions/edit.lisp
@@
-14,7
+14,7
@@
(class :editp nil))
(:in-description editable))
(class :editp nil))
(:in-description editable))
-(define-layered-function (setf attribute-value) (v o a)
+
#+nil
(define-layered-function (setf attribute-value) (v o a)
(:method (value object attribute)
(let ((setter (attribute-setter attribute)))
(if setter
(:method (value object attribute)
(let ((setter (attribute-setter attribute)))
(if setter
@@
-54,7
+54,9
@@
((attribute standard-attribute) display object &rest args)
(declare (ignore args))
((attribute standard-attribute) display object &rest args)
(declare (ignore args))
- (format t "Editabpe? ~A ~A" (attribute-label attribute) attribute))
+ (if (attribute-editp object attribute)
+ (format *display* "This is where we'd edit")
+ (call-next-method)))
\ No newline at end of file
\ No newline at end of file