Fixed conflicts introduced in last merge from Vladimir

[clinton/lisp-on-lines.git] / src / mewa / slot-presentations.lisp

diff --git a/src/mewa/slot-presentations.lisp b/src/mewa/slot-presentations.lisp
index e0ddb79..09d1488 100644 (file)
--- a/src/mewa/slot-presentations.lisp
+++ b/src/mewa/slot-presentations.lisp
@@ -145,8 +145,9 @@
 
 
 (defaction add-to-has-many ((slot has-many-slot-presentation) instance)
-  (destructuring-bind (class home foreign) 
-      (multiple-value-funcall #'meta-model:explode-has-many instance (slot-name slot))
+  (mewa:ensure-instance-sync (parent slot))
+  (multiple-value-bindf (class home foreign) 
+      (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 :fill-gaps-only t)
@@ -230,4 +231,4 @@
          (progn
            (setf (instance (presentation slot)) (presentation-slot-value slot instance))
            (present (presentation slot)))
-         (<:as-html "--"))))
\ No newline at end of file
+         (<:as-html "--"))))