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
127d3613
Commit
127d3613
authored
Sep 05, 2007
by
ryszard.szopa
Browse files
remove outdated documentation.
darcs-hash:03cc83f7913310863a606ba1d55c943613466151
parent
aa888af9
Changes
1
Hide whitespace changes
Inline
Side-by-side
db.lisp
View file @
127d3613
...
...
@@ -110,8 +110,8 @@ be reverted.)"
(
iter
(
for
slot
in
(
db-class-foreign-keys
class
))
(
let
((
closure
(
lambda
()
(
add-constraint
slot
:foreign-key
))))
;todo: in case of errors store the closure
(
handler-case
(
funcall
closure
)
(
handler-case
(
funcall
closure
)
(
database-error
()
(
setf
(
delayed-constraint
slot
)
closure
)
(
unless
(
member
class
(
db-class-unfinished-classes
class
)
...
...
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