Commit 03d1094f authored by ryszard.szopa's avatar ryszard.szopa
Browse files

apply-unique-constraints

darcs-hash:397ee7914e0dd3d01487b5f743f79617a638cf52
parent 699ecb97
......@@ -117,8 +117,11 @@ be reverted.)"
(unless (member class (db-class-unfinished-classes class)
:test (lambda (x y)
(eql (class-name x) (class-name y))))
(push class (db-class-unfinished-classes class)))
)))))
(push class (db-class-unfinished-classes class))))))))
(defmethod apply-unique-constraints ((class db-class))
(iter (for slot in (db-class-unique-keys class))
(add-constraint slot :unique)))
(define-condition sql-error (simple-error)
((table :initarg :table-name :reader table-name))
......
Markdown is supported
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