anchor.diff:  
   (defmethod io-ready-for-write ((system io-system-multiprocess) desc)
     (if (io-descriptor-shortcut-p desc)
  -    (io-poll-shortcut desc)
  +    (io-poll-shortcut desc :write)
       (if (> (- (io-descriptor-write-limit desc) (io-descriptor-write-pos desc)) 
              *io-background-write-treshold*)
         (setf (io-descriptor-write-process desc)
  
positive.code:     (let ((other (make-io-descriptor
                    :stream (make-instance 'shortcut-stream :input o-stream :output i-stream)
                    :status :connected
                    :shortcut-p t)))
        (push other *io-descriptions*)
        (io-queue-event :new other))
      (setf (io-descriptor-stream desc) (make-instance 'shortcut-stream :input i-stream :output o-stream))
      (setf (io-descriptor-shortcut-p desc) t)))
  
  
  
  
negative.code: ;;;; clorb-io.lisp  --  a reactive IO layer for CLORB
  ;; $Id: clorb-io.lisp,v 1.23 2004/01/29 19:50:15 lenst Exp $
  
  
  ;; io-reset ()
  ;; io-create-listener (&optional port)
  ;; io-create-descriptor () => desc
  ;; io-descriptor-destroy (desc)
  ;; io-descriptor-connect (desc host port)
  ;; io-descriptor-working-p (desc) => boolean
  ;; io-descriptor-set-read (desc buf start end)
  ;; io-descriptor-set-write (desc buf start end)
  ;; io-descriptor-status (desc) => status
  ;; io-descriptor-error (desc) => condition or nil
  ;; io-descriptor-read-buffer (desc) => buffer
  ;; io-driver () => event, desc
  
  ;; io-descriptor-shortcut-connect (desc)
  ;; io-fix-broken ()
  