 ;;
 ;; Reply dispatching
 ;;
-
-
-
 (defn reply-type
   ([#^BufferedReader reader]
      (char (.read reader))))

           [java.net Socket]))



(def *cr* 0x0d)
(def *lf* 0x0a)

(defn- trim [#^String s] (.trim s))
(defn- parse-int [#^String s] (Integer/parseInt s))
(defn- char-array [len] (make-array Character/TYPE len))

(defn connect-to-server
  "Create a Socket connected to server"
