anchor.diff:  
   (defun write-to-uvstream (uvstream data)
     "Util function to write data directly to a uv stream object."
  -  (let* ((data (if (stringp data)
  -                   (babel:string-to-octets data :encoding :utf-8)
  -                   data))
  -         (data-length (length data))
  +  (let* ((data-length (length data))
            (data-index 0)
            (buffer-c *output-buffer*)
            (buffer-length (length buffer-c)))
  
positive.code:               (progn
                  (when connect-cb
                    (funcall connect-cb (or stream socket)))
                  (write-pending-socket-data socket))
                (run-event-cb 'event-handler res event-cb :socket socket)))))))
  
  
negative.code:    (data :accessor socket-data :initarg data :initform nil
       :documentation "Used to store arbitrary (app-defined) data with a socket.")
     (buffer :accessor socket-buffer :initarg :buffer :initform (make-buffer)
       :documentation "Holds data sent on the socket that hasn't been sent yet.")
     (bufferingp :accessor socket-buffering-p :initform nil
       :documentation "Lets us know if the socket is currently buffering output.")
     (connected :accessor socket-connected :initarg :connected :initform nil)
     (closed :accessor socket-closed :initarg :closed :initform nil)
     (direction :accessor socket-direction :initarg :direction :initform nil)
  