)> ALL-JSY > )> ) )> > JSYS>> > .JSY>> >)> .JSY> >>> )> ) THING DIR (LBL <>) TT (LL ()) JSFCN JSATM JSFORM JSNUM XL1 XL2) #DECL ((LL L) LIST) )> > FORM> <==? 2> <==? <1 .JSFORM> QUOTE> > ATOM> ,JSYS-OBLIST>> ATOM> JSYS>> FIX JSYS> FIX> ,ALL-JSY>> >> > >> ) (ELSE >>) (> '[= + -]> > >)> > > >)>) (ELSE > >)> >> > >)> 2>) AC) #DECL ((ACL) VECTOR (AC) ATOM) > '[+ -]> ) (<==? .THING => > >> ) (ELSE )>)> <==? 2> <==? <1 .THING> RETURN>> >) (ELSE !.LL)> >>>>>> )> >)> >> )>>)> > >)> ) (ELSE )> > > ) (> >>> > > ) ( > >)>) (ELSE <==? .JSNUM ,SOBE!-JSYS>> >>>) (ELSE >>>)> >>> > FALSE> )>)>) ()>> XGLOC> VALUE> > ,MAX-ACS> )> 1>> <- .I 1> '(T*)>> XGLOC>>> )>) (.DEST )> > )>> ) ECHAR JFN) #DECL ((L) LIST) 7> > >) (<==? 6> >) (ELSE )>) (<==? 5> >) ( 4> )> > FIX> > ) (ELSE )> TYPE> VALUE> > FIX> > ) (ELSE )> WORD> > ,MAX-IMMEDIATE>> ) (ELSE )>)> > ) (SOURCE <3 .L>) (DEST <5 .L>)) #DECL ((L) LIST) ,GJ-FNS)(ELSE 0)>>> FIX>> FIX>>) (ELSE >)>) (ELSE ,GJ-FNS)(ELSE 0)> -18>> FIX>>)> *777777*>> ) (ELSE )>) (ELSE VALUE> >>)> > )) #DECL ((L) LIST (LN) FIX) > => )> )> > >)> > >)>> > > >> ) ARG1 ARG2 ARG3 ARG4) #DECL ((L) LIST) 7> >) (ELSE )>) ( 5> )> > .DEST> >> )> > .DEST> >> )> > .DEST> >> )> > .DEST> >> )> > > ) ARG1 ARG2 ARG3 TL) #DECL ((L) LIST) > >)> VALUE> VALUE> VALUE> > ) ARG1 ARG2 ARG3) #DECL ((L) LIST) 6> >) (ELSE )>) ( 4> )> > .DEST> >> )> > .DEST> >> )> > .DEST> >> )> > > *777777*>> ) (ELSE )>> )>