<REPLACE-DEFINITION HOOK-AFTER-PERFORM
	<DEFMAC HOOK-AFTER-PERFORM (R-ATOM)
	'<BIND ((ERR 0))
		<COND (<NOT <0?, PRSI>>
				<COND (<AND <NOT <VERB? ASK TELL>> <IN? ,PRSI ,GENERIC-OBJECTS>>
					<SET ERR 1>)>)>
		<COND (<AND <NOT <EQUAL? ,PRSO 0>> <EQUAL? .ERR 0>>
				<COND (<AND <IN? ,PRSO ,GENERIC-OBJECTS> <NOT <VERB? THINK-ABOUT>>>
					<SET ERR 1>)>)>
		<COND (<EQUAL? .ERR 1>
				<SETG PRSA ,V?INVENTORY>)>
	>
>>