anchor.diff:    (let* ((pointer-data (deref-data-from-pointer data-pointer))
            (connection (getf pointer-data :connection))
            (callbacks (get-callbacks connection))
  -         (dns-base (getf pointer-data :dns-base))
            (request-cb (getf callbacks :request-cb))
            (event-cb (getf callbacks :event-cb)))
       (catch-app-errors event-cb
  
positive.code:              ;; This segfaults *sometimes* so are we not supposed to call this?
               ;(le:evhttp-request-free request)
               (funcall request-cb status headers body))))
          (free-dns-base dns-base)
          (free-pointer-data data-pointer)
          ;; free the connection if it exists
          (unless (cffi:null-pointer-p connection)
            (le:evhttp-connection-free connection)
            (le:evhttp-request-free request))))))
  
  (defun lookup-status-text (status-code)
    "Get the HTTP standard text that goes along with a status code."
  
negative.code:     ;; track when the connection closes
      (le:evhttp-connection-set-closecb connection (cffi:callback http-client-close-cb) (cffi:null-pointer))
      (save-callbacks connection (list :request-cb request-cb :event-cb event-cb))
      (attach-data-to-pointer data-pointer (list :connection connection))
      (when (numberp timeout)
        (le:evhttp-connection-set-timeout connection timeout))
      (let ((host-set nil)
  