anchor.diff:    (funcall (connection-read-callback conn) conn))
   
   
  -(defun connection-write-ready (conn)
  -  (funcall (connection-write-callback conn) conn))
  +(defmethod connection-write-ready ((conn connection))
  +  (setf (connection-write-buffer conn) nil))
  +
   
   
   
  
positive.code: Can be set to true globally for singel-process / development.")
  
  
  (defun orb-wait (&optional wait-func &rest wait-args)
    (if *running-orb*
      (if wait-func
        (loop until (apply wait-func wait-args) do (orb-work))
        (orb-work))
      (if wait-func
        (apply #'process-wait "orb-wait" wait-func wait-args)
        (sleep 0.1))))
  
  
  (defun orb-work ()
    (declare (optimize (debug 3)))
    (multiple-value-bind (event desc) (io-driver)
      (when event
        (mess 1 "io-event: ~S ~A" event (io-descriptor-stream desc)))
      (let ((conn (gethash desc *desc-conn*)))
        (case event
          (:read-ready
           ;;(io-descriptor-set-read desc nil 0 0)
           (when conn
             (connection-read-ready conn)))
          (:write-ready
           (io-descriptor-set-write desc nil 0 0)
           (connection-write-ready conn))
          (:new
           (funcall *new-connection-callback* desc))
          (:connected
           ;; Not implemented yet..; for outgoing connections setup
           nil)
          (:error
           (mess 4 "Error: ~A" (io-descriptor-error desc))
           (io-descriptor-destroy desc)
           (when conn (connection-error conn)))
          ((nil)
           (mess 1 "time out"))))))
  
  
negative.code:    (read-buffer     :initarg :read-buffer                  :accessor connection-read-buffer)
     (read-callback   :initarg :read-callback                :accessor connection-read-callback)
     (write-buffer    :initarg :write-buffer   :initform nil :accessor connection-write-buffer)
     ;;(write-callback  :initarg :write-callback               :accessor connection-write-callback)
     (error-callback  :initarg :error-callback               :accessor connection-error-callback)
     (io-descriptor   :initarg :io-descriptor  :initform nil :accessor connection-io-descriptor)
     (client-requests                          :initform nil :accessor connection-client-requests)))
  