clojure: write to bytearrayinputstream

write-to-bytearrayinputstream.clj

;; write
(def write-bs
  (let [baos (java.io.ByteArrayOutputStream.)]
    (with-open [oos (java.io.ObjectOutputStream. baos)]
      (.writeObject oos "hello"))
    (.toByteArray baos)))

;; read bs
(defn read-bs
  [bs]
  (with-open [o (java.io.ObjectInputStream. (java.io.ByteArrayInputStream. bs))]
    (.readObject o)))
  
;;=> (read-bs write-bs)
;;"hello"