anchor.diff:    (when (and *io-multi-process* buf (> end start))
       (push desc *io-ready-for-read*)))
   
  +
   (defun io-desc-write (desc)
  -  (write-octets (io-descriptor-write-buffer desc)
  -               (io-descriptor-write-pos desc) (io-descriptor-write-limit desc)
  -               (io-descriptor-stream desc))
  -  (setf (io-descriptor-write-pos desc) (io-descriptor-write-limit desc))
  -  (io-queue-event :write-ready desc))
  -  
  +  (handler-case
  +    (progn
  +      (write-octets (io-descriptor-write-buffer desc)
  +                    (io-descriptor-write-pos desc) (io-descriptor-write-limit desc)
  +                    (io-descriptor-stream desc))
  +      (setf (io-descriptor-write-pos desc) (io-descriptor-write-limit desc))
  +      (io-queue-event :write-ready desc))
  +    (stream-error
  +     (e)
  +     (setf (io-descriptor-status desc) :broken)
  +     (setf (io-descriptor-error desc)  e)
  +     (io-queue-event :error desc) ))
  +  (setf (io-descriptor-write-process desc) nil))
  +
   (defun io-descriptor-set-write (desc buf start end)
     (setf (io-descriptor-write-buffer desc) buf
           (io-descriptor-write-pos desc) start
           (io-descriptor-write-limit desc) end)
     (when (and *io-multi-process* buf (> end start))
       (if (> (- end start) *io-background-write-treshold*)
  -      (start-process "write" #'io-desc-write desc)
  +      (setf (io-descriptor-write-process desc) (start-process "write" #'io-desc-write desc))
         (io-desc-write desc))))
   
   
  
positive.code: ;; ~ status member nil :connected :broken
  
  (defparameter *io-multi-process* (or #+mcl t ))
  (defparameter *io-background-write-treshold* 1000)
  
  (defvar *io-event-queue* nil)
  (defvar *io-ready-for-read* nil)
  
negative.code:            (incf write-pos n)
             (if (>= write-pos write-limit)
               :write-ready))
           (stream-error (e)
                  (setf (io-descriptor-status desc) :broken)
                  (setf (io-descriptor-error desc)  e)
                  :error)))
  