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

shared-initialize and foreign keys bugfix

darcs-hash:0b63a5e701ee513072ee0342dd8efa354f3667da
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)
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