) (PHINT <>) "AUX" RD ETYP VAC ACN TCOFF VADDR VVAC ANYCOFF VOFF STACK? A1 LV RHINT) #DECL ((VAR) ANY (NUM) (VAL) ANY) > >)> >)> > <> .VAR .NUM .VAL> T) (ELSE > > ; "This crock causes the actual contents of FR to be saved when bindind UNWIND, so it can be restored by the kernel. CFRAME saves a pointer to the real frame, which is by no means the same thing when MAKTUP-FLAG is set." <==? .VAL T$UNWIND>> > <==? .RHINT T$LBIND>>>> LONG> LONG>)> > PREF-VAL>>) (ELSE > )> >> 2>>> >> > ANY> > >> > <==? >>>>> ) ( .TCOFF>) (ELSE .TCOFF>)>) ( <==? .ETYP SMALL-POS-INT>> .VOFF WORD>) ( > .VOFF WORD>) (ELSE 2>>> )>) ()>) ( <==? .ETYP VWORD1>> > <==? FALSE>> <==? .PHINT FALSE>> .VOFF>) (ELSE )>) (> .PHINT> ) (ELSE )> .VOFF>) (ELSE )>) ( <==? .ETYP TYPE-C>>)>) (ELSE )>) (<==? .ETYP COUNTVWORD> > <==? FALSE> <==? .PHINT FALSE>>> ) ( > .PHINT > ) (ELSE )>) (ELSE > .TCOFF WORD>)>) (<==? .ETYP BYTE> .VOFF BYTE>) (ELSE .VOFF BYTE>)>) (<==? .ETYP BOOLEAN> .VAL>)> )> NORMAL> ) "AUX" ELAB FLAB) #DECL ((VAR) VARTBL (VADDR) EFF-ADDR (TCADDR) ) > .VADDR> > > > > .VADDR > )> >> > FIX>>> > > FIX>>> >> ) (HINT2 <>) "AUX" RD (BRANCH? <>) VAC ACN TCOFF ANYCOFF VOFF TYP NTYP DAC ETYP STACK? AC-LOADED) #DECL ((VAR) ANY (OFF) (HINT2) (RES) ) > >)> > .VAR .OFF>) (ELSE > > > > >> >)> PREF-VAL>>) (ELSE > )> >> 2>>> >> )> > ANY> ) ( <==? .ETYP COUNTVWORD>> .BRANCH?> >> <> .AC-LOADED)> ) (ELSE .AC-LOADED)>>) ( .BRANCH?> > T <> .AC-LOADED>) ( <==? .ETYP TYPE-C>> .NTYP <==? .ETYP TYPE-C>>) ( <==? .ETYP TYPE-C>>)>) (<==? .ETYP COUNTVWORD> ) ()>) (<==? .ETYP SMALL-FR-OFFSET> >> > > ) ( <==? .ETYP SMALL-POS-INT>> >> >) (ELSE >)> ) (<==? .ETYP BYTE> >> > ) (<==? .ETYP BOOLEAN> .BRANCH?>) ( .RES>)>)>)> NORMAL> ) T>> )(ELSE .AC)>>> -> <>>) (ELSE <>>)> .AC> )) #DECL ((VADDR) EFF-ADDR (BRANCH?) ) > -> <>>) (ELSE <>>)> .AC> (TCADDR VADDR) EFF-ADDR (VAC) AC) ) (ELSE >>> >> >) (ELSE >> > >)> )>> ) "AUX" FLAB ELAB RVAC RTAC VPUSH (TYPV <>)) #DECL ((VADDR) EFF-ADDR (TYP) ATOM (VAC) AC (RES) (CADDR) (HTYP) ) >> >)> .CADDR> > > ) (ELSE >)> )> > > .VADDR> .FLAB <>> LONG> ) (ELSE .RTAC> .RVAC>)> > >)> > FIX>> LONG>) (ELSE WORD> WORD>)>) (ELSE WORD> )>) ( LONG>)> >) (ELSE )>) (ELSE > > FIX>> ) (ELSE FIX>>> >) (ELSE >)>) (ELSE >)> )>) (ELSE ) (.CADDR )>)> >) (ELSE LONG>)>)> > >) ( ) (ELSE )>)>> )) #DECL ((VAC) AC (TYP) ) > ) (ELSE .VAC)>) ()>> ) (RTAC <>) (RVAC <>) "AUX" VPUSH (NO-LOAD <>)) #DECL ((VADDR) EFF-ADDR (TYP) ATOM (VAC) AC (RES) (CADDR) ) > > FIX>> LONG>) (.CADDR WORD> ) ( LONG>)> >) (ELSE )>) (ELSE .CADDR> > >>) ( >>) (ELSE )> ) (ELSE >)> LONG>)> ) ( >) (ELSE LONG>)> ) (ELSE )> )>> (BRANCH?) ) > > > > )> .VADDR .FLAB <>> LONG> LONG>) (ELSE )> > > LONG> ) (ELSE .RTAC> .RVAC>)> >> ) > -> .VADDR <2 .BRANCH> <>>) (ELSE .VADDR <2 .BRANCH> <>>)>> ) AC) #DECL ((VAL) VARTBL) > .TCADDR WORD>) (> >>> .TCADDR WORD>)>>