(and (first stream) (close))

twitter-straem.clj

(ns twitter-stream
  (:require [http.async.client :as c]
            [org.danlarkin.json :as j]))

(def u ".")
(def p ".")

(defn track [s]
  (let [resp (c/stream-seq :post "http://stream.twitter.com/1/statuses/filter.json"
                                          :body {"track" (str s)}
                                          :auth {:user u :password p})]
   (println (first (c/string resp)))))

(track "football")
(c/close)