If *print-case* is not :UPCASE, it seems that Mito fails to retrieve relationship fields via accessors. Example:
(setf *print-case* :downcase)
(deftable user ()
((name :col-type (:varchar 512)))))
(deftable tweet ()
((status :col-type (:varchar 512))))
((user :col-type user)))
(let* ((user (create-dao 'user :name "foo"))
(tweet (create-dao 'tweet :status "bar" :user user)))
(user tweet))The last expression returns nil, while it should return some #<USER {...}> object.
If
*print-case*is not:UPCASE, it seems that Mito fails to retrieve relationship fields via accessors. Example:The last expression returns
nil, while it should return some#<USER {...}>object.