anchor.diff:             (slot-boundp obj 'continuation))
       (format stream "{~a~:[ ~a~:[ ~a~;~]~;~]}"
               (name obj)
  -            (and (eql (process obj) null-process) (eql (continuation obj) null-process)) (process obj)
  +            (and (eql (process obj) null-process)
  +                 (eql (continuation obj) null-process))
  +            (process obj)
               (eql (continuation obj) null-process)
               (continuation obj))
       (call-next-method)))
  
positive.code:    ;; it means we have to keep the data structures in sync.
     (messages :initform (make-hash-table :test #'equal) :reader messages)
     (kells :initform (make-hash-table :test #'equal) :reader kells)
     (local-patterns :initform (make-hash-table :test #'equal) :reader local-patterns)
     (up-patterns :initform (make-hash-table :test #'equal) :reader up-patterns)
     (down-patterns :initform (make-hash-table :test #'equal) :reader down-patterns)
     (kell-patterns :initform (make-hash-table :test #'equal) :reader kell-patterns)))
  
  (defun kell (name &optional process continuation)
    (if continuation
  
negative.code:   "Do nothing for primitives."
    (values))
  
  ;;; FIXME: there are really two functions here – one replaces the value in place
  ;;;        in the parent container, the other is functional. The functional one
  ;;;        is right, but we have to convert other code.
  (defgeneric remove-process-from (process kell)
    (:method (process kell)
      (warn "The process ~a is not contained in ~a, and thus can not be removed."
  