anchor.diff:  
   (defmacro with-new-process ((name) &body body)
     `(port:make-process
  -    name #'(lambda ()
  -             (let ((*package* (find-package "LISA-USER")))
  -               (progn ,@body)))))
  +    ,name #'(lambda ()
  +              (let ((*package* (find-package "LISA-USER")))
  +                (progn ,@body)))))
   
   (defun set-flow-rate (self new-rate)
     (declare (type pump self))
  
positive.code: (defvar *equipment* '())
  
  (defun start-run ()
    (let* ((tank (make-tank "Tank Main"))
           (pump (make-pump "Pump Main" tank)))
      (setf *equipment* nil)
      (push (cons tank (run-tank tank)) *equipment*)
      (push (cons pump (run-pump pump)) *equipment*)
  
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")
  
  