Commit 650df049 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

shared-initialize and foreign keys bugfix

parent 89a65261
......@@ -83,7 +83,10 @@ with the database."
(get-id (slot-value dao (slot-definition-name slot)))
(slot-value dao (slot-definition-name slot)))))
(assert (equal value-from-init value-from-db))))
(setf (slot-value dao (slot-definition-name slot)) value-from-db)))))
(setf (slot-value dao (slot-definition-name slot))
(if (foreign-type-p slot)
(make-instance (slot-definition-type) :id value-from-db)
(defun select-dao-fun (type test)
"Functional interface for SELECT-DAO."
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