anchor.diff:        (attach-data-to-pointer data-pointer server-class)
         ;; setup an accept error cb
         (le:evconnlistener-set-error-cb listener (cffi:callback tcp-accept-err-cb))
  -      (save-callbacks data-pointer (list :read-cb read-cb :event-cb event-cb))
  +      (save-callbacks data-pointer (list :read-cb read-cb :event-cb event-cb :connect-cb connect-cb))
         ;; return the listener, which can be closed by the app if needed
         server-class)))
   
  
positive.code:       ;; track the connection. will be decf'ed when close-socket is called
        (incf *incoming-connection-count*)
  
        ;; save the callbacks given to the listener onto each socket individually
        (save-callbacks per-conn-data-pointer callbacks)
        (le:bufferevent-setcb bev
  
negative.code:           (le:bufferevent-socket-connect-hostname bev dns-base le:+af-unspec+ host port)))
      socket))
  
  (defun tcp-server (bind-address port read-cb event-cb &key connect-cb (backlog -1))
    "Start a TCP listener on the current event loop. Returns a tcp-server class
     which can be closed with close-tcp-server"
    (check-event-loop-running)
  