The Percept Data Structure
(defun find-objects (percept kinds location)
(find-objects-at kinds (percept-location-contents percept)))
(find-objects-at kinds (percept-bay-1-contents percept)))
(find-objects-at kinds (percept-bay-2-contents percept)))
(error "Don't understand location ~a" location))))