anchor.diff:                      sink2 (get-callbacks pt))))
             (loop for pointer across pointers do
               (cl-async-util::free-pointer-data pointer)))))))
  +
  +(defun lol () (format t "hai...~%"))
  +(defun simple-test ()
  +  (as:start-event-loop
  +    (lambda ()
  +      (as:delay 'lol :time 1))))
  
positive.code:                        (do-client (1+ client-id)))
                       :time delay))))
          (do-client client-id)))))
  
  (defun benchmark-data-pointers (&key (num-pointers 10000))
    (as:start-event-loop
  
negative.code:     as::write-to-evbuffer
      as::drain-evbuffer
      as::socket-drain-read-buffer
      as::init-incoming-socket
      as::set-socket-timeouts
      as::check-socket-open
      as::add-event
      as::free-event
      as::delay
      as::check-event-unfreed
      cl-async-util::attach-data-to-pointer
      cl-async-util::deref-data-from-pointer
      cl-async-util::free-pointer-data
      cl-async-util::clear-callbacks
      cl-async-util::clear-pointer-data
      cl-async-util::get-callbacks
      cl-async-util::save-callbacks
      cl-async-util::split-usec-time
      cl-async-util::create-data-pointer
      cl-async-util::make-pointer-eql-able
      cl-async-util::append-array
      cl-async-util::get-free-timeval
      cl-async-util::release-timeval
      le::event-new
      le::evbuffer-drain
      le::bufferevent-get-output
      le::bufferevent-socket-new
  