dpsutton

(let [addr (java.net.UnixDomainSocketAddress/of "/tmp/222")
      sc (doto (java.nio.channels.ServerSocketChannel/open java.net.StandardProtocolFamily/UNIX)
           (.bind addr))]
  (while true
    (let [c (.accept sc)]
      (future
        (let [in (java.nio.channels.Channels/newInputStream c)
              out (java.nio.channels.Channels/newOutputStream c)]
          (binding [*in* (clojure.lang.LineNumberingPushbackReader.
                          (clojure.java.io/reader in))