anchor.diff:  
   (eval-when (:load-toplevel)
     (populate-sizes))
  -
  
positive.code:     udp
      signal)
    "Enumerates our handle classes.")
      
  (defparameter *req-types*
    '(req
      connect
  
negative.code: 
  (defun handle-type (handle-ptr)
    "Given a libuv handle, return its type."
    (uv-a:uv-handle-s-type handle-ptr))
  
  (defun populate-sizes ()
    "Fill our hashes with size values for our handle/req classes."
    (dolist (key (mapcar #'alexandria:make-keyword *handle-types*))
      (let* ((enumval (cffi:foreign-enum-value 'uv:uv-handle-type key)))
        (setf (gethash key *handle-sizes*) (uv:uv-handle-size enumval))))
    (dolist (req *req-types*)
      (let ((key (intern (string-upcase (string req)) :keyword))
            (uvsym (intern (string req) :keyword)))
  