banana-ops.lisp

(defparameter *banana-ops*
  (mapcar #'convert-op
          (list
           (op 'climb-on-chair
               :preconds '(chair-at-middle-room at-middle-room on-floor)
               :add-list '(at-bananas on-chair)
               :del-list '(at-middle-room on-floor))
           (op 'push-chair-from-door-to-middle-room
               :preconds '(chair-at-door at-door)
               :add-list '(chair-at-middle-room at-middle-room)
               :del-list '(chair-at-door at-door))
           (op 'walk-from-door-to-middle-room
               :preconds '(at-door on-floor)
               :add-list '(at-middle-room)
               :del-list '(at-door))
           (op 'grasp-bananas
               :preconds '(at-bananas empty-handed)
               :add-list '(has-bananas)
               :del-list '(empty-handed))
           (op 'drop-ball
               :preconds '(has-ball)
               :add-list '(empty-handed)
               :del-list '(has-ball))
           (op 'eat-bananas
               :preconds '(has-bananas)
               :add-list '(empty-handed not-hungry)
               :del-list '(has-bananas hungry)))))