anchor.diff:    ((socket
        :accessor connection-socket
        :initarg :socket
  +     :initform nil)
  +   (stream
  +     :accessor connection-stream
  +     :initarg :stream
        :initform nil)
      (read-buffer
        :accessor connection-read-buffer
  
positive.code:       (let ((server (as::tcp-server-new
                        "127.0.0.1"
                        7002
                        #'server-read-cb
                        :event-cb #'server-event-cb
                        :connect-cb #'server-connect-cb
                        :stream t)))
          (vom:debug "Server created: ~s" server)))))
  
negative.code: (defvar *connections* nil)
  
  (defparameter +default-buffer-size+ 4096)
  (defparameter +swank-msg-len-size+ 6)
  
  
  (defun make-buffer ()
  