anchor.diff:  
   ;;;; --------------------------------------------------pull-supplier -------
   
  -(defclass PULL-SUPPLIER (supplier CosEventComm:PullSupplier-servant)
  +(defclass PULL-SUPPLIER (supplier
  +                         CosEventChannelAdmin:ProxyPullSupplier-servant)
     ((pending-pull :initform nil  :accessor pending-pull)
      (events       :initform '()  :accessor events)))
   
  
positive.code: (defun setup-ec ()
    (unless *my-ch*
      (setq *my-ch* (make-instance 'event-channel)))
    (rebind *my-ch* "ch1")
    ;;(rebind *my-pus* "ch1b")
    (rebind (make-instance 'push-consumer :channel *my-ch*) "ch1pc")
    (rebind (make-instance 'push-supplier :channel *my-ch*) "ch1ps"))
  
  (defun test-ec ()
    (let ((consumer (make-instance 'push-trace))
          (ch (resolve "ch1")))
      (let ((in-adm (invoke ch "for_suppliers"))
            (out-adm (invoke ch "for_consumers")))
        (let ((in (invoke in-adm "obtain_push_consumer"))
              (out (invoke out-adm "obtain_push_supplier")))
          ;; ? (invoke in "connect_push_supplier" ?)
          (invoke out "connect_push_consumer" consumer)
          (invoke in "push" "Tjolla hoppsan")
          (invoke in "push" 345)
          (invoke in "push" '("how" "do"))
          (invoke out "disconnect_push_supplier")))))
  
  (defun test-ec-1 ()
    (let ((ch (resolve "ch1")))
      (let ((in-adm (invoke ch "for_suppliers")))
        (let ((in (invoke in-adm "obtain_push_consumer")))
          ;; ? (invoke in "connect_push_supplier" ?)
          (invoke in "push" "Tjolla hoppsan")
          (invoke in "push" 345)
          (invoke in "push" '("how" "do"))
          ))))
  
  (defun test-ec-2 ()
    (let ((consumer (make-instance 'push-trace))
          (ch (resolve "ch1")))
      (let ((out-adm (invoke ch "for_consumers")))
        (let ((out (invoke out-adm "obtain_push_supplier")))
          (invoke out "connect_push_consumer" consumer)
          (unwind-protect
               (op:run (corba:orb_init))
            (invoke out "disconnect_push_supplier"))))))
  
negative.code:   (connect-supplier self supplier))
  
  (defun do-pull (pull-consumer)
    (let ((event (op:pull (supplier-of pull-consumer))))
      (add-event (channel pull-consumer) event)))
  
  (define-method disconnect_pull_consumer ((self pull-consumer))
  