input.clj

;; This version works great! The bytes match.
(defn input-stream
  "Attempts to coerce the given argument to an input stream, allowing
  for gzip format."
  [arg]
  (try
      (GZIPInputStream. (io/input-stream arg))
      (catch java.io.IOException e
        (io/input-stream arg))))

;; this way, using the let macro, adds two random (or, at, least, unexpected)
;; bytes onto the front of the GZIPInputStream.
(defn input-stream
  "Attempts to coerce the given argument to an input stream, allowing
  for gzip format."
  [arg]
  (let [instream (io/input-stream arg)]
    (try
      (GZIPInputStream. instream)
      (catch java.io.IOException e
        instream))))