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:   (incf *request-id-seq*))
  
  
  (defvar *desc-conn* (make-hash-table))
  
  (defun make-associated-connection (orb desc)
    (let* ((conn (make-instance 'Connection :orb orb :io-descriptor desc)))
      (setf (gethash desc *desc-conn*) conn)
      conn))
  
  (defun connection-destroy (conn)
    (let ((desc (connection-io-descriptor conn)))
      (io-descriptor-destroy desc)
      (remhash desc *desc-conn*)))
  
  
  (defun create-connection (orb host port)
  
negative.code: Can be set to true globally for singel-process / development.")
  
  
  (defun orb-wait (wait-func &rest wait-args)
    (if *running-orb*
      (loop until (apply wait-func wait-args) do (orb-work 100))
      (apply #'process-wait "orb-wait" wait-func wait-args)))
  
  
  
  (defun orb-work (&optional (n 1))
    (loop
      do (let ((event (io-driver n)))
           (when event
             (let* ((desc (second event))
                    (conn (io-descriptor-connection desc)))
               (setq n 1)
               (mess 1 "io-event: ~S ~A ~A" (car event) (io-descriptor-stream desc) conn)
               (case (car event)
                 (:read-ready
                  (when conn (connection-read-ready conn)))
                 (:write-ready
                  (io-descriptor-set-write desc nil 0 0)
                  (when conn (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)))))))
      while (io-work-pending-p)))
  