anchor.diff:      (call-next-method)
       (activate-process (state process) process))
     (:method ((process parallel-composition) (kell kell))
  -    (map-process (lambda (sub-process) (activate-process sub-process kell))
  -                 process))
  +    (map-process (alexandria:rcurry #'activate-process kell) process))
     (:method ((process pattern-abstraction) (kell kell))
       (setf (parent process) kell)
       (mapc #'push-event (collect-channel-names process kell)))
  
positive.code:            ((process application-abstraction) (kell kell))
    (remove-process process)
    (add-process (@ (abstraction process) (concretion process)) kell))
  (defmethod activate-process
             ((process concretion) (kell kell))
    (remove-process process)
    (add-process (compose (sub-reduce (messages process))
                          (sub-reduce (continuation process)))
  
negative.code:     (when watchp (watch process))
      (activate-process process kell))
    (:method ((process parallel-composition) (kell kell) &optional watchp)
      (map-process (alexandria:rcurry #'add-process kell watchp) process))
    (:method ((process kell) (kell kell) &optional watchp)
      (declare (ignorable watchp)) ; FIXME: not really, but CCL complains
      (if (gethash (name process) (kells kell))
  