anchor.diff:  				    :collect
   				    (parse-kevent-struct (cffi:mem-aptr event-list-ptr kevent-struct index)))))))))
   
  -(defun parse-kevent-struct (kevent-struct-ptr)
  -  (cffi:with-foreign-slots ((ident filter flags fflags data udata ext) kevent-struct-ptr (:struct kevent64-s))
  -    (list ident
  -	  (cffi:foreign-enum-keyword 'kevent-filters filter)
  -	  (remove-if #'(lambda (keyword)
  -			 (zerop (logand flags (cffi:foreign-enum-value 'kevent-flags keyword))))
  -		     (cffi:foreign-enum-keyword-list 'kevent-flags))
  -	  fflags
  -	  data 
  -	  udata
  -	  (list (cffi:mem-aref ext :uint64 0)
  -		(cffi:mem-aref ext :uint64 1)))))
  -
   (defun process-kqueue-events (poller events)
     (let* ((unique-file-descriptors (remove-duplicates (mapcar #'first events) :test #'=))
   	 (unique-sockets (mapcar #'(lambda (fd)
  
positive.code:   (let ((read (find :evfilt-read events :key #'kevent/filter)))
      (and read
  	 (find :ev-eof (kevent/flags read)))))
  
negative.code:       poller
      (let* ((current-events (gethash socket monitor-table))
  	   (change-list (compute-change-list socket current-events value))
  	   (kevent-struct *kevent-struct*))      
        (cffi:with-foreign-objects ((ptr-change-list kevent-struct (length change-list))
  				  (ptr-event-list kevent-struct 0)
  				  (timeout '(:struct timespec)))
  