Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
submarine
submarine
Commits
03d1094f
Commit
03d1094f
authored
Sep 04, 2007
by
ryszard.szopa
Browse files
apply-unique-constraints
darcs-hash:397ee7914e0dd3d01487b5f743f79617a638cf52
parent
699ecb97
Changes
1
Hide whitespace changes
Inline
Side-by-side
db.lisp
View file @
03d1094f
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment