anchor.diff:                                                    backlog
                                                     sockaddr
                                                     sockaddr-size))
  -           (server-class (make-instance 'tcp-server :c listener)))
  +           (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)))
  
positive.code: 
  (defclass tcp-server ()
    ((c :accessor tcp-server-c :initarg :c :initform (cffi:null-pointer))
     (closed :accessor tcp-server-closed :initarg :closed :initform nil))
    (:documentation "Wraps around a libevent connection listener."))
  
  (defun get-last-tcp-err ()
  
negative.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 some sort of stream operation
               nil)))))
  
  (cffi:defcallback tcp-write-cb :void ((bev :pointer) (data-pointer :pointer))
  