Support clojure.lang.MapEntry/create

sci

@@ -1 +1 @@
-Subproject commit 8d9f1d2e29b5d359f92b976d45786f7d5e415468
+Subproject commit 617bf809d1810b48cab24980864b85249c2a9d8b

src/babashka/impl/classes.clj

@@ -165,7 +165,10 @@
                {:name "getResourceAsStream"}
                {:name "getParent"}]}
     clojure.lang.ARef
-    {:methods [{:name "getWatches"}]}})
+    {:methods [{:name "getWatches"}]}
+    clojure.lang.MapEntry
+    {:allPublicConstructors true
+     :methods [{:name "create"}]}})
 
 (def custom-map
   (cond->
@@ -530,7 +533,6 @@
           ~@(when features/yaml? '[org.yaml.snakeyaml.error.YAMLException])
           ~@(when features/hsqldb? '[org.hsqldb.jdbcDriver])]
     :constructors [clojure.lang.Delay
-                   clojure.lang.MapEntry
                    clojure.lang.LineNumberingPushbackReader
                    java.io.EOFException]
     :methods [borkdude.graal.LockFix] ;; support for locking

test/babashka/interop_test.clj

@@ -22,3 +22,8 @@
 
 (deftest domain-sockets-test
   (is (= :success (bb nil (slurp "test-resources/domain_sockets.bb")))))
+
+(deftest map-entry-create-test
+  (is (true? (bb nil "(= (first {1 2})
+                         (clojure.lang.MapEntry. 1 2)
+                         (clojure.lang.MapEntry/create 1 2))"))))