anchor.diff:  (defvar *equipment* '())
   
   (defun start-run ()
  -  (let* ((tank (make-tank "Tank Main"))
  -         (pump (make-pump "Pump Main" tank)))
  +  (let* ((tank (make-tank "TankMain"))
  +         (pump (make-pump "PumpMain" tank)))
       (setf *equipment* nil)
       (push (cons tank (run-tank tank)) *equipment*)
       (push (cons pump (run-pump pump)) *equipment*)
  
positive.code: 
  (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))
  
negative.code: ;;; Expert System Shell (Jess). This is a pretty good test of LISA's MP
  ;;; support.
  
  ;;; $Id: pumps.lisp,v 1.7 2001/05/08 22:54:47 youngde Exp $
  
  (in-package "LISA-USER")
  
  