anchor.diff:  
   (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))
   
  
positive.code: 
  (eval-when (:load-toplevel)
    (populate-sizes))
  
  
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)))
  