Commit 2c85e6ee authored by ryszard.szopa's avatar ryszard.szopa
Browse files

def-many-to-many takes in account changes in constraint adding.

darcs-hash:a4831abe95166e400a30df12a140c1919ceade8a
parent 8b1d49b0
......@@ -190,8 +190,8 @@ The connection-spec specifies the connection to be used with the link table."
(class2-method-name class1-name))
`(progn
(defclass ,table-name (dao)
((,class1-name :type ,class1-name :accessor ,class1-name)
(,class2-name :type ,class2-name :accessor ,class2-name))
((,class1-name :type ,class1-name :accessor ,class1-name :foreign t :on-delete :cascade)
(,class2-name :type ,class2-name :accessor ,class2-name :foreign t :on-delete :cascade))
;; A unique constraint here
;; or better no: thing of tags.
(:connection-spec ,@connection-spec)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment