whole bunch of cleanups so we build

darcs-hash:20050621104829-39164-2300ee2103ef36ac2567fd562c8865b716351af6.gz

diff --git a/src/mewa/slot-presentations.lisp b/src/mewa/slot-presentations.lisp
index 6e46f0d..fce3887 100644 (file)
--- a/src/mewa/slot-presentations.lisp
+++ b/src/mewa/slot-presentations.lisp
@@ -85,7 +85,6 @@
       (when (ucw::parent slot) 
        (setf (component.place pres) (component.place (ucw::parent slot))))
       (when i (<ucw:render-component :component pres))))
       (when (ucw::parent slot) 
        (setf (component.place pres) (component.place (ucw::parent slot))))
       (when i (<ucw:render-component :component pres))))

-      ))

 
 
 
 
 
 


@@ -125,14 +124,10 @@
   "hack around m-v-b"
   (multiple-value-bind (s h f) (meta-model:explode-has-many instance (slot-name slot))
     (list s h f)))
   "hack around m-v-b"
   (multiple-value-bind (s h f) (meta-model:explode-has-many instance (slot-name slot))
     (list s h f)))

-((jci (get-join-class-info slot instance))
-        (class (first jci))
-        (home (second jci))
-        (foreign (third jci)))

 
 (defaction add-to-has-many ((slot has-many-slot-presentation) instance)
   (destructuring-bind (class home foreign) 
 
 (defaction add-to-has-many ((slot has-many-slot-presentation) instance)
   (destructuring-bind (class home foreign) 

-      (maxwell-web-gui::multiple-value-funcall #'meta-model:explode-has-many instance (slot-name slot))
+      (multiple-value-funcall #'meta-model:explode-has-many instance (slot-name slot))

     (let ((new (make-instance class)))
       (setf (slot-value new foreign) (slot-value instance home))
       (meta-model:sync-instance new)
     (let ((new (make-instance class)))
       (setf (slot-value new foreign) (slot-value instance home))
       (meta-model:sync-instance new)