Commit 127d3613 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

remove outdated documentation.

parent aa888af9
......@@ -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)
(funcall closure)
(database-error ()
(setf (delayed-constraint slot) closure)
(unless (member class (db-class-unfinished-classes class)
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