anchor.diff:          (delete desc *io-descriptions*)))
   
   (defun io-descriptor-connect (desc host port)
  +  ;; FIXME:
  +  (setq host (if (string= host "saturn") "10.0.1.2" host))
     (setf (io-descriptor-stream desc)
           (open-active-socket host port))
     (mess 3 "connect to ~A:~A = ~A" host port (io-descriptor-stream desc))
  
positive.code:            (incf write-pos n)
             (if (>= write-pos write-limit)
               :write-ready))
           (error (e)
                  (setf (io-descriptor-status desc) :broken)
                  (setf (io-descriptor-error desc)  e)
                  :error)))
  
negative.code: ;; ~ status member nil :connected :broken
  
  (defparameter *io-multi-process* (or #+mcl t ))
  (defparameter *io-background-write-treshold* 200)
  
  (defvar *io-event-queue* nil)
  (defvar *io-ready-for-read* nil)
  