Read from an input stream until a CRLF.

readline.clj

(defn read-line-crlf [instream]
  (loop [sb (StringBuilder.) has-cr false]
    (let [byt (.read instream)]
      (when (= -1 byt)
        (throw (java.io.IOException. "Unexpected end of input")))
      (let [chr (char byt)]
        (if (and has-cr (= \newline chr))
          (.substring sb 0 (- (.length sb) 1))
          (recur
            (.append sb chr)
            (if (= \return chr) true false)))))))