anchor.diff:                               (with-lock-held (*dummy-wait-lock*)
                                  (condition-wait *new-events*
                                                  *dummy-wait-lock*))))
  -             (error (c) (handle-error c)))))
  +             (kiln-error (c) (handle-error c)))))
   
   (defun start-kilns (count)
     (loop for i from 1 to count
  
positive.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-
  
negative.code: 
  (defmethod activate-process ((process kell-abstraction) (kell kell))
    (if (gethash (name process) (kells kell))
      (error 'duplicate-kell-name-error :name (name process))
      (progn
        (call-next-method)
        (activate-process (abstraction process) process))))
  