dao.lisp: def-many-to-many
Wed Sep 19 18:31:08 PDT 2007 Ryszard Szopa <ryszard.szopa@gmail.com>
* dao.lisp: def-many-to-many
Error in UNRELATEDP definition in macro DEF-MANY-TO-MANY corrected.
diff -rN -u old-submarine/dao.lisp new-submarine/dao.lisp
--- old-submarine/dao.lisp 2014-07-24 22:19:06.000000000 -0700
+++ new-submarine/dao.lisp 2014-07-24 22:19:06.000000000 -0700
@@ -244,7 +244,7 @@
(relate-method object2 object1 relation weight))
(defmethod unrelate-method ((object1 ,class1-name) (object2 ,class2-name) (relation ,(if name `(eql ',name) 'null)))
- (delete-dao (car (relatedp object1 object2 relation))))
+ (delete-dao (car (relatedp object1 object2 :relation relation))))
(defmethod unrelate-method ((object2 ,class2-name) (object1 ,class1-name) relation)
(unrelate-method object1 object2 relation)))))