anchor.diff:  		 tv-nsec 0))
   	  ((eql timeout :indefinite) ;; do nothing.
   	   ))
  -	(let ((n (%ff-kevent64 (kqueue-descriptor poller)
  -			       change-list-ptr 0
  -			       event-list-ptr (maximum-number-of-events poller)
  -			       0
  -			       (if (eql timeout :indefinite)
  -				   (cffi:null-pointer)
  -				   timespec-ptr))))
  +	(let ((n (kevent-wrapper (kqueue-descriptor poller)
  +				 change-list-ptr 0
  +				 event-list-ptr (maximum-number-of-events poller)
  +				 (if (eql timeout :indefinite)
  +				     (cffi:null-pointer)
  +				     timespec-ptr))))
   	  (process-kqueue-events poller
   				 (loop
   				    :for index :from 0 :below n
  
positive.code: 
  (defparameter *kevent-struct* 
    #+darwin '(:struct kevent64-s)
    #-darwin (error "Unsupported platform for KQUEUE."))
  
  (defgeneric kqueue-descriptor (kqueue-poller)
    (:documentation "The OS descriptor for the KQUEUE."))
  
negative.code: 	   :do
  	   (prepare-kevent-struct change ptr))
  	
  	(let ((number-of-events (kevent-wrapper kqueue-descriptor
  						ptr-change-list (length change-list)
  						ptr-event-list 0 timeout)))
  	  (assert (zerop number-of-events))))
  
        (setf (gethash socket (monitor-table poller)) value))))
  