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:     as::write-to-evbuffer
      as::drain-evbuffer
      as::socket-drain-read-buffer
      as::init-incoming-socket                 ; optimize
      as::set-socket-timeouts                  ; optimize/cons
      as::check-socket-open
      cl-async-util::attach-data-to-pointer    ; optimize/cons
      cl-async-util::deref-data-from-pointer   ; optimize
      cl-async-util::free-pointer-data         ; optimize
      cl-async-util::clear-callbacks           ; optimize
      cl-async-util::clear-pointer-data        ; optimize
      cl-async-util::get-callbacks             ; optimize
      cl-async-util::save-callbacks            ; optimize
      cl-async-util::split-usec-time
      cl-async-util::create-data-pointer
      cl-async-util::make-pointer-eql-able
      cl-async-util::append-array
      le::evbuffer-drain
      le::bufferevent-get-output
      le::bufferevent-socket-new
  
negative.code:           (as:signal-handler 2
              (lambda (signo)
                (declare (ignore signo))
                (format t "Got sigint, closing server.~%")
                (as:exit-event-loop)))
            (show-stats))))
      :catch-app-errors t))
  
  (defun benchmark-client (&key (server "127.0.0.1") (port 9009) (num-requests 40000) (delay 1) (client-id 0))
    (as:start-event-loop
  