anchor.diff:  
   (defclass tcp-server ()
     ((c :accessor tcp-server-c :initarg :c :initform (cffi:null-pointer))
  -   (closed :accessor tcp-server-closed :initarg :closed :initform nil))
  +   (closed :accessor tcp-server-closed :initarg :closed :initform nil)
  +   (stream :accessor tcp-server-stream :initarg :stream :initform nil))
     (:documentation "Wraps around a libevent connection listener."))
   
   (defun get-last-tcp-err ()
  
positive.code:              (le:evbuffer-drain (le:bufferevent-get-input bev) *buffer-size*))
              (t
               ;; we're not draining and we don't have a callback, so this is
               ;; probably sme sort of stream operation
               nil)))))
  
  (cffi:defcallback tcp-write-cb :void ((bev :pointer) (data-pointer :pointer))
  
negative.code:                                                   backlog
                                                    sockaddr
                                                    sockaddr-size))
             (server-class (make-instance 'tcp-server :c listener :stream stream)))
        (add-event-loop-exit-callback (lambda ()
                                        (close-tcp-server server-class)
                                        (free-pointer-data data-pointer)))
  