anchor.diff:  	(#.(lispify "loop" 'slotname) :pointer)
   	(#.(lispify "type" 'slotname) #.(lispify "uv_handle_type" 'enumname))
   	(#.(lispify "close_cb" 'slotname) :pointer)
  -	(#.(lispify "handle_queue" 'slotname) :pointer)
  -	(#.(lispify "reserved" 'slotname) :pointer)
  +	(#.(lispify "handle_queue" 'slotname) :pointer :count 2)
  +	(#.(lispify "reserved" 'slotname) :pointer :count 4)
   	(#.(lispify "next_closing" 'slotname) :pointer)
   	(#.(lispify "flags" 'slotname) :unsigned-int)
   	(#.(lispify "timer_cb" 'slotname) :pointer)
  -	(#.(lispify "heap_node" 'slotname) :pointer)
  +	(#.(lispify "heap_node" 'slotname) :pointer :count 3)
   	(#.(lispify "timeout" 'slotname) :unsigned-long-long)
   	(#.(lispify "repeat" 'slotname) :unsigned-long-long)
   	(#.(lispify "start_id" 'slotname) :unsigned-long-long))
  
positive.code: (cffi:defcstruct #.(lispify "uv_shutdown_s" 'classname)
  	(#.(lispify "data" 'slotname) :pointer)
  	(#.(lispify "type" 'slotname) #.(lispify "uv_req_type" 'enumname))
  	(#.(lispify "active_queue" 'slotname) :pointer)
  	(#.(lispify "reserved" 'slotname) :pointer)
  	(#.(lispify "handle" 'slotname) :pointer)
  	(#.(lispify "cb" 'slotname) :pointer))
  
  
negative.code: (cffi:defcstruct #.(lispify "uv_write_s" 'classname)
  	(#.(lispify "data" 'slotname) :pointer)
  	(#.(lispify "type" 'slotname) #.(lispify "uv_req_type" 'enumname))
  	(#.(lispify "active_queue" 'slotname) :pointer :count 2)
  	(#.(lispify "reserved" 'slotname) :pointer :count 4)
  	(#.(lispify "cb" 'slotname) :pointer)
  	(#.(lispify "send_handle" 'slotname) :pointer)
  	(#.(lispify "handle" 'slotname) :pointer)
  	(#.(lispify "queue" 'slotname) :pointer :count 2)
  	(#.(lispify "write_index" 'slotname) :unsigned-int)
  	(#.(lispify "bufs" 'slotname) :pointer)
  	(#.(lispify "nbufs" 'slotname) :unsigned-int)
  	(#.(lispify "error" 'slotname) :int)
  	(#.(lispify "bufsml" 'slotname) :pointer :count 4))
  
  (cffi:defcfun ("uv_is_readable" #.(lispify "uv_is_readable" 'function)) :int
    (handle :pointer))
  