anchor.diff:  (defvar *connections* nil)
   
   (defparameter +default-buffer-size+ 4096)
  +(defparameter +swank-msg-len-size+ 6)
   
   
   (defun make-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:   ((socket
       :accessor connection-socket
       :initarg :socket
       :initform nil)
     (stream
       :accessor connection-stream
       :initarg :stream
       :initform nil)
     (read-buffer
       :accessor connection-read-buffer
  