anchor.diff:                       (release-lock (lock subkell)))
                      (reverse (subkells ,kellvar))))))))
   
  +(defparameter *debugp* nil
  +  "If T, errors will dump you to the debugger (although you still need to do some work
  +   to be in the correct thread to _use_ the debugger).")
  +
  +(defun handle-error (c)
  +  (if *debugp*
  +    (error c)
  +    (printk "ERROR: ~a~%" c)))
  +
   (defun run-kiln ()
     (loop do (handler-case (let ((event (pop-event)))
                              (if event
  
positive.code:             (when (and trigger matched-processes)
                (trigger-process trigger substitutions)
                (mapc #'activate-continuation matched-processes))))
        (error (c) (printk "ERROR: ~a~%" c)))))
  
  (defun find-triggers-matching-message (name kell)
    "Collect down-patterns from parent kell, up-patterns from subkells, and local-
  
negative.code:                           ;; (printk "~a~%" process)
                            (add-process process *top-kell*))
              (end-of-file () (return))
              (error (c) (handle-error c))))
        (mapc #'destroy-thread kilns)
        (clear-events))))
  
  