anchor.diff:            (when (= (incf (svref data 1) written) (length buffer))
               (pop (writes socket))
               (defer
  -              (format t "Invoking callback: ~A~%" callback)
                 (funcall callback socket))))
   
           (progn
  
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: 
  ;; Class
  (defclass socket (emitter)
    ((sock :initform (sockets:make-socket :ipv6 nil :reuse-address t)
           :initarg :sock
           :accessor sock)
     (watchers :initform (vector nil nil)
  