"Pronouns" )> >)>> > ) (TBLFLAGS ) OBJS-TBL-NAME CONDITION) ;"Define table P-PRO-THEM-OBJS to hold the objects." "-OBJS">>> >> ;"Define routine PRO-TRY-SET-THEM to try to set the pronoun." >>> > >) (ELSE >)> > PRO?OBJS !>>
>> '.PRO?OBJS>>>>> ;"Define routine PRO-FORCE-SET-THEM to unconditionally set the pronoun." >>> " to ">> <+ ,L-PRSTABLE ,L-THE>> '> > '>> >> ,PRONOUN-DEFINITIONS> ;"Define SET-PRONOUNS" ,ROOMS> ) (> 2> 1>> .OBJS>> )> !> >>> > ,PRONOUN-DEFINITIONS>>> ;"Define EXPAND-PRONOUN" > "-OBJS">>> OBJECT>> >> ,PRONOUN-DEFINITIONS> '(ELSE )> '> ' )> '> )> ' >) (ELSE )>>> ;"Define V-PRONOUNS" > "-OBJS">>> " means ">> <> <+ ,L-PRSTABLE ,L-THE ,L-SCENERY>> >> ,PRONOUN-DEFINITIONS>>> > ;"Sets the appropriate pronouns to refer to an object." > ;"Sets the appropriate pronouns to refer to the contents of an object, possibly after filtering through a routine." > > )>)>> ) (<1? .N> >) (ELSE )> > ;"Helper for the PRONOUN property. This turns (PRONOUN IT HIM) into (PRONOUN PRO-FORCE-SET-IT PRO-FORCE-SET-HIM)." >>> ROUTINE>> ) (ELSE .R)>> >>>