anchor.diff:  	(#.(lispify "TCP_CA_Recovery" 'enumvalue :keyword) #.3)
   	(#.(lispify "TCP_CA_Loss" 'enumvalue :keyword) #.4))
   
  +(cffi:defcenum #.(lispify "uv_loop_option" 'enumname)
  +	#.(lispify "UV_LOOP_BLOCK_SIGNAL" 'enumvalue :keyword))
  +
   (cffi:defcenum #.(lispify "uv_run_mode" 'enumname)
   	(#.(lispify "UV_RUN_DEFAULT" 'enumvalue :keyword) #.0)
   	#.(lispify "UV_RUN_ONCE" 'enumvalue :keyword)
  
positive.code: 
  (cffi:defcfun ("uv_fs_poll_getpath" #.(lispify "uv_fs_poll_getpath" 'function)) :int
    (handle :pointer)
    (buf :string)
    (len :pointer))
  
  (cffi:defcstruct #.(lispify "uv_signal_s_tree_entry_s" 'classname)
  	(#.(lispify "rbe_left" 'slotname) :pointer)
  
negative.code: 
  (cffi:defcfun ("uv_pipe_getsockname" #.(lispify "uv_pipe_getsockname" 'function)) :int
    (handle :pointer)
    (buffer :string)
    (size :pointer))
  
  (cffi:defcfun ("uv_pipe_getpeername" #.(lispify "uv_pipe_getpeername" 'function)) :int
    (handle :pointer)
    (buffer :string)
    (size :pointer))
  
  (cffi:defcfun ("uv_pipe_pending_instances" #.(lispify "uv_pipe_pending_instances" 'function)) :void
    (handle :pointer)
  