Processing Percepts (cont.)
(defun find-objects-at (kinds percept-list)
(member (object-kind object) kinds))
’((POSITION 0) (KIND ROADSIGN) (DIRECTION E))
((POSITION 2) (KIND GARBAGE) (VALUE 10))
((POSITION 3) (KIND GLASS) (COLOR GREEN))
((POSITION 4) (KIND FUEL-DRUM-DISPENSER))
((POSITION 5) (KIND ATM))
((POSITION 6) (KIND GARBAGE-CAN))
((POSITION 7) (KIND GLASS-RECYCLER))
((POSITION 8) (KIND FUEL-DRUM-CONSUMER))
((POSITION 9) (KIND TRUCK) (TRUCK-ID TRUCK-5))))