anchor.diff:  
   ;; Class
   (defclass socket (emitter)
  -  ((sock :initform nil
  +  ((sock :initform (sockets:make-socket :ipv6 nil :reuse-address t)
            :initarg :sock
            :accessor sock)
      (watchers :initform (vector nil nil)
  
positive.code: 
  ;; Event methods
  (defmethod on-read ((socket socket))
    (multiple-value-bind (data size)
        (sockets:receive-from (sock socket) :size (* 8 1024) :dont-wait t)
      (if (zerop size)
          (end socket)
          (emit socket "data" (subseq data 0 size)))))
  
  (defmethod on-write ((socket socket))
    (let ((data (first (writes socket))))
  
negative.code:           (when (= (incf (svref data 1) written) (length buffer))
              (pop (writes socket))
              (defer
                (funcall callback socket))))
  
          (progn
  