anchor.diff:  ;;; Description: The "Monkey And Bananas" sample implementation, a common AI
   ;;; planning problem. The monkey's objective is to find and eat some bananas.
   
  -;;; $Id: mab.lisp,v 1.48 2001/05/07 17:48:12 youngde Exp $
  +;;; $Id: mab.lisp,v 1.49 2001/07/12 20:41:04 youngde Exp $
   
   (in-package "LISA-USER")
   
  
positive.code:                  (on-top-of floor) (weight light) (location t1-3)))
    (assert (goal-is-to (action eat) (argument-1 bananas) (argument-2 empty))))
  
  #+ignore
  (defun run-mab (&optional (ntimes 1))
    (let ((start (get-internal-real-time)))
  
negative.code: (defun run-mab (&optional (ntimes 1))
    (flet ((repeat-mab ()
             (dotimes (i ntimes)
               (reset)
               (format t "Starting run.~%")
               (run))))
      (time (repeat-mab))))
  
  