Add constructors for Delay and MapEntry

src/babashka/impl/classes.clj

@@ -91,19 +91,18 @@
               java.util.zip.GZIPInputStream
               java.util.zip.GZIPOutputStream
               ]
-        :constructors []
+        :constructors [clojure.lang.Delay
+                       clojure.lang.MapEntry
+                       clojure.lang.LineNumberingPushbackReader]
         :methods [borkdude.graal.LockFix ;; support for locking
                   sun.net.www.http.PosterOutputStream ;; support for clj-http-lite
                   sun.net.www.protocol.https.HttpsURLConnectionImpl ;; support for clj-http-lite
                   sun.net.www.protocol.http.HttpURLConnection$HttpInputStream ;; support for clj-http-lite
                   ]
         :fields [clojure.lang.PersistentQueue]
-        :instance-checks [clojure.lang.Delay
-                          clojure.lang.ExceptionInfo
+        :instance-checks [clojure.lang.ExceptionInfo
                           clojure.lang.IObj
-                          clojure.lang.IEditableCollection
-                          clojure.lang.LineNumberingPushbackReader
-                          clojure.lang.MapEntry]
+                          clojure.lang.IEditableCollection]
         :custom {clojure.lang.LineNumberingPushbackReader {:allPublicConstructors true
                                                            :allPublicMethods true}
                  java.lang.Thread

test/babashka/main_test.clj

@@ -328,6 +328,12 @@
   (is (true? (bb nil "(nil? *command-line-args*)")))
   (is (= ["1" "2" "3"] (bb nil "*command-line-args*" "1" "2" "3"))))
 
+(deftest need-constructors-test
+  (testing "the clojure.lang.Delay constructor works"
+    (is (= 1 (bb nil "@(delay 1)"))))
+  (testing "the clojure.lang.MapEntry constructor works"
+    (is (true? (bb nil "(= (first {1 2}) (clojure.lang.MapEntry. 1 2))")))))
+
 ;;;; Scratch
 
 (comment