anchor.diff:               :initform 'green-couch)
      (on-top-of :initarg :on-top-of
                 :initform 'floor)
  +   (satisfied :initarg :satisfied
  +              :initform nil)
      (holding :initarg :holding
               :initform 'nothing)))
   
  
positive.code:   (?thing (thing (name ?name)))
    =>
    (format t "Monkey eats the ~A.~%" ?name)
    (modify ?monkey (holding blank))
    (retract ?goal)
    (retract ?thing))
  
  ;;; startup rule...
  
  
negative.code: ;;; implementation, a common AI planning problem. The monkey's objective is to
  ;;; find and eat some bananas.
  
  ;;; $Id: mab-clos.lisp,v 1.3 2001/04/18 17:41:23 youngde Exp $
  
  (in-package "LISA-USER")
  
  