Artifact 8e20da347b44142f69667799067b52125eb4c2165a70129c0c6e97193add8a07:
- File
psl-1983/3-1/tests/20/main7.sym
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 45794) [annotate] [blame] [check-ins using] [more...]
(SAVEFORCOMPILATION (QUOTE (PROGN (SETQ LAMBINDARGS!* (GTWARRAY 15))))) (SETQ ORDEREDIDLIST!* (QUOTE (PUTC CHANNELWRITECHAR INDEPENDENTWRITECHAR WRITECHAR OUT!* PRIN1ID PRIN1INT PRIN1STRING PRIN1PAIR PRTITM PRIN1 PRIN2ID PRIN2STRING PRIN2PAIR PRIN2 TERPRI PRINT PRIN2T PBLANK PRIN1INTX LONGDIV LONGREMAINDER BYTE CHANNELPRIN2 PRINTF ERRORPRINTF LIST5 XCONS BLDMSG ERRPRIN ERRORHEADER ERRORTRAILER ERROR PRIN2L QUIT FATALERROR STDERROR TYPEERROR USAGETYPEERROR INDEXERROR NONPAIRERROR NONIDERROR NONNUMBERERROR NONINTEGERERROR NONPOSITIVEINTEGERERROR NONCHARACTERERROR NONSTRINGERROR NONVECTORERROR NONWORDS NONSEQUENCEERROR NONIOCHANNELERROR WQUOTIENT !%RECLAIM GTHEAP DELHEAP GTSTR GTBPS GTCONSTSTR GTHALFWORDS GTVECT GTEVECT GTWRDS GTFIXN GTFLTN RECLAIM GTID DELBPS GTWARRAY DELWARRAY HARDCONS CONS NCONS MKVECT LIST4 LIST3 LIST2 PUTBYTE MKSTRING EQSTR INITREAD !*RAISE CH!* TOK!* TOKTYPE!* DEBUG SETRAISE CLEARWHITE CLEARCOMMENT READSTR DIGITP READINT ALPHAESCP READID RATOM WHITEP GETC LONGTIMES BUFFERTOSTRING RAISECHAR ALPHANUMESCP INTERN ESCAPEP ALPHAP LOWERCASEP UPPERCASEP ALPHANUMP LOOKUPSTRING NEWID INITNEWID MAKEFUNBOUND PUTHALFWORD MAPOBL PRINTFEXPRS PRINT1FEXPR FEXPRP PRINTFUNCTIONS PRINT1FUNCTION FUNBOUNDP INITOBLIST READ1 READ READLIST QUOTE SAFECDR SYMFNCBASE WPLUS2 SYMFNC WTIMES2 ADDRESSINGUNITSPERFUNCTIONCELL SHOULDBEUNDEFINED !%COPY!-FUNCTION!-CELL COMPILEDCALLINGINTERPRETED FLAMBDALINKP !%STORE!-JCALL MAKEFLAMBDALINK FCODEP MAKEFCODE GETFCODEPOINTER CODEPRIMITIVE CODEPTR!* SAVEREGISTERS CODEFORM!* CODENARG!* COMPILEDCALLINGINTERPRETEDAUX FASTAPPLY FASTLAMBDAAPPLY LAMBDA UNDEFINEDFUNCTIONAUX UNDEFINEDFUNCTIONAUXAUX CODEAPPLY CODEEVALAPPLY CODEEVALAPPLYAUX EVAL CODEPRIMITIVEWGETV BINDEVALAUX BINDEVAL LBIND1 GET COMPILEDCALLINGINTERPRETEDAUXAUX !*LAMBDALINK EVPROGN UNBINDN SYS2INT PLUS2 MINUS ELSE ADD1 SUB1 GREATERP LESSP DIFFERENCE TIMES2 CAAAR CAAAAR CAAADR CAADR CAADAR CAADDR CADAR CADAAR CADADR CADDR CADDAR CADDDR CDAAR CDAAAR CDAADR CDADR CDADAR CDADDR CDDAR CDDAAR CDDADR CDDDR CDDDAR CDDDDR CAAR CADR CDAR CDDR SAFECAR CAR CDR ATOM CONSTANTP NULL LIST PUTD DE EXPR DF FEXPR DN NEXPR DM MACRO SET SETQ PROGN EVCOND COND NOT APPEND MEMQ REVERSE EVLIS ATSOC GEQ LEQ EQCAR GETD COPYD DELATQ PUT INITEVAL WHILE TYPE LAMBDAP GETLAMBDA LAMBDAEVALAPPLY GETFNTYPE LAMBDAAPPLY APPLY DOLAMBDA LENGTH CODEP EQ FLOATP BIGP IDP PAIRP STRINGP VECTORP RPLACA RPLACD LENGTH1 FLUID FLUIDP GLOBAL GLOBALP UNFLUID PROP REMPROP SYS2FIXN RESET BSTACKOVERFLOW ERROUT!* BSTACKUNDERFLOW CAPTUREENVIRONMENT RESTOREENVIRONMENT !%CLEAR!-CATCH!-STACK CLEARBINDINGS PBIND1 LAMBIND LAMBINDARGS!* PROGBIND CODE!-NUMBER!-OF!-ARGUMENTS SYSCLEARIO DEC20OPEN CONTOPENERROR SYSOPENREAD INPUT SYSOPENWRITE OUTPUT DEC20READCHAR SYSREADREC IOERROR DEC20WRITECHAR SYSWRITEREC SYSCLOSE CHANNELERROR SYSMAXBUFFER TERMINALINPUTHANDLER WRITEONLYCHANNEL COMPRESSREADCHAR CHANNELNOTOPEN READONLYCHANNEL TOSTRINGWRITECHAR EXPLODEWRITECHAR FLATSIZEWRITECHAR ILLEGALSTANDARDCHANNELCLOSE !$EOL!$ RDS WRS OPEN CLOSE TYPEFILE DSKIN !$EOF!$ !*PVAL !*ECHO LAPIN SYSTEMOPENFILEFORINPUT SYSTEMOPENFILEFOROUTPUT INDEPENDENTCLOSECHANNEL IN!* STDIN!* STDOUT!* PROMPTOUT!* FINDFREECHANNEL IOBUFFER INDEPENDENTREADCHAR SYSTEMOPENFILESPECIAL TESTLEGALCHANNEL FLUSHBUFFER SYSTEMMARKASCLOSEDCHANNEL CLEARONECHANNEL CLEARIO CHANNELWRITESTRING PROMPTSTRING!*))) (SETQ ORDEREDIDLIST!* (CONS ORDEREDIDLIST!* (LASTPAIR ORDEREDIDLIST!*))) (SETQ NEXTIDNUMBER!* (QUOTE 459)) (SETQ STRINGGENSYM!* (QUOTE "L1530")) (PUT (QUOTE CADR) (QUOTE ENTRYPOINT) (QUOTE CADR)) (PUT (QUOTE CADR) (QUOTE IDNUMBER) (QUOTE 326)) (PUT (QUOTE PRINT1FEXPR) (QUOTE ENTRYPOINT) (QUOTE "L0285")) (PUT (QUOTE PRINT1FEXPR) (QUOTE IDNUMBER) (QUOTE 242)) (PUT (QUOTE GTWRDS) (QUOTE ENTRYPOINT) (QUOTE GTWRDS)) (PUT (QUOTE GTWRDS) (QUOTE IDNUMBER) (QUOTE 190)) (PUT (QUOTE READINT) (QUOTE ENTRYPOINT) (QUOTE "L0212")) (PUT (QUOTE READINT) (QUOTE IDNUMBER) (QUOTE 219)) (PUT (QUOTE SYMFNCBASE) (QUOTE ENTRYPOINT) (QUOTE "L0315")) (PUT (QUOTE SYMFNCBASE) (QUOTE IDNUMBER) (QUOTE 253)) (PUT (QUOTE GEQ) (QUOTE ENTRYPOINT) (QUOTE GEQ)) (PUT (QUOTE GEQ) (QUOTE IDNUMBER) (QUOTE 356)) (PUT (QUOTE BNDSTKUPPERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE BNDSTKUPPERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L1340")) (PUT (QUOTE BNDSTKUPPERBOUND) (QUOTE WVAR) (QUOTE BNDSTKUPPERBOUND)) (PUT (QUOTE IOERROR) (QUOTE ENTRYPOINT) (QUOTE "L1455")) (PUT (QUOTE IOERROR) (QUOTE IDNUMBER) (QUOTE 415)) (PUT (QUOTE MAXBUFFER) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXBUFFER) (QUOTE ASMSYMBOL) (QUOTE "L1451")) (PUT (QUOTE MAXBUFFER) (QUOTE WARRAY) (QUOTE MAXBUFFER)) (PUT (QUOTE DELHEAP) (QUOTE ENTRYPOINT) (QUOTE "L0147")) (PUT (QUOTE DELHEAP) (QUOTE IDNUMBER) (QUOTE 183)) (PUT (QUOTE WRS) (QUOTE ENTRYPOINT) (QUOTE WRS)) (PUT (QUOTE WRS) (QUOTE IDNUMBER) (QUOTE 432)) (PUT (QUOTE SYSTEMOPENFILEFORINPUT) (QUOTE ENTRYPOINT) (QUOTE "L1490")) (PUT (QUOTE SYSTEMOPENFILEFORINPUT) (QUOTE IDNUMBER) (QUOTE 441)) (PUT (QUOTE FUNBOUNDP) (QUOTE ENTRYPOINT) (QUOTE "L0319")) (PUT (QUOTE FUNBOUNDP) (QUOTE IDNUMBER) (QUOTE 246)) (PUT (QUOTE SYSOPENWRITE) (QUOTE ENTRYPOINT) (QUOTE "L1415")) (PUT (QUOTE SYSOPENWRITE) (QUOTE IDNUMBER) (QUOTE 411)) (PUT (QUOTE FATALERROR) (QUOTE ENTRYPOINT) (QUOTE "L0078")) (PUT (QUOTE FATALERROR) (QUOTE IDNUMBER) (QUOTE 164)) (PUT (QUOTE WHILE) (QUOTE ENTRYPOINT) (QUOTE WHILE)) (PUT (QUOTE WHILE) (QUOTE IDNUMBER) (QUOTE 364)) (PUT (QUOTE ST) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ST) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE ST) (QUOTE WVAR) (QUOTE ST)) (PUT (QUOTE PRIN2L) (QUOTE ENTRYPOINT) (QUOTE PRIN2L)) (PUT (QUOTE PRIN2L) (QUOTE IDNUMBER) (QUOTE 162)) (PUT (QUOTE ARG14) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG14) (QUOTE ASMSYMBOL) (QUOTE ARG14)) (PUT (QUOTE ARG14) (QUOTE WVAR) (QUOTE ARG14)) (PUT (QUOTE SYMFNC) (QUOTE IDNUMBER) (QUOTE 255)) (PUT (QUOTE SYMFNC) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMFNC) (QUOTE ASMSYMBOL) (QUOTE SYMFNC)) (PUT (QUOTE SYMFNC) (QUOTE WARRAY) (QUOTE SYMFNC)) (PUT (QUOTE PRIN2ID) (QUOTE ENTRYPOINT) (QUOTE "L0028")) (PUT (QUOTE PRIN2ID) (QUOTE IDNUMBER) (QUOTE 140)) (PUT (QUOTE TERPRI) (QUOTE ENTRYPOINT) (QUOTE TERPRI)) (PUT (QUOTE TERPRI) (QUOTE IDNUMBER) (QUOTE 144)) (PUT (QUOTE MAXOBARRAY) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXOBARRAY) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXOBARRAY) (QUOTE WCONST) (QUOTE 800)) (PUT (QUOTE NEXPR) (QUOTE IDNUMBER) (QUOTE 342)) (PUT (QUOTE !%CLEAR!-CATCH!-STACK) (QUOTE IDNUMBER) (QUOTE 399)) (PUT (QUOTE LAMBINDARGS!*) (QUOTE IDNUMBER) (QUOTE 403)) (PUT (QUOTE SETQ) (QUOTE ENTRYPOINT) (QUOTE SETQ)) (PUT (QUOTE SETQ) (QUOTE IDNUMBER) (QUOTE 346)) (PUT (QUOTE INITEVAL) (QUOTE ENTRYPOINT) (QUOTE "L0685")) (PUT (QUOTE INITEVAL) (QUOTE IDNUMBER) (QUOTE 363)) (PUT (QUOTE TOK!*) (QUOTE IDNUMBER) (QUOTE 211)) (PUT (QUOTE LAMBIND) (QUOTE ENTRYPOINT) (QUOTE "L1363")) (PUT (QUOTE LAMBIND) (QUOTE IDNUMBER) (QUOTE 402)) (PUT (QUOTE CDADR) (QUOTE ENTRYPOINT) (QUOTE CDADR)) (PUT (QUOTE CDADR) (QUOTE IDNUMBER) (QUOTE 316)) (PUT (QUOTE ARG10) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG10) (QUOTE ASMSYMBOL) (QUOTE ARG10)) (PUT (QUOTE ARG10) (QUOTE WVAR) (QUOTE ARG10)) (PUT (QUOTE UNFLUID) (QUOTE ENTRYPOINT) (QUOTE "L0779")) (PUT (QUOTE UNFLUID) (QUOTE IDNUMBER) (QUOTE 389)) (PUT (QUOTE STRINGP) (QUOTE ENTRYPOINT) (QUOTE "L0749")) (PUT (QUOTE STRINGP) (QUOTE IDNUMBER) (QUOTE 380)) (PUT (QUOTE LIST2) (QUOTE ENTRYPOINT) (QUOTE LIST2)) (PUT (QUOTE LIST2) (QUOTE IDNUMBER) (QUOTE 204)) (PUT (QUOTE INPUT) (QUOTE IDNUMBER) (QUOTE 410)) (PUT (QUOTE EVPROGN) (QUOTE ENTRYPOINT) (QUOTE "L0625")) (PUT (QUOTE EVPROGN) (QUOTE IDNUMBER) (QUOTE 289)) (PUT (QUOTE LONGDIV) (QUOTE IDNUMBER) (QUOTE 149)) (PUT (QUOTE WHITEP) (QUOTE ENTRYPOINT) (QUOTE WHITEP)) (PUT (QUOTE WHITEP) (QUOTE IDNUMBER) (QUOTE 223)) (PUT (QUOTE LBIND1) (QUOTE ENTRYPOINT) (QUOTE LBIND1)) (PUT (QUOTE LBIND1) (QUOTE IDNUMBER) (QUOTE 285)) (PUT (QUOTE CAAR) (QUOTE ENTRYPOINT) (QUOTE CAAR)) (PUT (QUOTE CAAR) (QUOTE IDNUMBER) (QUOTE 325)) (PUT (QUOTE READFUNCTION) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE READFUNCTION) (QUOTE ASMSYMBOL) (QUOTE "L1444")) (PUT (QUOTE READFUNCTION) (QUOTE WARRAY) (QUOTE READFUNCTION)) (PUT (QUOTE GETFCODEPOINTER) (QUOTE ENTRYPOINT) (QUOTE "L0349")) (PUT (QUOTE GETFCODEPOINTER) (QUOTE IDNUMBER) (QUOTE 266)) (PUT (QUOTE NCONS) (QUOTE ENTRYPOINT) (QUOTE NCONS)) (PUT (QUOTE NCONS) (QUOTE IDNUMBER) (QUOTE 200)) (PUT (QUOTE DSKIN) (QUOTE ENTRYPOINT) (QUOTE DSKIN)) (PUT (QUOTE DSKIN) (QUOTE IDNUMBER) (QUOTE 436)) (PUT (QUOTE CDDADR) (QUOTE ENTRYPOINT) (QUOTE CDDADR)) (PUT (QUOTE CDDADR) (QUOTE IDNUMBER) (QUOTE 321)) (PUT (QUOTE PROMPTOUT!*) (QUOTE IDNUMBER) (QUOTE 447)) (PUT (QUOTE PROMPTOUT!*) (QUOTE INITIALVALUE) (QUOTE 6)) (PUT (QUOTE PUTC) (QUOTE IDNUMBER) (QUOTE 129)) (PUT (QUOTE SYMNAM) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMNAM) (QUOTE ASMSYMBOL) (QUOTE SYMNAM)) (PUT (QUOTE SYMNAM) (QUOTE WARRAY) (QUOTE SYMNAM)) (PUT (QUOTE MAPOBL) (QUOTE ENTRYPOINT) (QUOTE MAPOBL)) (PUT (QUOTE MAPOBL) (QUOTE IDNUMBER) (QUOTE 240)) (PUT (QUOTE COMPILEDCALLINGINTERPRETED) (QUOTE ENTRYPOINT) (QUOTE "L0354")) (PUT (QUOTE COMPILEDCALLINGINTERPRETED) (QUOTE IDNUMBER) (QUOTE 260)) (PUT (QUOTE WTIMES2) (QUOTE IDNUMBER) (QUOTE 256)) (PUT (QUOTE RPLACA) (QUOTE ENTRYPOINT) (QUOTE RPLACA)) (PUT (QUOTE RPLACA) (QUOTE IDNUMBER) (QUOTE 382)) (PUT (QUOTE CLEARWHITE) (QUOTE ENTRYPOINT) (QUOTE "L0206")) (PUT (QUOTE CLEARWHITE) (QUOTE IDNUMBER) (QUOTE 215)) (PUT (QUOTE SUB1) (QUOTE ENTRYPOINT) (QUOTE SUB1)) (PUT (QUOTE SUB1) (QUOTE IDNUMBER) (QUOTE 296)) (PUT (QUOTE MAXREALREGS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXREALREGS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXREALREGS) (QUOTE WCONST) (QUOTE 5)) (PUT (QUOTE CODEPRIMITIVE) (QUOTE ENTRYPOINT) (QUOTE "L0353")) (PUT (QUOTE CODEPRIMITIVE) (QUOTE IDNUMBER) (QUOTE 267)) (PUT (QUOTE SET) (QUOTE ENTRYPOINT) (QUOTE SET)) (PUT (QUOTE SET) (QUOTE IDNUMBER) (QUOTE 345)) (PUT (QUOTE IN!*) (QUOTE IDNUMBER) (QUOTE 444)) (PUT (QUOTE IN!*) (QUOTE INITIALVALUE) (QUOTE 0)) (PUT (QUOTE PRIN2STRING) (QUOTE ENTRYPOINT) (QUOTE "L0031")) (PUT (QUOTE PRIN2STRING) (QUOTE IDNUMBER) (QUOTE 141)) (PUT (QUOTE COMPILEDCALLINGINTERPRETEDAUX) (QUOTE ENTRYPOINT) (QUOTE "L0430")) (PUT (QUOTE COMPILEDCALLINGINTERPRETEDAUX) (QUOTE IDNUMBER) (QUOTE 272)) (PUT (QUOTE COMPILEDCALLINGINTERPRETEDAUXAUX) (QUOTE ENTRYPOINT) (QUOTE "L0437") ) (PUT (QUOTE COMPILEDCALLINGINTERPRETEDAUXAUX) (QUOTE IDNUMBER) (QUOTE 287)) (PUT (QUOTE CONS) (QUOTE ENTRYPOINT) (QUOTE CONS)) (PUT (QUOTE CONS) (QUOTE IDNUMBER) (QUOTE 199)) (PUT (QUOTE CAAAAR) (QUOTE ENTRYPOINT) (QUOTE CAAAAR)) (PUT (QUOTE CAAAAR) (QUOTE IDNUMBER) (QUOTE 302)) (PUT (QUOTE SYSCLOSE) (QUOTE ENTRYPOINT) (QUOTE "L1440")) (PUT (QUOTE SYSCLOSE) (QUOTE IDNUMBER) (QUOTE 418)) (PUT (QUOTE INDEPENDENTREADCHAR) (QUOTE ENTRYPOINT) (QUOTE "L1502")) (PUT (QUOTE INDEPENDENTREADCHAR) (QUOTE IDNUMBER) (QUOTE 450)) (PUT (QUOTE HEAPLOWERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPLOWERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0136")) (PUT (QUOTE HEAPLOWERBOUND) (QUOTE WVAR) (QUOTE HEAPLOWERBOUND)) (PUT (QUOTE GTSTR) (QUOTE ENTRYPOINT) (QUOTE GTSTR)) (PUT (QUOTE GTSTR) (QUOTE IDNUMBER) (QUOTE 184)) (PUT (QUOTE TOKTYPE!*) (QUOTE IDNUMBER) (QUOTE 212)) (PUT (QUOTE SYSREADREC) (QUOTE ENTRYPOINT) (QUOTE "L1420")) (PUT (QUOTE SYSREADREC) (QUOTE IDNUMBER) (QUOTE 414)) (PUT (QUOTE RDS) (QUOTE ENTRYPOINT) (QUOTE RDS)) (PUT (QUOTE RDS) (QUOTE IDNUMBER) (QUOTE 431)) (PUT (QUOTE GTHEAP) (QUOTE ENTRYPOINT) (QUOTE GTHEAP)) (PUT (QUOTE GTHEAP) (QUOTE IDNUMBER) (QUOTE 182)) (PUT (QUOTE CDDDR) (QUOTE ENTRYPOINT) (QUOTE CDDDR)) (PUT (QUOTE CDDDR) (QUOTE IDNUMBER) (QUOTE 322)) (PUT (QUOTE FEXPR) (QUOTE IDNUMBER) (QUOTE 340)) (PUT (QUOTE CODEAPPLY) (QUOTE ENTRYPOINT) (QUOTE "L0369")) (PUT (QUOTE CODEAPPLY) (QUOTE IDNUMBER) (QUOTE 278)) (PUT (QUOTE QUOTE) (QUOTE ENTRYPOINT) (QUOTE QUOTE)) (PUT (QUOTE QUOTE) (QUOTE IDNUMBER) (QUOTE 251)) (PUT (QUOTE READSTR) (QUOTE ENTRYPOINT) (QUOTE "L0221")) (PUT (QUOTE READSTR) (QUOTE IDNUMBER) (QUOTE 217)) (PUT (QUOTE ERRPRIN) (QUOTE ENTRYPOINT) (QUOTE "L0062")) (PUT (QUOTE ERRPRIN) (QUOTE IDNUMBER) (QUOTE 158)) (PUT (QUOTE HEAPLAST) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPLAST) (QUOTE ASMSYMBOL) (QUOTE "L0138")) (PUT (QUOTE HEAPLAST) (QUOTE WVAR) (QUOTE HEAPLAST)) (PUT (QUOTE NEXTBPS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE NEXTBPS) (QUOTE ASMSYMBOL) (QUOTE "L0141")) (PUT (QUOTE NEXTBPS) (QUOTE WVAR) (QUOTE NEXTBPS)) (PUT (QUOTE ERRORPRINTF) (QUOTE ENTRYPOINT) (QUOTE "L0058")) (PUT (QUOTE ERRORPRINTF) (QUOTE IDNUMBER) (QUOTE 154)) (PUT (QUOTE CLEARBINDINGS) (QUOTE ENTRYPOINT) (QUOTE "L1352")) (PUT (QUOTE CLEARBINDINGS) (QUOTE IDNUMBER) (QUOTE 400)) (PUT (QUOTE HEAPUPPERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPUPPERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0137")) (PUT (QUOTE HEAPUPPERBOUND) (QUOTE WVAR) (QUOTE HEAPUPPERBOUND)) (PUT (QUOTE SYMPRP) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMPRP) (QUOTE ASMSYMBOL) (QUOTE SYMPRP)) (PUT (QUOTE SYMPRP) (QUOTE WARRAY) (QUOTE SYMPRP)) (PUT (QUOTE CHANNELWRITESTRING) (QUOTE IDNUMBER) (QUOTE 457)) (PUT (QUOTE SAFECAR) (QUOTE ENTRYPOINT) (QUOTE "L0583")) (PUT (QUOTE SAFECAR) (QUOTE IDNUMBER) (QUOTE 329)) (PUT (QUOTE CDDR) (QUOTE ENTRYPOINT) (QUOTE CDDR)) (PUT (QUOTE CDDR) (QUOTE IDNUMBER) (QUOTE 328)) (PUT (QUOTE SYSWRITEREC) (QUOTE ENTRYPOINT) (QUOTE "L1432")) (PUT (QUOTE SYSWRITEREC) (QUOTE IDNUMBER) (QUOTE 417)) (PUT (QUOTE PUTBYTE) (QUOTE IDNUMBER) (QUOTE 205)) (PUT (QUOTE IOBUFFER) (QUOTE IDNUMBER) (QUOTE 449)) (PUT (QUOTE CDAADR) (QUOTE ENTRYPOINT) (QUOTE CDAADR)) (PUT (QUOTE CDAADR) (QUOTE IDNUMBER) (QUOTE 315)) (PUT (QUOTE CODEEVALAPPLY) (QUOTE ENTRYPOINT) (QUOTE "L0392")) (PUT (QUOTE CODEEVALAPPLY) (QUOTE IDNUMBER) (QUOTE 279)) (PUT (QUOTE EQSTR) (QUOTE ENTRYPOINT) (QUOTE EQSTR)) (PUT (QUOTE EQSTR) (QUOTE IDNUMBER) (QUOTE 207)) (PUT (QUOTE MEMQ) (QUOTE ENTRYPOINT) (QUOTE MEMQ)) (PUT (QUOTE MEMQ) (QUOTE IDNUMBER) (QUOTE 352)) (PUT (QUOTE PRIN2) (QUOTE ENTRYPOINT) (QUOTE PRIN2)) (PUT (QUOTE PRIN2) (QUOTE IDNUMBER) (QUOTE 143)) (PUT (QUOTE !%STORE!-JCALL) (QUOTE IDNUMBER) (QUOTE 262)) (PUT (QUOTE GTCONSTSTR) (QUOTE ENTRYPOINT) (QUOTE "L0149")) (PUT (QUOTE GTCONSTSTR) (QUOTE IDNUMBER) (QUOTE 186)) (PUT (QUOTE HEAPTRAPBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPTRAPBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0140")) (PUT (QUOTE HEAPTRAPBOUND) (QUOTE WVAR) (QUOTE HEAPTRAPBOUND)) (PUT (QUOTE ALPHANUMP) (QUOTE ENTRYPOINT) (QUOTE "L0254")) (PUT (QUOTE ALPHANUMP) (QUOTE IDNUMBER) (QUOTE 234)) (PUT (QUOTE SYS2INT) (QUOTE ENTRYPOINT) (QUOTE "L0805")) (PUT (QUOTE SYS2INT) (QUOTE IDNUMBER) (QUOTE 291)) (PUT (QUOTE RATOM) (QUOTE ENTRYPOINT) (QUOTE RATOM)) (PUT (QUOTE RATOM) (QUOTE IDNUMBER) (QUOTE 222)) (PUT (QUOTE !*RAISE) (QUOTE IDNUMBER) (QUOTE 209)) (PUT (QUOTE PROMPTSTRING!*) (QUOTE IDNUMBER) (QUOTE 458)) (PUT (QUOTE TOSTRINGWRITECHAR) (QUOTE IDNUMBER) (QUOTE 426)) (PUT (QUOTE ALPHANUMESCP) (QUOTE ENTRYPOINT) (QUOTE "L0256")) (PUT (QUOTE ALPHANUMESCP) (QUOTE IDNUMBER) (QUOTE 228)) (PUT (QUOTE CLOSE) (QUOTE ENTRYPOINT) (QUOTE CLOSE)) (PUT (QUOTE CLOSE) (QUOTE IDNUMBER) (QUOTE 434)) (PUT (QUOTE LEQ) (QUOTE ENTRYPOINT) (QUOTE LEQ)) (PUT (QUOTE LEQ) (QUOTE IDNUMBER) (QUOTE 357)) (PUT (QUOTE CODEFORM!*) (QUOTE IDNUMBER) (QUOTE 270)) (FLAG (QUOTE (CODEFORM!*)) (QUOTE NILINITIALVALUE)) (PUT (QUOTE CODEARGS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE CODEARGS) (QUOTE ASMSYMBOL) (QUOTE "L0363")) (PUT (QUOTE CODEARGS) (QUOTE WARRAY) (QUOTE CODEARGS)) (PUT (QUOTE ALPHAP) (QUOTE ENTRYPOINT) (QUOTE ALPHAP)) (PUT (QUOTE ALPHAP) (QUOTE IDNUMBER) (QUOTE 231)) (PUT (QUOTE LONGTIMES) (QUOTE IDNUMBER) (QUOTE 225)) (PUT (QUOTE BITSPERWORD) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE BITSPERWORD) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE BITSPERWORD) (QUOTE WCONST) (QUOTE 36)) (PUT (QUOTE GTHALFWORDS) (QUOTE ENTRYPOINT) (QUOTE "L0150")) (PUT (QUOTE GTHALFWORDS) (QUOTE IDNUMBER) (QUOTE 187)) (PUT (QUOTE !$EOL!$) (QUOTE IDNUMBER) (QUOTE 430)) (PUT (QUOTE !$EOL!$) (QUOTE INITIALVALUE) (QUOTE ! )) (PUT (QUOTE CAADR) (QUOTE ENTRYPOINT) (QUOTE CAADR)) (PUT (QUOTE CAADR) (QUOTE IDNUMBER) (QUOTE 304)) (PUT (QUOTE !*ECHO) (QUOTE IDNUMBER) (QUOTE 439)) (FLAG (QUOTE (!*ECHO)) (QUOTE NILINITIALVALUE)) (PUT (QUOTE MINUS) (QUOTE ENTRYPOINT) (QUOTE MINUS)) (PUT (QUOTE MINUS) (QUOTE IDNUMBER) (QUOTE 293)) (PUT (QUOTE LIST5) (QUOTE ENTRYPOINT) (QUOTE LIST5)) (PUT (QUOTE LIST5) (QUOTE IDNUMBER) (QUOTE 155)) (PUT (QUOTE STDERROR) (QUOTE ENTRYPOINT) (QUOTE "L0079")) (PUT (QUOTE STDERROR) (QUOTE IDNUMBER) (QUOTE 165)) (PUT (QUOTE ERRORHEADER) (QUOTE ENTRYPOINT) (QUOTE "L0065")) (PUT (QUOTE ERRORHEADER) (QUOTE IDNUMBER) (QUOTE 159)) (PUT (QUOTE CDAR) (QUOTE ENTRYPOINT) (QUOTE CDAR)) (PUT (QUOTE CDAR) (QUOTE IDNUMBER) (QUOTE 327)) (PUT (QUOTE CADDDR) (QUOTE ENTRYPOINT) (QUOTE CADDDR)) (PUT (QUOTE CADDDR) (QUOTE IDNUMBER) (QUOTE 312)) (PUT (QUOTE ARG13) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG13) (QUOTE ASMSYMBOL) (QUOTE ARG13)) (PUT (QUOTE ARG13) (QUOTE WVAR) (QUOTE ARG13)) (PUT (QUOTE GTFLTN) (QUOTE ENTRYPOINT) (QUOTE GTFLTN)) (PUT (QUOTE GTFLTN) (QUOTE IDNUMBER) (QUOTE 192)) (PUT (QUOTE CDDAAR) (QUOTE ENTRYPOINT) (QUOTE CDDAAR)) (PUT (QUOTE CDDAAR) (QUOTE IDNUMBER) (QUOTE 320)) (PUT (QUOTE MAXSYMBOLS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXSYMBOLS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXSYMBOLS) (QUOTE WCONST) (QUOTE 800)) (PUT (QUOTE !*LAMBDALINK) (QUOTE IDNUMBER) (QUOTE 288)) (PUT (QUOTE NONCHARACTERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0120")) (PUT (QUOTE NONCHARACTERERROR) (QUOTE IDNUMBER) (QUOTE 174)) (PUT (QUOTE !*PVAL) (QUOTE IDNUMBER) (QUOTE 438)) (FLAG (QUOTE (!*PVAL)) (QUOTE NILINITIALVALUE)) (PUT (QUOTE SYSCLEARIO) (QUOTE ENTRYPOINT) (QUOTE "L1410")) (PUT (QUOTE SYSCLEARIO) (QUOTE IDNUMBER) (QUOTE 406)) (PUT (QUOTE PRIN2PAIR) (QUOTE ENTRYPOINT) (QUOTE "L0045")) (PUT (QUOTE PRIN2PAIR) (QUOTE IDNUMBER) (QUOTE 142)) (PUT (QUOTE SAVEREGISTERS) (QUOTE ENTRYPOINT) (QUOTE "L0364")) (PUT (QUOTE SAVEREGISTERS) (QUOTE IDNUMBER) (QUOTE 269)) (PUT (QUOTE ARG9) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG9) (QUOTE ASMSYMBOL) (QUOTE ARG9)) (PUT (QUOTE ARG9) (QUOTE WVAR) (QUOTE ARG9)) (PUT (QUOTE CHANNELSTATUS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE CHANNELSTATUS) (QUOTE ASMSYMBOL) (QUOTE "L1450")) (PUT (QUOTE CHANNELSTATUS) (QUOTE WARRAY) (QUOTE CHANNELSTATUS)) (PUT (QUOTE ERROR) (QUOTE ENTRYPOINT) (QUOTE ERROR)) (PUT (QUOTE ERROR) (QUOTE IDNUMBER) (QUOTE 161)) (PUT (QUOTE RESET) (QUOTE IDNUMBER) (QUOTE 393)) (PUT (QUOTE REMPROP) (QUOTE ENTRYPOINT) (QUOTE "L0791")) (PUT (QUOTE REMPROP) (QUOTE IDNUMBER) (QUOTE 391)) (PUT (QUOTE INITOBLIST) (QUOTE ENTRYPOINT) (QUOTE "L0292")) (PUT (QUOTE INITOBLIST) (QUOTE IDNUMBER) (QUOTE 247)) (PUT (QUOTE BINDEVAL) (QUOTE ENTRYPOINT) (QUOTE "L0419")) (PUT (QUOTE BINDEVAL) (QUOTE IDNUMBER) (QUOTE 284)) (PUT (QUOTE CLEARIO) (QUOTE ENTRYPOINT) (QUOTE "L1520")) (PUT (QUOTE CLEARIO) (QUOTE IDNUMBER) (QUOTE 456)) (PUT (QUOTE HARDCONS) (QUOTE ENTRYPOINT) (QUOTE "L0167")) (PUT (QUOTE HARDCONS) (QUOTE IDNUMBER) (QUOTE 198)) (PUT (QUOTE GTBPS) (QUOTE ENTRYPOINT) (QUOTE GTBPS)) (PUT (QUOTE GTBPS) (QUOTE IDNUMBER) (QUOTE 185)) (PUT (QUOTE CADDR) (QUOTE ENTRYPOINT) (QUOTE CADDR)) (PUT (QUOTE CADDR) (QUOTE IDNUMBER) (QUOTE 310)) (PUT (QUOTE FEXPRP) (QUOTE IDNUMBER) (QUOTE 243)) (PUT (QUOTE ARG7) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG7) (QUOTE ASMSYMBOL) (QUOTE ARG7)) (PUT (QUOTE ARG7) (QUOTE WVAR) (QUOTE ARG7)) (PUT (QUOTE CHANNELPRIN2) (QUOTE ENTRYPOINT) (QUOTE "L0055")) (PUT (QUOTE CHANNELPRIN2) (QUOTE IDNUMBER) (QUOTE 152)) (PUT (QUOTE NEXTPOSITION) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE NEXTPOSITION) (QUOTE ASMSYMBOL) (QUOTE "L1453")) (PUT (QUOTE NEXTPOSITION) (QUOTE WARRAY) (QUOTE NEXTPOSITION)) (PUT (QUOTE VECTORP) (QUOTE ENTRYPOINT) (QUOTE "L0752")) (PUT (QUOTE VECTORP) (QUOTE IDNUMBER) (QUOTE 381)) (PUT (QUOTE DELWARRAY) (QUOTE ENTRYPOINT) (QUOTE "L0165")) (PUT (QUOTE DELWARRAY) (QUOTE IDNUMBER) (QUOTE 197)) (PUT (QUOTE CODEP) (QUOTE ENTRYPOINT) (QUOTE CODEP)) (PUT (QUOTE CODEP) (QUOTE IDNUMBER) (QUOTE 374)) (PUT (QUOTE FLUID) (QUOTE ENTRYPOINT) (QUOTE FLUID)) (PUT (QUOTE FLUID) (QUOTE IDNUMBER) (QUOTE 385)) (PUT (QUOTE EQ) (QUOTE ENTRYPOINT) (QUOTE EQ)) (PUT (QUOTE EQ) (QUOTE IDNUMBER) (QUOTE 375)) (PUT (QUOTE PAIRP) (QUOTE ENTRYPOINT) (QUOTE PAIRP)) (PUT (QUOTE PAIRP) (QUOTE IDNUMBER) (QUOTE 379)) (PUT (QUOTE CH!*) (QUOTE IDNUMBER) (QUOTE 210)) (PUT (QUOTE ILLEGALSTANDARDCHANNELCLOSE) (QUOTE IDNUMBER) (QUOTE 429)) (PUT (QUOTE EXPLODEWRITECHAR) (QUOTE IDNUMBER) (QUOTE 427)) (PUT (QUOTE CAADDR) (QUOTE ENTRYPOINT) (QUOTE CAADDR)) (PUT (QUOTE CAADDR) (QUOTE IDNUMBER) (QUOTE 306)) (PUT (QUOTE TYPEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0086")) (PUT (QUOTE TYPEERROR) (QUOTE IDNUMBER) (QUOTE 166)) (PUT (QUOTE DE) (QUOTE ENTRYPOINT) (QUOTE DE)) (PUT (QUOTE DE) (QUOTE IDNUMBER) (QUOTE 337)) (PUT (QUOTE ELSE) (QUOTE IDNUMBER) (QUOTE 294)) (PUT (QUOTE ARG5) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG5) (QUOTE ASMSYMBOL) (QUOTE ARG5)) (PUT (QUOTE ARG5) (QUOTE WVAR) (QUOTE ARG5)) (PUT (QUOTE ADDRESSINGUNITSPERFUNCTIONCELL) (QUOTE IDNUMBER) (QUOTE 257)) (PUT (QUOTE UPPERCASEP) (QUOTE ENTRYPOINT) (QUOTE "L0242")) (PUT (QUOTE UPPERCASEP) (QUOTE IDNUMBER) (QUOTE 233)) (PUT (QUOTE NONWORDS) (QUOTE ENTRYPOINT) (QUOTE "L0129")) (PUT (QUOTE NONWORDS) (QUOTE IDNUMBER) (QUOTE 177)) (PUT (QUOTE LOOKUPSTRING) (QUOTE ENTRYPOINT) (QUOTE "L0273")) (PUT (QUOTE LOOKUPSTRING) (QUOTE IDNUMBER) (QUOTE 235)) (PUT (QUOTE INDEXERROR) (QUOTE ENTRYPOINT) (QUOTE "L0102")) (PUT (QUOTE INDEXERROR) (QUOTE IDNUMBER) (QUOTE 168)) (PUT (QUOTE INITNEWID) (QUOTE ENTRYPOINT) (QUOTE "L0265")) (PUT (QUOTE INITNEWID) (QUOTE IDNUMBER) (QUOTE 237)) (PUT (QUOTE ATOM) (QUOTE ENTRYPOINT) (QUOTE ATOM)) (PUT (QUOTE ATOM) (QUOTE IDNUMBER) (QUOTE 332)) (PUT (QUOTE CODEPRIMITIVEWGETV) (QUOTE IDNUMBER) (QUOTE 282)) (PUT (QUOTE PROGN) (QUOTE ENTRYPOINT) (QUOTE PROGN)) (PUT (QUOTE PROGN) (QUOTE IDNUMBER) (QUOTE 347)) (PUT (QUOTE MKVECT) (QUOTE ENTRYPOINT) (QUOTE MKVECT)) (PUT (QUOTE MKVECT) (QUOTE IDNUMBER) (QUOTE 201)) (PUT (QUOTE !$EOF!$) (QUOTE IDNUMBER) (QUOTE 437)) (PUT (QUOTE DIGITP) (QUOTE ENTRYPOINT) (QUOTE DIGITP)) (PUT (QUOTE DIGITP) (QUOTE IDNUMBER) (QUOTE 218)) (PUT (QUOTE ARG3) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG3) (QUOTE ASMSYMBOL) (QUOTE ARG3)) (PUT (QUOTE ARG3) (QUOTE WVAR) (QUOTE ARG3)) (PUT (QUOTE NONINTEGERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0114")) (PUT (QUOTE NONINTEGERERROR) (QUOTE IDNUMBER) (QUOTE 172)) (PUT (QUOTE BNDSTKPTR) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE BNDSTKPTR) (QUOTE ASMSYMBOL) (QUOTE "L1341")) (PUT (QUOTE BNDSTKPTR) (QUOTE WVAR) (QUOTE BNDSTKPTR)) (PUT (QUOTE FASTAPPLY) (QUOTE ENTRYPOINT) (QUOTE "L0359")) (PUT (QUOTE FASTAPPLY) (QUOTE IDNUMBER) (QUOTE 273)) (PUT (QUOTE PROGBIND) (QUOTE ENTRYPOINT) (QUOTE "L1366")) (PUT (QUOTE PROGBIND) (QUOTE IDNUMBER) (QUOTE 404)) (PUT (QUOTE SYSTEMMARKASCLOSEDCHANNEL) (QUOTE ENTRYPOINT) (QUOTE "L1511")) (PUT (QUOTE SYSTEMMARKASCLOSEDCHANNEL) (QUOTE IDNUMBER) (QUOTE 454)) (PUT (QUOTE CHANNELWRITECHAR) (QUOTE ENTRYPOINT) (QUOTE "L0006")) (PUT (QUOTE CHANNELWRITECHAR) (QUOTE IDNUMBER) (QUOTE 130)) (PUT (QUOTE PRIN1) (QUOTE ENTRYPOINT) (QUOTE PRIN1)) (PUT (QUOTE PRIN1) (QUOTE IDNUMBER) (QUOTE 139)) (PUT (QUOTE CDAAR) (QUOTE ENTRYPOINT) (QUOTE CDAAR)) (PUT (QUOTE CDAAR) (QUOTE IDNUMBER) (QUOTE 313)) (PUT (QUOTE SHOULDBEUNDEFINED) (QUOTE IDNUMBER) (QUOTE 258)) (PUT (QUOTE SYSOPENREAD) (QUOTE ENTRYPOINT) (QUOTE "L1412")) (PUT (QUOTE SYSOPENREAD) (QUOTE IDNUMBER) (QUOTE 409)) (PUT (QUOTE PUTD) (QUOTE ENTRYPOINT) (QUOTE PUTD)) (PUT (QUOTE PUTD) (QUOTE IDNUMBER) (QUOTE 336)) (PUT (QUOTE DF) (QUOTE ENTRYPOINT) (QUOTE DF)) (PUT (QUOTE DF) (QUOTE IDNUMBER) (QUOTE 339)) (PUT (QUOTE CDAAAR) (QUOTE ENTRYPOINT) (QUOTE CDAAAR)) (PUT (QUOTE CDAAAR) (QUOTE IDNUMBER) (QUOTE 314)) (PUT (QUOTE COPYD) (QUOTE ENTRYPOINT) (QUOTE COPYD)) (PUT (QUOTE COPYD) (QUOTE IDNUMBER) (QUOTE 360)) (PUT (QUOTE ARG1) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG1) (QUOTE ASMSYMBOL) (QUOTE ARG1)) (PUT (QUOTE ARG1) (QUOTE WVAR) (QUOTE ARG1)) (PUT (QUOTE LENGTH1) (QUOTE ENTRYPOINT) (QUOTE "L0772")) (PUT (QUOTE LENGTH1) (QUOTE IDNUMBER) (QUOTE 384)) (PUT (QUOTE LAPIN) (QUOTE ENTRYPOINT) (QUOTE LAPIN)) (PUT (QUOTE LAPIN) (QUOTE IDNUMBER) (QUOTE 440)) (PUT (QUOTE GETC) (QUOTE IDNUMBER) (QUOTE 224)) (PUT (QUOTE NONPOSITIVEINTEGERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0117")) (PUT (QUOTE NONPOSITIVEINTEGERERROR) (QUOTE IDNUMBER) (QUOTE 173)) (PUT (QUOTE LAMBDAAPPLY) (QUOTE ENTRYPOINT) (QUOTE "L0719")) (PUT (QUOTE LAMBDAAPPLY) (QUOTE IDNUMBER) (QUOTE 370)) (PUT (QUOTE NONVECTORERROR) (QUOTE ENTRYPOINT) (QUOTE "L0126")) (PUT (QUOTE NONVECTORERROR) (QUOTE IDNUMBER) (QUOTE 176)) (PUT (QUOTE CADDAR) (QUOTE ENTRYPOINT) (QUOTE CADDAR)) (PUT (QUOTE CADDAR) (QUOTE IDNUMBER) (QUOTE 311)) (PUT (QUOTE NOT) (QUOTE ENTRYPOINT) (QUOTE NOT)) (PUT (QUOTE NOT) (QUOTE IDNUMBER) (QUOTE 350)) (PUT (QUOTE GREATERP) (QUOTE ENTRYPOINT) (QUOTE "L0465")) (PUT (QUOTE GREATERP) (QUOTE IDNUMBER) (QUOTE 297)) (PUT (QUOTE EVCOND) (QUOTE ENTRYPOINT) (QUOTE EVCOND)) (PUT (QUOTE EVCOND) (QUOTE IDNUMBER) (QUOTE 348)) (PUT (QUOTE WRITEONLYCHANNEL) (QUOTE IDNUMBER) (QUOTE 422)) (PUT (QUOTE FLUSHBUFFER) (QUOTE ENTRYPOINT) (QUOTE "L1509")) (PUT (QUOTE FLUSHBUFFER) (QUOTE IDNUMBER) (QUOTE 453)) (PUT (QUOTE CDDDDR) (QUOTE ENTRYPOINT) (QUOTE CDDDDR)) (PUT (QUOTE CDDDDR) (QUOTE IDNUMBER) (QUOTE 324)) (PUT (QUOTE WQUOTIENT) (QUOTE IDNUMBER) (QUOTE 180)) (PUT (QUOTE USAGETYPEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0097")) (PUT (QUOTE USAGETYPEERROR) (QUOTE IDNUMBER) (QUOTE 167)) (PUT (QUOTE PBIND1) (QUOTE ENTRYPOINT) (QUOTE PBIND1)) (PUT (QUOTE PBIND1) (QUOTE IDNUMBER) (QUOTE 401)) (PUT (QUOTE CHANNELTABLE) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE CHANNELTABLE) (QUOTE ASMSYMBOL) (QUOTE "L1452")) (PUT (QUOTE CHANNELTABLE) (QUOTE WARRAY) (QUOTE CHANNELTABLE)) (PUT (QUOTE CDR) (QUOTE ENTRYPOINT) (QUOTE CDR)) (PUT (QUOTE CDR) (QUOTE IDNUMBER) (QUOTE 331)) (PUT (QUOTE LIST4) (QUOTE ENTRYPOINT) (QUOTE LIST4)) (PUT (QUOTE LIST4) (QUOTE IDNUMBER) (QUOTE 202)) (PUT (QUOTE PRIN1INTX) (QUOTE ENTRYPOINT) (QUOTE "L0024")) (PUT (QUOTE PRIN1INTX) (QUOTE IDNUMBER) (QUOTE 148)) (PUT (QUOTE PRINT1FUNCTION) (QUOTE ENTRYPOINT) (QUOTE "L0289")) (PUT (QUOTE PRINT1FUNCTION) (QUOTE IDNUMBER) (QUOTE 245)) (PUT (QUOTE MAXCHANNELS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXCHANNELS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXCHANNELS) (QUOTE WCONST) (QUOTE 31)) (PUT (QUOTE ARG12) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG12) (QUOTE ASMSYMBOL) (QUOTE ARG12)) (PUT (QUOTE ARG12) (QUOTE WVAR) (QUOTE ARG12)) (PUT (QUOTE SYSTEMOPENFILESPECIAL) (QUOTE ENTRYPOINT) (QUOTE "L1495")) (PUT (QUOTE SYSTEMOPENFILESPECIAL) (QUOTE IDNUMBER) (QUOTE 451)) (PUT (QUOTE NONSTRINGERROR) (QUOTE ENTRYPOINT) (QUOTE "L0123")) (PUT (QUOTE NONSTRINGERROR) (QUOTE IDNUMBER) (QUOTE 175)) (PUT (QUOTE INDEPENDENTCLOSECHANNEL) (QUOTE ENTRYPOINT) (QUOTE "L1512")) (PUT (QUOTE INDEPENDENTCLOSECHANNEL) (QUOTE IDNUMBER) (QUOTE 443)) (PUT (QUOTE MACRO) (QUOTE IDNUMBER) (QUOTE 344)) (PUT (QUOTE TERMINALINPUTHANDLER) (QUOTE ENTRYPOINT) (QUOTE "L1526")) (PUT (QUOTE TERMINALINPUTHANDLER) (QUOTE IDNUMBER) (QUOTE 421)) (PUT (QUOTE OUT!*) (QUOTE IDNUMBER) (QUOTE 133)) (PUT (QUOTE OUT!*) (QUOTE INITIALVALUE) (QUOTE 1)) (PUT (QUOTE STDOUT!*) (QUOTE IDNUMBER) (QUOTE 446)) (PUT (QUOTE STDOUT!*) (QUOTE INITIALVALUE) (QUOTE 1)) (PUT (QUOTE HEAPPREVIOUSLAST) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPPREVIOUSLAST) (QUOTE ASMSYMBOL) (QUOTE "L0139")) (PUT (QUOTE HEAPPREVIOUSLAST) (QUOTE WVAR) (QUOTE HEAPPREVIOUSLAST)) (PUT (QUOTE FINDFREECHANNEL) (QUOTE ENTRYPOINT) (QUOTE "L1483")) (PUT (QUOTE FINDFREECHANNEL) (QUOTE IDNUMBER) (QUOTE 448)) (PUT (QUOTE TYPE) (QUOTE IDNUMBER) (QUOTE 365)) (PUT (QUOTE CDDAR) (QUOTE ENTRYPOINT) (QUOTE CDDAR)) (PUT (QUOTE CDDAR) (QUOTE IDNUMBER) (QUOTE 319)) (PUT (QUOTE INDEPENDENTWRITECHAR) (QUOTE ENTRYPOINT) (QUOTE "L1506")) (PUT (QUOTE INDEPENDENTWRITECHAR) (QUOTE IDNUMBER) (QUOTE 131)) (PUT (QUOTE PRIN1PAIR) (QUOTE ENTRYPOINT) (QUOTE "L0037")) (PUT (QUOTE PRIN1PAIR) (QUOTE IDNUMBER) (QUOTE 137)) (PUT (QUOTE PRINTF) (QUOTE ENTRYPOINT) (QUOTE PRINTF)) (PUT (QUOTE PRINTF) (QUOTE IDNUMBER) (QUOTE 153)) (PUT (QUOTE PRINT) (QUOTE ENTRYPOINT) (QUOTE PRINT)) (PUT (QUOTE PRINT) (QUOTE IDNUMBER) (QUOTE 145)) (PUT (QUOTE SAFECDR) (QUOTE ENTRYPOINT) (QUOTE "L0588")) (PUT (QUOTE SAFECDR) (QUOTE IDNUMBER) (QUOTE 252)) (PUT (QUOTE MAKEFUNBOUND) (QUOTE ENTRYPOINT) (QUOTE "L0324")) (PUT (QUOTE MAKEFUNBOUND) (QUOTE IDNUMBER) (QUOTE 238)) (PUT (QUOTE DELATQ) (QUOTE ENTRYPOINT) (QUOTE DELATQ)) (PUT (QUOTE DELATQ) (QUOTE IDNUMBER) (QUOTE 361)) (PUT (QUOTE HASHTABLE) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HASHTABLE) (QUOTE ASMSYMBOL) (QUOTE "L0005")) (PUT (QUOTE HASHTABLE) (QUOTE WARRAY) (QUOTE HASHTABLE)) (PUT (QUOTE !%COPY!-FUNCTION!-CELL) (QUOTE IDNUMBER) (QUOTE 259)) (PUT (QUOTE GTEVECT) (QUOTE ENTRYPOINT) (QUOTE "L0151")) (PUT (QUOTE GTEVECT) (QUOTE IDNUMBER) (QUOTE 189)) (PUT (QUOTE PROP) (QUOTE ENTRYPOINT) (QUOTE PROP)) (PUT (QUOTE PROP) (QUOTE IDNUMBER) (QUOTE 390)) (PUT (QUOTE CODENARG!*) (QUOTE IDNUMBER) (QUOTE 271)) (FLAG (QUOTE (CODENARG!*)) (QUOTE NILINITIALVALUE)) (PUT (QUOTE BIGP) (QUOTE ENTRYPOINT) (QUOTE BIGP)) (PUT (QUOTE BIGP) (QUOTE IDNUMBER) (QUOTE 377)) (PUT (QUOTE WRITEFUNCTION) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE WRITEFUNCTION) (QUOTE ASMSYMBOL) (QUOTE "L1445")) (PUT (QUOTE WRITEFUNCTION) (QUOTE WARRAY) (QUOTE WRITEFUNCTION)) (PUT (QUOTE CLEARONECHANNEL) (QUOTE ENTRYPOINT) (QUOTE "L1514")) (PUT (QUOTE CLEARONECHANNEL) (QUOTE IDNUMBER) (QUOTE 455)) (PUT (QUOTE CDADDR) (QUOTE ENTRYPOINT) (QUOTE CDADDR)) (PUT (QUOTE CDADDR) (QUOTE IDNUMBER) (QUOTE 318)) (PUT (QUOTE CODE!-NUMBER!-OF!-ARGUMENTS) (QUOTE ENTRYPOINT) (QUOTE "L1407")) (PUT (QUOTE CODE!-NUMBER!-OF!-ARGUMENTS) (QUOTE IDNUMBER) (QUOTE 405)) (PUT (QUOTE GTWARRAY) (QUOTE ENTRYPOINT) (QUOTE "L0162")) (PUT (QUOTE GTWARRAY) (QUOTE IDNUMBER) (QUOTE 196)) (PUT (QUOTE DEC20WRITECHAR) (QUOTE ENTRYPOINT) (QUOTE "L1436")) (PUT (QUOTE DEC20WRITECHAR) (QUOTE IDNUMBER) (QUOTE 416)) (PUT (QUOTE ALPHAESCP) (QUOTE ENTRYPOINT) (QUOTE "L0252")) (PUT (QUOTE ALPHAESCP) (QUOTE IDNUMBER) (QUOTE 220)) (PUT (QUOTE SYSMAXBUFFER) (QUOTE ENTRYPOINT) (QUOTE "L1442")) (PUT (QUOTE SYSMAXBUFFER) (QUOTE IDNUMBER) (QUOTE 420)) (PUT (QUOTE RESTOREENVIRONMENT) (QUOTE ENTRYPOINT) (QUOTE "L1349")) (PUT (QUOTE RESTOREENVIRONMENT) (QUOTE IDNUMBER) (QUOTE 398)) (PUT (QUOTE PUTHALFWORD) (QUOTE IDNUMBER) (QUOTE 239)) (PUT (QUOTE EVLIS) (QUOTE ENTRYPOINT) (QUOTE EVLIS)) (PUT (QUOTE EVLIS) (QUOTE IDNUMBER) (QUOTE 354)) (PUT (QUOTE NONNUMBERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0111")) (PUT (QUOTE NONNUMBERERROR) (QUOTE IDNUMBER) (QUOTE 171)) (PUT (QUOTE APPLY) (QUOTE ENTRYPOINT) (QUOTE APPLY)) (PUT (QUOTE APPLY) (QUOTE IDNUMBER) (QUOTE 371)) (PUT (QUOTE BUFFERLENGTH) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE BUFFERLENGTH) (QUOTE ASMSYMBOL) (QUOTE "L1454")) (PUT (QUOTE BUFFERLENGTH) (QUOTE WARRAY) (QUOTE BUFFERLENGTH)) (PUT (QUOTE LOWERCASEP) (QUOTE ENTRYPOINT) (QUOTE "L0246")) (PUT (QUOTE LOWERCASEP) (QUOTE IDNUMBER) (QUOTE 232)) (PUT (QUOTE LENGTH) (QUOTE ENTRYPOINT) (QUOTE LENGTH)) (PUT (QUOTE LENGTH) (QUOTE IDNUMBER) (QUOTE 373)) (PUT (QUOTE PRTITM) (QUOTE ENTRYPOINT) (QUOTE PRTITM)) (PUT (QUOTE PRTITM) (QUOTE IDNUMBER) (QUOTE 138)) (PUT (QUOTE READ) (QUOTE ENTRYPOINT) (QUOTE READ)) (PUT (QUOTE READ) (QUOTE IDNUMBER) (QUOTE 249)) (PUT (QUOTE CAPTUREENVIRONMENT) (QUOTE ENTRYPOINT) (QUOTE "L1348")) (PUT (QUOTE CAPTUREENVIRONMENT) (QUOTE IDNUMBER) (QUOTE 397)) (PUT (QUOTE GETFNTYPE) (QUOTE ENTRYPOINT) (QUOTE "L0796")) (PUT (QUOTE GETFNTYPE) (QUOTE IDNUMBER) (QUOTE 369)) (PUT (QUOTE FLATSIZEWRITECHAR) (QUOTE IDNUMBER) (QUOTE 428)) (PUT (QUOTE PUT) (QUOTE ENTRYPOINT) (QUOTE PUT)) (PUT (QUOTE PUT) (QUOTE IDNUMBER) (QUOTE 362)) (PUT (QUOTE GETLAMBDA) (QUOTE ENTRYPOINT) (QUOTE "L0736")) (PUT (QUOTE GETLAMBDA) (QUOTE IDNUMBER) (QUOTE 367)) (PUT (QUOTE BSTACKOVERFLOW) (QUOTE ENTRYPOINT) (QUOTE "L1344")) (PUT (QUOTE BSTACKOVERFLOW) (QUOTE IDNUMBER) (QUOTE 394)) (PUT (QUOTE CAADAR) (QUOTE ENTRYPOINT) (QUOTE CAADAR)) (PUT (QUOTE CAADAR) (QUOTE IDNUMBER) (QUOTE 305)) (PUT (QUOTE XCONS) (QUOTE ENTRYPOINT) (QUOTE XCONS)) (PUT (QUOTE XCONS) (QUOTE IDNUMBER) (QUOTE 156)) (PUT (QUOTE UNREADBUFFER) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE UNREADBUFFER) (QUOTE ASMSYMBOL) (QUOTE "L1447")) (PUT (QUOTE UNREADBUFFER) (QUOTE WARRAY) (QUOTE UNREADBUFFER)) (PUT (QUOTE BYTE) (QUOTE IDNUMBER) (QUOTE 151)) (PUT (QUOTE PRINTFUNCTIONS) (QUOTE ENTRYPOINT) (QUOTE "L0288")) (PUT (QUOTE PRINTFUNCTIONS) (QUOTE IDNUMBER) (QUOTE 244)) (PUT (QUOTE PRIN1INT) (QUOTE ENTRYPOINT) (QUOTE "L0020")) (PUT (QUOTE PRIN1INT) (QUOTE IDNUMBER) (QUOTE 135)) (PUT (QUOTE LINEPOSITION) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE LINEPOSITION) (QUOTE ASMSYMBOL) (QUOTE "L1448")) (PUT (QUOTE LINEPOSITION) (QUOTE WARRAY) (QUOTE LINEPOSITION)) (PUT (QUOTE TOKENBUFFER) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE TOKENBUFFER) (QUOTE ASMSYMBOL) (QUOTE "L1443")) (PUT (QUOTE TOKENBUFFER) (QUOTE WSTRING) (QUOTE TOKENBUFFER)) (PUT (QUOTE INTERN) (QUOTE ENTRYPOINT) (QUOTE INTERN)) (PUT (QUOTE INTERN) (QUOTE IDNUMBER) (QUOTE 229)) (PUT (QUOTE LAMBDAP) (QUOTE ENTRYPOINT) (QUOTE "L0730")) (PUT (QUOTE LAMBDAP) (QUOTE IDNUMBER) (QUOTE 366)) (PUT (QUOTE LIST) (QUOTE ENTRYPOINT) (QUOTE LIST)) (PUT (QUOTE LIST) (QUOTE IDNUMBER) (QUOTE 335)) (PUT (QUOTE CODEEVALAPPLYAUX) (QUOTE ENTRYPOINT) (QUOTE "L0396")) (PUT (QUOTE CODEEVALAPPLYAUX) (QUOTE IDNUMBER) (QUOTE 280)) (PUT (QUOTE SYS2FIXN) (QUOTE ENTRYPOINT) (QUOTE "L0809")) (PUT (QUOTE SYS2FIXN) (QUOTE IDNUMBER) (QUOTE 392)) (PUT (QUOTE CHANNELERROR) (QUOTE IDNUMBER) (QUOTE 419)) (PUT (QUOTE DOLAMBDA) (QUOTE ENTRYPOINT) (QUOTE "L0723")) (PUT (QUOTE DOLAMBDA) (QUOTE IDNUMBER) (QUOTE 372)) (PUT (QUOTE TIMES2) (QUOTE ENTRYPOINT) (QUOTE TIMES2)) (PUT (QUOTE TIMES2) (QUOTE IDNUMBER) (QUOTE 300)) (PUT (QUOTE !%RECLAIM) (QUOTE IDNUMBER) (QUOTE 181)) (PUT (QUOTE BSTACKUNDERFLOW) (QUOTE ENTRYPOINT) (QUOTE "L1347")) (PUT (QUOTE BSTACKUNDERFLOW) (QUOTE IDNUMBER) (QUOTE 396)) (PUT (QUOTE CDDDAR) (QUOTE ENTRYPOINT) (QUOTE CDDDAR)) (PUT (QUOTE CDDDAR) (QUOTE IDNUMBER) (QUOTE 323)) (PUT (QUOTE NULL) (QUOTE ENTRYPOINT) (QUOTE NULL)) (PUT (QUOTE NULL) (QUOTE IDNUMBER) (QUOTE 334)) (PUT (QUOTE INITREAD) (QUOTE ENTRYPOINT) (QUOTE "L0197")) (PUT (QUOTE INITREAD) (QUOTE IDNUMBER) (QUOTE 208)) (PUT (QUOTE APPEND) (QUOTE ENTRYPOINT) (QUOTE APPEND)) (PUT (QUOTE APPEND) (QUOTE IDNUMBER) (QUOTE 351)) (PUT (QUOTE CAR) (QUOTE ENTRYPOINT) (QUOTE CAR)) (PUT (QUOTE CAR) (QUOTE IDNUMBER) (QUOTE 330)) (PUT (QUOTE TYPEFILE) (QUOTE ENTRYPOINT) (QUOTE "L1462")) (PUT (QUOTE TYPEFILE) (QUOTE IDNUMBER) (QUOTE 435)) (PUT (QUOTE MAKEFLAMBDALINK) (QUOTE ENTRYPOINT) (QUOTE "L0333")) (PUT (QUOTE MAKEFLAMBDALINK) (QUOTE IDNUMBER) (QUOTE 263)) (PUT (QUOTE COMPRESSREADCHAR) (QUOTE IDNUMBER) (QUOTE 423)) (PUT (QUOTE DEBUG) (QUOTE IDNUMBER) (QUOTE 213)) (PUT (QUOTE FLUIDP) (QUOTE ENTRYPOINT) (QUOTE FLUIDP)) (PUT (QUOTE FLUIDP) (QUOTE IDNUMBER) (QUOTE 386)) (PUT (QUOTE DEC20READCHAR) (QUOTE ENTRYPOINT) (QUOTE "L1427")) (PUT (QUOTE DEC20READCHAR) (QUOTE IDNUMBER) (QUOTE 413)) (PUT (QUOTE ERROUT!*) (QUOTE IDNUMBER) (QUOTE 395)) (PUT (QUOTE ERROUT!*) (QUOTE INITIALVALUE) (QUOTE 5)) (PUT (QUOTE CADADR) (QUOTE ENTRYPOINT) (QUOTE CADADR)) (PUT (QUOTE CADADR) (QUOTE IDNUMBER) (QUOTE 309)) (PUT (QUOTE PRINTFEXPRS) (QUOTE ENTRYPOINT) (QUOTE "L0284")) (PUT (QUOTE PRINTFEXPRS) (QUOTE IDNUMBER) (QUOTE 241)) (PUT (QUOTE STACKLOWERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE STACKLOWERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0001")) (PUT (QUOTE STACKLOWERBOUND) (QUOTE WVAR) (QUOTE STACKLOWERBOUND)) (PUT (QUOTE NONIOCHANNELERROR) (QUOTE ENTRYPOINT) (QUOTE "L0135")) (PUT (QUOTE NONIOCHANNELERROR) (QUOTE IDNUMBER) (QUOTE 179)) (PUT (QUOTE RPLACD) (QUOTE ENTRYPOINT) (QUOTE RPLACD)) (PUT (QUOTE RPLACD) (QUOTE IDNUMBER) (QUOTE 383)) (PUT (QUOTE PRIN1ID) (QUOTE ENTRYPOINT) (QUOTE "L0027")) (PUT (QUOTE PRIN1ID) (QUOTE IDNUMBER) (QUOTE 134)) (PUT (QUOTE LAMBDAEVALAPPLY) (QUOTE ENTRYPOINT) (QUOTE "L0720")) (PUT (QUOTE LAMBDAEVALAPPLY) (QUOTE IDNUMBER) (QUOTE 368)) (PUT (QUOTE FASTLAMBDAAPPLY) (QUOTE ENTRYPOINT) (QUOTE "L0431")) (PUT (QUOTE FASTLAMBDAAPPLY) (QUOTE IDNUMBER) (QUOTE 274)) (PUT (QUOTE BLDMSG) (QUOTE ENTRYPOINT) (QUOTE BLDMSG)) (PUT (QUOTE BLDMSG) (QUOTE IDNUMBER) (QUOTE 157)) (PUT (QUOTE EXPR) (QUOTE IDNUMBER) (QUOTE 338)) (PUT (QUOTE MAXARGS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXARGS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXARGS) (QUOTE WCONST) (QUOTE 15)) (PUT (QUOTE MAXLINE) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXLINE) (QUOTE ASMSYMBOL) (QUOTE "L1449")) (PUT (QUOTE MAXLINE) (QUOTE WARRAY) (QUOTE MAXLINE)) (PUT (QUOTE WPLUS2) (QUOTE IDNUMBER) (QUOTE 254)) (PUT (QUOTE UNDEFINEDFUNCTIONAUX) (QUOTE ENTRYPOINT) (QUOTE "L0365")) (PUT (QUOTE UNDEFINEDFUNCTIONAUX) (QUOTE IDNUMBER) (QUOTE 276)) (PUT (QUOTE EQCAR) (QUOTE ENTRYPOINT) (QUOTE EQCAR)) (PUT (QUOTE EQCAR) (QUOTE IDNUMBER) (QUOTE 358)) (PUT (QUOTE ARG15) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG15) (QUOTE ASMSYMBOL) (QUOTE ARG15)) (PUT (QUOTE ARG15) (QUOTE WVAR) (QUOTE ARG15)) (PUT (QUOTE ATSOC) (QUOTE ENTRYPOINT) (QUOTE ATSOC)) (PUT (QUOTE ATSOC) (QUOTE IDNUMBER) (QUOTE 355)) (PUT (QUOTE LASTBPS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE LASTBPS) (QUOTE ASMSYMBOL) (QUOTE "L0142")) (PUT (QUOTE LASTBPS) (QUOTE WVAR) (QUOTE LASTBPS)) (PUT (QUOTE MKSTRING) (QUOTE ENTRYPOINT) (QUOTE "L0184")) (PUT (QUOTE MKSTRING) (QUOTE IDNUMBER) (QUOTE 206)) (PUT (QUOTE LONGREMAINDER) (QUOTE IDNUMBER) (QUOTE 150)) (PUT (QUOTE CONSTANTP) (QUOTE ENTRYPOINT) (QUOTE "L0611")) (PUT (QUOTE CONSTANTP) (QUOTE IDNUMBER) (QUOTE 333)) (PUT (QUOTE SYMVAL) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMVAL) (QUOTE ASMSYMBOL) (QUOTE SYMVAL)) (PUT (QUOTE SYMVAL) (QUOTE WARRAY) (QUOTE SYMVAL)) (PUT (QUOTE ARGUMENTBLOCK) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARGUMENTBLOCK) (QUOTE ASMSYMBOL) (QUOTE "L0004")) (PUT (QUOTE ARGUMENTBLOCK) (QUOTE WARRAY) (QUOTE ARGUMENTBLOCK)) (PUT (QUOTE ERRORTRAILER) (QUOTE ENTRYPOINT) (QUOTE "L0067")) (PUT (QUOTE ERRORTRAILER) (QUOTE IDNUMBER) (QUOTE 160)) (PUT (QUOTE GET) (QUOTE ENTRYPOINT) (QUOTE GET)) (PUT (QUOTE GET) (QUOTE IDNUMBER) (QUOTE 286)) (PUT (QUOTE GLOBAL) (QUOTE ENTRYPOINT) (QUOTE GLOBAL)) (PUT (QUOTE GLOBAL) (QUOTE IDNUMBER) (QUOTE 387)) (PUT (QUOTE ARG11) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG11) (QUOTE ASMSYMBOL) (QUOTE ARG11)) (PUT (QUOTE ARG11) (QUOTE WVAR) (QUOTE ARG11)) (PUT (QUOTE GTFIXN) (QUOTE ENTRYPOINT) (QUOTE GTFIXN)) (PUT (QUOTE GTFIXN) (QUOTE IDNUMBER) (QUOTE 191)) (PUT (QUOTE DIFFERENCE) (QUOTE ENTRYPOINT) (QUOTE "L0477")) (PUT (QUOTE DIFFERENCE) (QUOTE IDNUMBER) (QUOTE 299)) (PUT (QUOTE CAAAR) (QUOTE ENTRYPOINT) (QUOTE CAAAR)) (PUT (QUOTE CAAAR) (QUOTE IDNUMBER) (QUOTE 301)) (PUT (QUOTE ARG8) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG8) (QUOTE ASMSYMBOL) (QUOTE ARG8)) (PUT (QUOTE ARG8) (QUOTE WVAR) (QUOTE ARG8)) (PUT (QUOTE WRITECHAR) (QUOTE ENTRYPOINT) (QUOTE "L0007")) (PUT (QUOTE WRITECHAR) (QUOTE IDNUMBER) (QUOTE 132)) (PUT (QUOTE NONSEQUENCEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0132")) (PUT (QUOTE NONSEQUENCEERROR) (QUOTE IDNUMBER) (QUOTE 178)) (PUT (QUOTE ADD1) (QUOTE ENTRYPOINT) (QUOTE ADD1)) (PUT (QUOTE ADD1) (QUOTE IDNUMBER) (QUOTE 295)) (PUT (QUOTE NEWID) (QUOTE ENTRYPOINT) (QUOTE NEWID)) (PUT (QUOTE NEWID) (QUOTE IDNUMBER) (QUOTE 236)) (PUT (QUOTE BINDEVALAUX) (QUOTE ENTRYPOINT) (QUOTE "L0423")) (PUT (QUOTE BINDEVALAUX) (QUOTE IDNUMBER) (QUOTE 283)) (PUT (QUOTE DELBPS) (QUOTE ENTRYPOINT) (QUOTE DELBPS)) (PUT (QUOTE DELBPS) (QUOTE IDNUMBER) (QUOTE 195)) (PUT (QUOTE CLOSEFUNCTION) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE CLOSEFUNCTION) (QUOTE ASMSYMBOL) (QUOTE "L1446")) (PUT (QUOTE CLOSEFUNCTION) (QUOTE WARRAY) (QUOTE CLOSEFUNCTION)) (PUT (QUOTE LIST3) (QUOTE ENTRYPOINT) (QUOTE LIST3)) (PUT (QUOTE LIST3) (QUOTE IDNUMBER) (QUOTE 203)) (PUT (QUOTE READ1) (QUOTE ENTRYPOINT) (QUOTE READ1)) (PUT (QUOTE READ1) (QUOTE IDNUMBER) (QUOTE 248)) (PUT (QUOTE EVAL) (QUOTE ENTRYPOINT) (QUOTE EVAL)) (PUT (QUOTE EVAL) (QUOTE IDNUMBER) (QUOTE 281)) (PUT (QUOTE GTID) (QUOTE ENTRYPOINT) (QUOTE GTID)) (PUT (QUOTE GTID) (QUOTE IDNUMBER) (QUOTE 194)) (PUT (QUOTE READONLYCHANNEL) (QUOTE IDNUMBER) (QUOTE 425)) (PUT (QUOTE SETRAISE) (QUOTE ENTRYPOINT) (QUOTE "L0199")) (PUT (QUOTE SETRAISE) (QUOTE IDNUMBER) (QUOTE 214)) (PUT (QUOTE NEXTSYMBOL) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE NEXTSYMBOL) (QUOTE ASMSYMBOL) (QUOTE "L0003")) (PUT (QUOTE NEXTSYMBOL) (QUOTE WVAR) (QUOTE NEXTSYMBOL)) (PUT (QUOTE DM) (QUOTE ENTRYPOINT) (QUOTE DM)) (PUT (QUOTE DM) (QUOTE IDNUMBER) (QUOTE 343)) (PUT (QUOTE READID) (QUOTE ENTRYPOINT) (QUOTE READID)) (PUT (QUOTE READID) (QUOTE IDNUMBER) (QUOTE 221)) (PUT (QUOTE PRIN1STRING) (QUOTE ENTRYPOINT) (QUOTE "L0029")) (PUT (QUOTE PRIN1STRING) (QUOTE IDNUMBER) (QUOTE 136)) (PUT (QUOTE CAAADR) (QUOTE ENTRYPOINT) (QUOTE CAAADR)) (PUT (QUOTE CAAADR) (QUOTE IDNUMBER) (QUOTE 303)) (PUT (QUOTE UNBINDN) (QUOTE ENTRYPOINT) (QUOTE "L1353")) (PUT (QUOTE UNBINDN) (QUOTE IDNUMBER) (QUOTE 290)) (PUT (QUOTE IDP) (QUOTE ENTRYPOINT) (QUOTE IDP)) (PUT (QUOTE IDP) (QUOTE IDNUMBER) (QUOTE 378)) (PUT (QUOTE ARG6) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG6) (QUOTE ASMSYMBOL) (QUOTE ARG6)) (PUT (QUOTE ARG6) (QUOTE WVAR) (QUOTE ARG6)) (PUT (QUOTE NONPAIRERROR) (QUOTE ENTRYPOINT) (QUOTE "L0105")) (PUT (QUOTE NONPAIRERROR) (QUOTE IDNUMBER) (QUOTE 169)) (PUT (QUOTE REVERSE) (QUOTE ENTRYPOINT) (QUOTE "L0645")) (PUT (QUOTE REVERSE) (QUOTE IDNUMBER) (QUOTE 353)) (PUT (QUOTE FLAMBDALINKP) (QUOTE ENTRYPOINT) (QUOTE "L0328")) (PUT (QUOTE FLAMBDALINKP) (QUOTE IDNUMBER) (QUOTE 261)) (PUT (QUOTE RECLAIM) (QUOTE IDNUMBER) (QUOTE 193)) (PUT (QUOTE LAMBDA) (QUOTE IDNUMBER) (QUOTE 275)) (PUT (QUOTE GETD) (QUOTE ENTRYPOINT) (QUOTE GETD)) (PUT (QUOTE GETD) (QUOTE IDNUMBER) (QUOTE 359)) (PUT (QUOTE BUFFERTOSTRING) (QUOTE ENTRYPOINT) (QUOTE "L0216")) (PUT (QUOTE BUFFERTOSTRING) (QUOTE IDNUMBER) (QUOTE 226)) (PUT (QUOTE NONIDERROR) (QUOTE ENTRYPOINT) (QUOTE "L0108")) (PUT (QUOTE NONIDERROR) (QUOTE IDNUMBER) (QUOTE 170)) (PUT (QUOTE STDIN!*) (QUOTE IDNUMBER) (QUOTE 445)) (PUT (QUOTE STDIN!*) (QUOTE INITIALVALUE) (QUOTE 0)) (PUT (QUOTE OUTPUT) (QUOTE IDNUMBER) (QUOTE 412)) (PUT (QUOTE PBLANK) (QUOTE ENTRYPOINT) (QUOTE PBLANK)) (PUT (QUOTE PBLANK) (QUOTE IDNUMBER) (QUOTE 147)) (PUT (QUOTE CDADAR) (QUOTE ENTRYPOINT) (QUOTE CDADAR)) (PUT (QUOTE CDADAR) (QUOTE IDNUMBER) (QUOTE 317)) (PUT (QUOTE ARG4) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG4) (QUOTE ASMSYMBOL) (QUOTE ARG4)) (PUT (QUOTE ARG4) (QUOTE WVAR) (QUOTE ARG4)) (PUT (QUOTE CHANNELNOTOPEN) (QUOTE IDNUMBER) (QUOTE 424)) (PUT (QUOTE PLUS2) (QUOTE ENTRYPOINT) (QUOTE PLUS2)) (PUT (QUOTE PLUS2) (QUOTE IDNUMBER) (QUOTE 292)) (PUT (QUOTE SYSTEMOPENFILEFOROUTPUT) (QUOTE ENTRYPOINT) (QUOTE "L1494")) (PUT (QUOTE SYSTEMOPENFILEFOROUTPUT) (QUOTE IDNUMBER) (QUOTE 442)) (PUT (QUOTE ESCAPEP) (QUOTE ENTRYPOINT) (QUOTE "L0250")) (PUT (QUOTE ESCAPEP) (QUOTE IDNUMBER) (QUOTE 230)) (PUT (QUOTE CONTOPENERROR) (QUOTE ENTRYPOINT) (QUOTE "L1460")) (PUT (QUOTE CONTOPENERROR) (QUOTE IDNUMBER) (QUOTE 408)) (PUT (QUOTE FCODEP) (QUOTE ENTRYPOINT) (QUOTE FCODEP)) (PUT (QUOTE FCODEP) (QUOTE IDNUMBER) (QUOTE 264)) (PUT (QUOTE MAKEFCODE) (QUOTE ENTRYPOINT) (QUOTE "L0344")) (PUT (QUOTE MAKEFCODE) (QUOTE IDNUMBER) (QUOTE 265)) (PUT (QUOTE DN) (QUOTE ENTRYPOINT) (QUOTE DN)) (PUT (QUOTE DN) (QUOTE IDNUMBER) (QUOTE 341)) (PUT (QUOTE PRIN2T) (QUOTE ENTRYPOINT) (QUOTE PRIN2T)) (PUT (QUOTE PRIN2T) (QUOTE IDNUMBER) (QUOTE 146)) (PUT (QUOTE GLOBALP) (QUOTE ENTRYPOINT) (QUOTE "L0777")) (PUT (QUOTE GLOBALP) (QUOTE IDNUMBER) (QUOTE 388)) (PUT (QUOTE BNDSTKLOWERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE BNDSTKLOWERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L1339")) (PUT (QUOTE BNDSTKLOWERBOUND) (QUOTE WVAR) (QUOTE BNDSTKLOWERBOUND)) (PUT (QUOTE TESTLEGALCHANNEL) (QUOTE ENTRYPOINT) (QUOTE "L1498")) (PUT (QUOTE TESTLEGALCHANNEL) (QUOTE IDNUMBER) (QUOTE 452)) (PUT (QUOTE STACKUPPERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE STACKUPPERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0002")) (PUT (QUOTE STACKUPPERBOUND) (QUOTE WVAR) (QUOTE STACKUPPERBOUND)) (PUT (QUOTE CADAR) (QUOTE ENTRYPOINT) (QUOTE CADAR)) (PUT (QUOTE CADAR) (QUOTE IDNUMBER) (QUOTE 307)) (PUT (QUOTE COND) (QUOTE ENTRYPOINT) (QUOTE COND)) (PUT (QUOTE COND) (QUOTE IDNUMBER) (QUOTE 349)) (PUT (QUOTE OPEN) (QUOTE ENTRYPOINT) (QUOTE OPEN)) (PUT (QUOTE OPEN) (QUOTE IDNUMBER) (QUOTE 433)) (PUT (QUOTE ARG2) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG2) (QUOTE ASMSYMBOL) (QUOTE ARG2)) (PUT (QUOTE ARG2) (QUOTE WVAR) (QUOTE ARG2)) (PUT (QUOTE GTVECT) (QUOTE ENTRYPOINT) (QUOTE GTVECT)) (PUT (QUOTE GTVECT) (QUOTE IDNUMBER) (QUOTE 188)) (PUT (QUOTE READLIST) (QUOTE ENTRYPOINT) (QUOTE "L0304")) (PUT (QUOTE READLIST) (QUOTE IDNUMBER) (QUOTE 250)) (PUT (QUOTE CODEPTR!*) (QUOTE IDNUMBER) (QUOTE 268)) (FLAG (QUOTE (CODEPTR!*)) (QUOTE NILINITIALVALUE)) (PUT (QUOTE UNDEFINEDFUNCTIONAUXAUX) (QUOTE IDNUMBER) (QUOTE 277)) (PUT (QUOTE DEC20OPEN) (QUOTE ENTRYPOINT) (QUOTE "L1417")) (PUT (QUOTE DEC20OPEN) (QUOTE IDNUMBER) (QUOTE 407)) (PUT (QUOTE QUIT) (QUOTE IDNUMBER) (QUOTE 163)) (PUT (QUOTE FLOATP) (QUOTE ENTRYPOINT) (QUOTE FLOATP)) (PUT (QUOTE FLOATP) (QUOTE IDNUMBER) (QUOTE 376)) (PUT (QUOTE CADAAR) (QUOTE ENTRYPOINT) (QUOTE CADAAR)) (PUT (QUOTE CADAAR) (QUOTE IDNUMBER) (QUOTE 308)) (PUT (QUOTE RAISECHAR) (QUOTE ENTRYPOINT) (QUOTE "L0227")) (PUT (QUOTE RAISECHAR) (QUOTE IDNUMBER) (QUOTE 227)) (PUT (QUOTE LESSP) (QUOTE ENTRYPOINT) (QUOTE LESSP)) (PUT (QUOTE LESSP) (QUOTE IDNUMBER) (QUOTE 298)) (PUT (QUOTE CLEARCOMMENT) (QUOTE ENTRYPOINT) (QUOTE "L0209")) (PUT (QUOTE CLEARCOMMENT) (QUOTE IDNUMBER) (QUOTE 216))