anchor.diff:                                  :name (gensym "NETWORK") :process *top-kell*))
       (unwind-protect
           (loop do
  -          (printk "~&> ")
  +          (printk "> ")
             (handler-case (let ((process (eval (read))))
  -                          (printk "~&~a~%" process)
  +                          (printk "~a~%" process)
                             (add-process process *top-kell*))
               (end-of-file () (return))
  -            (error (c) (printk "~&ERROR: ~a~%" c))))
  +            (error (c) (printk "ERROR: ~a~%" c))))
         (mapc #'destroy-thread kilns)
         (clear-events))))
   
  
positive.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-
  
negative.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
  