(def-view-class car
(standard-db-object standard-kb-object)
((car_no :db-kind :key)
(keeper)
(owner :db-kind :join
:db-info (:home-key :keeper
:foreign-key person_id
:retrieval :deferred
:join-class person))))
defines a database class car
where the person
object in the keeper
slot is retrieved from the person
table in the database using the value of the keeper
slot as key, only when queried. In the list of superclasses, standard-kb-object
should appear after standard-db-object
.