anchor.diff:  
   (defun handle-type (handle-ptr)
     "Given a libuv handle, return its type."
  -  (handle-from-val (uv-a:uv-handle-s-type handle-ptr)))
  -
  -(defun handle-to-val (handle-keyword)
  -  "Get a handle enuma val from its name."
  -  (gethash handle-keyword *handle-name-val*))
  -
  -(defun handle-from-val (enumval)
  -  "Get a handle name form its enuma val."
  -  (gethash enumval *handle-val-name*))
  +  (uv-a:uv-handle-s-type handle-ptr))
   
   (defun populate-sizes ()
     "Fill our hashes with size values for our handle/req classes."
  -  (dolist (handle *handle-types*)
  -    (let* ((key (intern (string-upcase (string handle)) :keyword))
  -           (uvsym key)
  -           (enumval (cffi:foreign-enum-value 'uv:uv-handle-type uvsym)))
  -      (setf (gethash key *handle-sizes*) (uv:uv-handle-size enumval))
  -      (setf (gethash key *handle-name-val*) enumval
  -            (gethash enumval *handle-val-name*) key)))
  +  (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)))
  
positive.code:     udp
      signal)
    "Enumerates our handle classes.")
      
  (defparameter *req-types*
    '(req
      connect
  
negative.code: 
  (defun errval (err)
    "Get an error constant value by its name keyword.
  
     So :etimedout gets the enum UV_ETIMEDOUT"
    (cffi:foreign-enum-value 'uv:uv-errno-t err))
  
  