>> > >>>> >) > .PROCN) .PROCNS> >> EX ')>) > > > '(SUBR FSUBR FUNCTION ACTOR-FUNCTION)> <.TR1 >> > "AUX" ! '(FUNCTION ACTOR-FUNCTION)> ((*ARGS )))> *VAL (*OFUNC ACTOR-FUNCTION> ) (.PROC) >)) !> (

!>))> !> ( '(*MES *ACT) !> ' >)) > '> !> ( '(*MES *ACT) !> ' >)) > !> ( !>)) > ) ACTOR-FUNCTION> ACTOR-FUNCTION) (FUNCTION) >>> .PROCN >>) DECLS R) '("REST" *ARGS)) (<==? .TP FSUBR> '("REST" '*ARGS)) (T > >> > > >> ) (.DECLS) >) > >> )) ()) (( .DECL) (<==? .TP FORM> ) (<==? .TP LIST> 2> > > .DECL) (<==? .TP FORM> ) (T )>) >>)) >) .ARGL> >> 2> <==? <1 .DECL> QUOTE> >> <2 .DECL>) () > >> <.TR1 (.PROCN *NOT TRACED*)> >> >> ()) ((<1 .L> !>)) >>>