) (UNPRE <>) (NOACT T) (OV .VERBOSE) (NNEW T)) #DECL ((FCN) (GFRMID NOA ACC LARG REVAR BPRE UNPRE NOACT NNEW) ) ()>)> > >> > > )> > ) (BST ) (FRMID >) (SVIOFF 0) TA (IOFF <+ > 2) (ELSE 0)> <* 2 > 0> 0) (ELSE .TA)>>) (ELSE 0)>>) (USOFF 0) (FUZZ <>) (HSLOT 0)) #DECL ((BASEF) (BST) (FRMID GFRMID SVIOFF IOFF USOFF HSLOT) (PRE FUZZ) ) > > )> .NOA .NNEW ) FALSE>> > > > > > ,VAR-ANA > -1)(ELSE .HSLOT)>>>> .NNEW '(FUNNY-STACK)>>> 0> ) () FALSE>>)> )> )>> ) FL K RN ACST) #DECL ((N RN) NODE (FUZZ) (SIOFF) FIX (IOFF COD) FIX (K) ) ) >>> >> > ,MFCN-CODE>> > >> > <==? .TEM BYTES>> 2) (ELSE 1)>>>) (ELSE >)>> >> >> FALSE> > > 5>>> .FL>) (ELSE >)> >>> <==? >>> DUMMY-MAPF>> > <- 1>>) (N <- 2>)) > 0> )> ,CODE-SYM 3>>)> >>> <==? >>> DUMMY-MAPF>> ,BINDING-STRUCTURE > <- 1>>>)> > > 5> >) (ELSE >)>) (>> >)> > ,MPSBR-CODE> >>> >)>) (> <==? .COD ,MFIRST-CODE> <==? > 5>> >)> >> > >>> > >>) (<==? .COD ,STACKFORM-CODE> >>> > > ) ( <==? .COD ,MFCN-CODE>> ) ( <==? .COD ,COPY-CODE> <==? <4 >> STACK>> FUNCTION> .IND>>>> <==? .FCN .RN>> <=? .ACST '(STACK)>> RSUBR RSUBR-ENTRY>>>> .OFUZZ .PRE >>> >) ( <==? .COD ,ISTRUC2-CODE>> >> ,ISTRING> 2) (ELSE 4)>>>> ,VAR-ANA >>) (<==? .COD ,UNWIND-CODE> >> >> >>) (ELSE ,BRANCH-CODE> >> ,VAR-ANA >)> <==? ,SEGMENT-CODE>> (OFUZZ) ANY) >>> >> ) (SVIOFF .SVIOFF) (USOFF .USOFF) (IOFF .IOFF) (NOA <>) (PROG-REP ,PROG> <==? ,REPEAT>>)) #DECL ((PNOD) (FUZZ NOA) (BST) (SVIOFF USOFF IOFF) ) > > >> .UNPRE> >> > > ) (UNPRE <>) (OG .GFRMID) (OV .VERBOSE) (NNEW <>)) #DECL ((REVAR BPRE NNEW UNPRE) ) ()>)> > )> >) (ELSE .UNPRE> >> > > > > > ,VAR-ANA > > >) (ELSE )) #DECL ((BASEF) (PRE) (HSLOT) ) > > ,VAR-ANA > > ) ( )> > -1) (ELSE .HSLOT)>>)>>)>)>> >>> ) >> > 1> >> >> > >>> >>> >>> ITUPLE> <==? TUPLE>>>> ) NT (WD 0)) #DECL ((NT) FIX (TUP) NODE (K) ) ,ISTRUC-CODE>> ,ITUPLE> > ,QUOTE-CODE> >> ,QUOTE-CODE> <==? .NT ,FLVAL-CODE> <==? .NT ,FGVAL-CODE> <==? .NT ,GVAL-CODE> <==? .NT ,LVAL-CODE>> <* > 2>>) (ELSE ,SEGMENT-CODE> >) (ELSE >)>> .K>)>>> ) "AUX" TUP SYM COD (RQRG 0) (TRG 0) (COOL >) (INARG T) INIT-LIST) #DECL ((BST) (SYM) SYMTAB (COD IOFF RQRG TRG) FIX (BASEF) NODE (INARG) (INIT-LIST) LIST) .GMF > >)> ,FUNCTION-CODE> > >)> .GMF <==? DUMMY-MAPF>> <==? 13>> > > > >) (<1 >)>> >>>> ) ()>> .BST>> ) (REMPTR .INIT-LIST) (NA .GMF> .GMF) (ELSE ,NUMACS)>)) #DECL ((L NA) FIX (REMPTR) LIST) )> FIX>) SYM) > .MIN-CNT> > )> >>> > >) (>)>>)> > > ,CODE-SYM >>> T>> > > >>)> >> .DC>)> T> NO-RETURN> > .DC>>> " is: " >)>)> )> > > > >> > >) (ELSE >)> T> > > .FB>>>>> > > >> >)> > 7> <==? 8> <==? 9> >> >>> >) (ELSE ) FALSE>> )> >)>)> > > >) (ELSE >)> >> >)>)> > )> > > >>) (> >> <- -2 <* <- > 2>>) (ELSE <* 2 <- 1>>)>>) (> > ) FALSE>> )> >) (ELSE 2> <==? 3> <==? 13>> > > 3> >>> ) (ELSE 2) (ELSE 0)>>> > >> 6) (ELSE 2)>>>>)>)>)> >> >)>>> ) "AUX" SYM (INARG T) INIT-LIST) #DECL ((BST) (SYM) SYMTAB (USOFF IOFF) FIX (INARG) (INIT-LIST) LIST) .GMF > >)> > > > >) (<1 >)>> >>> ) ()>> .BST>> ) (REMPTR .INIT-LIST) (NA .GMF> .GMF) (ELSE 5)>)) #DECL ((L NA) FIX (REMPTR) LIST) )> FIX>) SYM) > .MIN-CNT> > )> >>> > >) (>)>>)> > >> T>> > > >>)> >> .DC>)> T> NO-RETURN> > .DC>>> " is: " >)>)> )> > > > >> > >) (ELSE >)> T> > > .FB>>>>> >> .GMF <==? DUMMY-MAPF>> 3> <==? 2> <==? 13>> > > 3> >>>> ) (ELSE 2) (ELSE 0)>>> > >> 6) (ELSE 2)>>>)>)> >>> >>>> ) ) (ELSE > .F)>> ,GVAL-CODE> <==? >>> ,QUOTE-CODE> > > >>>> .AT>> (NUMBER) FIX) >>> >  )) #DECL ((VALUE) ) >) (ELSE '(ANY ANY))>> >>>> <==? 2> <==? <1 .D> NOT>> <2 .D>) (ELSE

)>>