anchor.diff:                      (delete process (gethash (name proc) (kell-patterns kell)))))
               (kell-message-pattern (pattern process))))))
   
  -(defun replace-variables (process container mapping &optional ignored-vars)
  +(defun replace-variables (process mapping &optional ignored-vars)
     (let ((substituted-processes (mapcar (lambda (process-variable)
                                              (when (not (find (name process-variable) ignored-vars
                                              :key #'name))
  
positive.code:           (append (messages-in (process process))
                    (kells-in (process process))
                    (triggers-in (process process))))
      (setf (process process) (replace-variables (process process) process mapping ignored-vars))
      (printk "new process: ~a~%" process)))
  
  (defmethod trigger-process ((trigger trigger) mapping)
  
negative.code:                   (messages-in (continuation process))
                    (kells-in (continuation process))
                    (triggers-in (continuation process))))
      (setf (process process) (replace-variables (process process) mapping ignored-vars)
            (continuation process) (replace-variables (continuation process) mapping ignored-vars))
      (printk "new process: ~a~%" process))
    (:method (mapping (process kell) &optional ignored-vars)
      (mapc (lambda (proc) (substitute-variables mapping proc ignored-vars))
  