"GC-DUMP-DEFS" "STORAGE-DEFS"> .INCHAN) (EOF ') "AUX" BLOCK:UVECTOR HEADER:LIST OFFSET:FIX STOP:FIX BLOCK-LENGTH: WORDS-NEEDED: NUMBER-OF-NEWTYPES: FLAG) "BINARY"> > >> >> > ) (ELSE >>)> > .BLOCK-LENGTH> ) ("VAX" )> >>>> >>> > ) (NEW-CODES ) (GCP: >)) > > ) %<>>> ) (ELSE <1 .HEADER>)>>) (ELSE )>)>) (ELSE )>) (ELSE )>> ) ( ) ( )> > > >) (ELSE )> .STOP>> )>>> OBLIST> FX: CORR-STR:STRING) > FIX> > > .CORR-STR) (ELSE .STR)>) (ELSE .FX)>>> ;"The function RIGHT-ATOM has been replaced by the corresponding MACRO in GC-DUMP-DEFS" ;)) #DECL ((ATM) (OFF VAL) FIX) >) (ELSE > .OFF> >)>> (PNAM) STRING (OFF BNUM) FIX (ATM PTYP) ATOM (CORR-ATM) (FX) (TYPE-C CORR-TYPE-C) (GB) ) > FIX> > .OFF>>>)> > <+ .OFF>> .OFF>>> > > ,OLD-TYPES> .GB>> .OFF>> .OFF>> >)> > > > ) (ELSE )>) (ELSE >)>)> .CORR-ATM) (ELSE >> )> >)> .ATM)>) (ELSE >)> .ATM)>) (ELSE .FX)>> ;"The function PAIR-UP has been replaced by the corresponding MACRO in GC-DUMP-DEFS." ; >) <1 .OLD-CODES .OC> > <1 .NEW-CODES .NC> >> -6> 1>>> >> -6>> .SAT> TYPE-C>> %<> %<> %<> .TYPE-C %<>] T$TYPE-ENTRY>> .TYPE-C> ) FIX> .OFF>>> > ) (ELSE )>)> T> [REST TYPE-C]>) .OFF .OLD-CODES .NEW-CODES>>> .OBJ>) ( .OFF .OLD-CODES .NEW-CODES>> .OFF .OLD-CODES .NEW-CODES>>)> > > >) (ELSE )> .STOP>> )>>> TYPE-C>) (TYP ) PTYP RC) #DECL ((OBJ) ANY (OFF) FIX (PTYP) ATOM (TYP) FIX (TYPE-C) TYPE-C (OLD-CODES NEW-CODES RC) < [REST TYPE-C]>) > -1>> >>)> > >>> >) (ELSE <+ .OFF>>> ; >> >>) (<==? .PTYP GBIND> >>)>)>)> .OBJ> )) #DECL ((OBJ) ANY (STOP) FIX (PTYP) ATOM) ) (<==? .PTYP ATOM> ) (<==? .PTYP GBIND> )> > > <==? .PTYP STRING>> >) (ELSE )> .STOP>> )>>>