anchor.diff:  
   (defun stop-run ()
     (halt (current-engine))
  -  (mapc #'port:kill-process :key #'rest *equipment*)
  +  (mapc #'(lambda (equip)
  +            (port:kill-process (rest equip)))
  +        *equipment*)
     (values nil))
   
   (defimport pump (lisa-user::pump) ())
  
positive.code: ;;; Expert System Shell (Jess). This is a pretty good test of LISA's MP
  ;;; support.
  
  ;;; $Id: pumps.lisp,v 1.5 2001/05/08 20:37:45 youngde Exp $
  
  (in-package "LISA-USER")
  
  
negative.code:    (name :initarg :name
           :reader get-name)))
  
  (defmacro with-new-process ((name) &body body)
    `(port:make-process
      name #'(lambda ()
               (let ((*package* (find-package "LISA-USER")))
                 (progn ,@body)))))
  
  (defun set-flow-rate (self new-rate)
    (declare (type pump self))
    (with-accessors ((rate get-flow-rate)) self
  