anchor.diff:             (do ()
                  ((not (intact-p self)))
                (add-water self -1)
  -             (sleep 0.025))
  +             (sleep 0.250))
              (cond ((>= (get-level self) 1000)
  -                  (format t "Tank ~S exploded!~%" self))
  +                  (format t "Tank ~S exploded!~%" (get-name self)))
                    ((<= (get-level self) 0)
  -                  (format t "Tank ~S ran dry and caught fire!~%" self)))))
  -    (port:make-process
  -     (concatenate 'string "Tank Process " (get-name self))
  -     #'adjust-tank-level)))
  +                  (format t "Tank ~S ran dry and caught fire!~%"
  +                          (get-name self))))))
  +    (with-new-process ((concatenate 'string "Tank:" (get-name self)))
  +      (adjust-tank-level))))
   
   (defun make-tank (name)
     (make-instance 'tank :name name))
  
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:   (?idle (idle (count ?count)))
    =>
    (retract ?idle)
    (sleep 0.250)
    (assert (idle (count (1+ ?count)))))
  
  (defrule report-fire ()
  