anchor.diff:        (error () nil))))
   
   (defun match-on (process kell)
  -  (printk "~&Trying to match ~a in ~a.~%" process kell)
  +  (printk "Trying to match ~a in ~a.~%" process kell)
     (lock-neighboring-kells (kell)
       (destructuring-bind (&optional trigger matched-processes substitutions)
                           (really-match-on process kell)
  
positive.code:                              (apply (car event) (cdr event))
                               (with-lock-held (*dummy-wait-lock*)
                                 (condition-wait *new-events* *dummy-wait-lock*))))
               (error (c) (printk "~&ERROR: ~a~%" c)))))
  
  (defun start-kilns (count)
    (loop for i from 1 to count
  
negative.code:                 (pattern trigger) matched-processes (process trigger))
          (trigger-process trigger substitutions)
          (mapc #'activate-continuation matched-processes)
          (printk "~a~%" (parent kell))))))
  
  (defun find-triggers-matching-message (name kell)
    "Collect down-patterns from parent kell, up-patterns from subkells, and local-
  