X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/6de8d30004efc9337b8c40d2ff2d0a76651d23eb..e8d4fa4537a1655714ad8bbbf9b7ba2d85ead959:/src/standard-descriptions/edit.lisp?ds=inline

diff --git a/src/standard-descriptions/edit.lisp b/src/standard-descriptions/edit.lisp
index 2d8c42c..6786ceb 100644
--- a/src/standard-descriptions/edit.lisp
+++ b/src/standard-descriptions/edit.lisp
@@ -14,7 +14,7 @@
    (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
@@ -54,7 +54,9 @@
   ((attribute standard-attribute) display object &rest args)
   
   (declare (ignore args))
-  (format t "Editable? ~A ~A" (attribute-label attribute) (attribute-editp object attribute)))
+  (if (attribute-editp object attribute)
+      (format *display* "This is where we'd edit")
+      (call-next-method)))
 
 
 		       
\ No newline at end of file