<REPLACE-DEFINITION HOOK-AFTER-PERFORM
	<DEFMAC HOOK-AFTER-PERFORM (R-ATOM)
	'<COND ( <NOT <0?, PRSO>>
			<COND ( <NOT <0?, PRSI>>
				<COND (<AND <NOT <VERB? ASK TELL>> 
	                  <IN? ,PRSI ,GENERIC-OBJECTS>>
				<SETG PRSA ,V?INVENTORY>)>)>
			<COND (<OR <AND <NOT <VERB? ASK TELL>> <IN? ,PRSO ,GENERIC-OBJECTS>>
			<AND <VERB? ASK TELL> <IN? ,PRSO ,GENERIC-OBJECTS>>
				>
				<SETG PRSA ,V?INVENTORY>)>
			)>
>>