Infinite Sequence of packets from capture interface

gistfile1.clj

(ns netflow.packet
  (:import jpcap.JpcapCaptor)
  (:import jpcap.packet.Packet))

(def captor (JpcapCaptor/openFile "mytrace.pcap"))

(defn packet-seq [captor]
  (let [packet (.getPacket captor)]
    (when-not (= (Packet/EOF) packet)
      (lazy-seq (cons packet (packet-seq captor))))))

(doseq [packet (packet-seq captor)] 
  (println packet))