anchor.diff:                                              global-name
                                               (process process)))))
     (:method (local-name global-name (process trigger))
  -    (apply-restriction local-name global-name (pattern process))
  -    (apply-restriction local-name global-name (process process))
  +    (setf (pattern process)
  +          (apply-restriction local-name global-name (pattern process))
  +          (process process)
  +          (apply-restriction local-name global-name (process process)))
       process))
   
   (defgeneric activate-process (process kell)
  
positive.code:                           ;; (printk "~a~%" process)
                            (add-process process *top-kell*))
              (end-of-file () (return))
              (error (c) (printk "ERROR: ~a~%" c))))
        (mapc #'destroy-thread kilns)
        (clear-events))))
  
  
negative.code:             (when (and trigger matched-processes)
                (trigger-process trigger substitutions)
                (mapc #'activate-continuation matched-processes))))
        (error (c) (handle-error c)))))
  
  (defun find-triggers-matching-message (name kell)
    "Collect down-patterns from parent kell, up-patterns from subkells, and local-
  