print-method on nested objects doesn't get triggered correctly

[borkdude]

Consider:

$ bbm1 -e "(deftype Foo [x]) (defmethod print-method Foo [x writer] (print-method (.-x x) writer)) (prn (->Foo 1))"
1

but:

$ bbm1 -e "(deftype Foo [x]) (defmethod print-method Foo [x writer] (print-method (.-x x) writer)) (prn [(->Foo 1)])"
[#user.Foo{:x 1}]

Perhaps we will have to find another way to implement print-method, e.g. define a print-method for sci.impl.records.SciRecord which dynamically dispatches to a print-function that is registered via our internal print-method.

One such point could be in the multi-fn-add-method-impl which we could pass the context.

[borkdude]

Relates to #726