anchor.diff:  
   
   (defmethod io-system-driver ((system io-system-select))
  -  (loop repeat 500 until *io-event-queue*
  -        do (io-poll-select)))
  +  (io-poll-select))
  +
  +
  +(defmethod io-ready-for-write ((system io-system-select) desc)
  +  (if (io-descriptor-shortcut-p desc)
  +    (io-poll-shortcut desc :write)))
  +
  +
  +(defmethod io-ready-for-read ((system io-system-select) desc)
  +  (if (io-descriptor-shortcut-p desc)
  +    (io-poll-shortcut desc :read)))
  +
   
   
   
  
positive.code: ;;;; Shortcut driver
  
  
  (defun io-poll-shortcut (desc)
    (let ((result nil))
      (flet ((out (from)
               (when (io-descriptor-write-ready from)
  
negative.code: 
  
  (defun io-descriptor-destroy (desc)
    (setf (io-descriptor-status desc) :broken)
    (ignore-errors
      (close (io-descriptor-stream desc)))
    (setq *io-descriptions* (delete desc *io-descriptions*)))
  
  
  