yes, it works

Author: borkdude

src/sci/impl/analyzer.cljc

@@ -601,10 +601,10 @@
                              binding-name (if (symbol? t)
                                             (vary-meta binding-name
                                                        assoc :tag-class
-                                                       (or (interop/resolve-type-hint ctx t)
-                                                           (records/resolve-record-class ctx t)
-                                                           (throw-error-with-location
-                                                            (str "Unable to resolve classname: " t) t)))
+                                                       (delay (or (interop/resolve-type-hint ctx t)
+                                                                  (records/resolve-record-class ctx t)
+                                                                  (throw-error-with-location
+                                                                   (str "Unable to resolve classnamex: " t) t))))
                                             binding-name)])
                    v (analyze ctx binding-value)
                    new-iden (gensym)
@@ -1064,7 +1064,7 @@
                                 (areduce args idx _ret nil
                                          (when-let [t (:tag-class (meta (aget args idx)))]
                                            (vreset! has-types? true)
-                                           (aset arg-types idx t)))))
+                                           (aset arg-types idx (force t))))))
                       (with-meta (sci.impl.types/->Node
                                   (eval/eval-instance-method-invocation
                                    ctx bindings instance-expr meth-name field-access args arg-count

src/sci/impl/resolve.cljc

@@ -173,7 +173,7 @@
               #?@(:clj [[tag tag-class] (if-let [t (:tag m)]
                                           [t (:tag-class m)]
                                           (when-let [m (meta k)]
-                                            [(:tag m)]))])
+                                            [(:tag m) (:tag-class m)]))])
               mutable? (when track-mutable?
                          (when-let [m (some-> k meta)]
                            #?(:clj (or (:volatile-mutable m)
@@ -194,11 +194,7 @@
                                      nil))
                             #?@(:clj [tag (with-meta
                                             {:tag tag
-                                             :tag-class (or tag-class
-                                                            (interop/resolve-type-hint ctx tag)
-                                                            (records/resolve-record-class ctx tag)
-                                                            (throw-error-with-location
-                                                             (str "Unable to resolve classname: " tag) tag))})])
+                                             :tag-class tag-class})])
                             mutable? (vary-meta assoc :mutable true))]
                     v))]
           [k v]))

test/sci/interop_test.cljc

@@ -45,7 +45,7 @@
 
 #?(:clj
    (deftest clojure-parity-tests
-     (let [classes {:classes {'PublicFields PublicFields}}] 
+     (let [classes {:classes {'PublicFields PublicFields}}]
        (doseq [expr ['(.-x (PublicFields.))
                      '(.x (PublicFields.))
                      '(. (PublicFields.) instanceFoo)