fixed layer ordering.
[clinton/lisp-on-lines.git] / src / relational-attributes.lisp
index 8766be2..5485515 100644 (file)
 (defattribute many-to-many ()
   ())
 
-(define-layered-method attribute-value (object (attribute many-to-many))
-  (call-next-method))
+
 
 (defdisplay (:description (attribute many-to-many))
-    (let ((instances (select-instances object))
+  (let ((instances (select-instances object t))
        new-instance)
     (<:ul
      (<:li (<ucw:button :action (add-new-relation component object (getp slot-name))
-                        (<:as-html "Add New")))
+                       (<:as-html "Add New")))
      (<:li  (<ucw:button :action (add-new-relation component object new-instance)
                         (<:as-html "Add:"))
            (<ucw:select :accessor new-instance