anchor.diff:  ;;; in the queue to be tried again.
   
   
  -;;; whenever a process is added to a network kell, we share the process across all hosts
  -;;; inside that kell it gets added to each of their event queues. So, the network kells
  -;;; should basically be in sync.
  -;;; 
  -;;; When a process in a network kell is matched, its removal notice is sent to all hosts.
  -;;; Each has to reply that it has been removed before the reaction actually occurs.
  -;;; 
  -;;; If there's a timeout, the host that times out is passivated, and a notice is sent to
  -;;; all hosts to passivate that host.
  +;;; whenever a process is added to a network kell, we share the process across
  +;;; all hosts inside that kell it gets added to each of their event queues. So,
  +;;; the network kells should basically be in sync.
  +;;; 
  +;;; When a process in a network kell is matched, its removal notice is sent to
  +;;; all hosts. Each has to reply that it has been removed before the reaction
  +;;; actually occurs.
  +;;; 
  +;;; If there's a timeout, the host that times out is passivated, and a notice is
  +;;; sent to all hosts to passivate that host.
   
   (defvar *top-kell*)
   (defvar *local-kell*)
  
positive.code:   (declare (ignore process))
    (error "No processes can exist inside a host kell."))
  
  ;;; FIXME: need to define a LOCAL-KELL, so that a network kell can't be confused with it
  ;;(defmethod activate-process ((process network-kell) (kell kell))
  ;;  (error "A network kell can not exist inside a local kell."))
  ;;(defmethod activate-process ((process host-kell) (kell kell))
  
negative.code:                                              (assoc (list (name process))
                                                      *host-definitions*
                                                      :test #'equal)
                             (make-instance 'host-kell
                               :name name :hostname host :port port)))
                          (t (change-class process 'network-kell)
                             process))))
      (setf (process kell)
  