Relationship queries fail when (setf *print-case* :downcase)

[Ambrevar]

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.

[vindarel]

reproduced here. (Thanks for the report!!)

[vindarel]

related: fukamachi/quri#24

[vindarel]

tested better by putting my changes in local-projects: it works for me©.