(FILECREATED "25-Nov-85 17:59:41" ("compiled on " {ERIS}MESATOLISP.;7) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED "25-Nov-85 17:49:39" {ERIS}MESATOLISP.;7 234092 changes to: (RECORDS MINTERVAL SCOPE) (FNS PARSE.MESA PARSE.CEDAR PARSE.FILE PARSE.GET.STATE PARSE.SET.STATE PARSE.BIN PARSE.VARID PARSE.SMURF PARSE.THISIS.MESA PARSE.THISIS.CEDAR PARSE.MODULE PARSE.INCLUDEITEM PARSE.SEADIRT PARSE.PROGHEAD PARSE.RESIDENT PARSE.SAFE PARSE.DEFHEAD PARSE.TILDE PARSE.DEFINITIONS PARSE.DEFBODY PARSE.LOCKS PARSE.LAMBDA PARSE.MODULEITEM PARSE.DECLARATION PARSE.PUBLIC PARSE.ENTRY PARSE.IDLIST PARSE.IDENTLIST PARSE.POSITION PARSE.OPTBITS PARSE.INTERVAL PARSE.TYPEEXP.HERE PARSE.TYPEEXP PARSE.RANGE PARSE.TYPEAPPL PARSE.TYPEAPPL.CONT PARSE.TYPEID PARSE.TYPEID.CONT PARSE.TYPECONS PARSE.TYPECONS1 PARSE.TYPECONS.CONT PARSE.TYPECONS.RANGE PARSE.TYPECONS.RELATIVE PARSE.TYPECONS.PAINTED PARSE.TYPECONS2 PARSE.TYPECONS.INTERVAL PARSE.TYPECONS.DEPENDENT PARSE.TYPECONS.ENUMERATED PARSE.TYPECONS.RECORD PARSE.TYPECONS.ORDERED PARSE.TYPECONS.VAR PARSE.TYPECONS.PACKED PARSE.TYPECONS.DESCRIPTOR PARSE.TYPECONS.SAFE PARSE.TYPECONS.HEAP PARSE.TYPECONS.LONG PARSE.TYPECONS.FRAME PARSE.TYPECONS.REF PARSE.TYPECONS.LIST PARSE.IDENT PARSE.ELEMENT PARSE.MONITORED PARSE.DEPENDENT PARSE.RECLIST PARSE.VARIANTPAIR PARSE.PAIRITEM PARSE.DEFAULTOPT PARSE.VARIANTPART PARSE.VCASEHEAD PARSE.TAGTYPE PARSE.VARIANTITEM PARSE.TYPELIST PARSE.TYPEITEM PARSE.POINTERTYPE PARSE.TRANSFERMODE PARSE.INITIALIZATION PARSE.INITVALUE PARSE.CHECKED PARSE.CODELIST PARSE.STATEMENT PARSE.STATEMENT1 PARSE.STATEMENT2 PARSE.STATEMENT.CASEHEAD PARSE.STATEMENT.FORCLAUSE PARSE.STATEMENT.RETURN PARSE.STATEMENT.TRANSFER PARSE.STATEMENT.LBRACKET PARSE.STATEMENT.IF PARSE.BLOCK PARSE.SCOPE PARSE.BINDITEM PARSE.EXITS PARSE.CASESTMTITEM PARSE.CASEEXPITEM PARSE.EXITITEM PARSE.CASETEST PARSE.CONTROLID PARSE.FORCLAUSE PARSE.DIRECTION PARSE.DOTEST PARSE.DOEXIT PARSE.ENABLES PARSE.CATCHLIST PARSE.CATCHCASE PARSE.OPTARGS PARSE.TRANSFER PARSE.KEYITEM PARSE.OPTEXP PARSE.EXP PARSE.EXP1 PARSE.EXP2 PARSE.EXP.TRANSFEROP PARSE.EXP.IF PARSE.EXP.CASEHEAD PARSE.EXP.LHS PARSE.EXP.LBRACKET PARSE.EXP.ERROR PARSE.EXP.DISJUNCT PARSE.DISJUNCT PARSE.CONJUNCT PARSE.NEGATION PARSE.RELATION PARSE.SUM PARSE.PRODUCT PARSE.OPTRELATION PARSE.RELATIONTAIL PARSE.RELOP PARSE.ADDOP PARSE.MULTOP PARSE.FACTOR PARSE.PRIMARY PARSE.ATOM PARSE.PRIMARY.NIL PARSE.PRIMARY.LBRACKET PARSE.PRIMARY.PREFIXOP PARSE.PRIMARY.VAL PARSE.PRIMARY.ALL PARSE.PRIMARY.NEW PARSE.PRIMARY.TYPEOP PARSE.PRIMARY.SIZE PARSE.PRIMARY.ISTYPE PARSE.PRIMARY.AT PARSE.PRIMARY.DESCRIPTOR PARSE.PRIMARY.CONS PARSE.PRIMARY.LIST PARSE.PRIMARY.LHS PARSE.PRIMARY.LHS.NEW PARSE.PRIMARY.LHS.CONS PARSE.PRIMARY.LHS.LIST PARSE.QUALIFIER PARSE.LHS PARSE.QUALIFIER.HERE PARSE.OPTCATCH PARSE.TRANSFEROP PARSE.PREFIXOP PARSE.TYPEOP PARSE.DESCLIST PARSE.DIRECTORY PARSE.IMPORTS PARSE.POINTERPREFIX PARSE.EXPORTS PARSE.FIELDLIST PARSE.USING PARSE.CATCHHEAD PARSE.DECLIST PARSE.PAIRLIST PARSE.VARIANTLIST PARSE.ORDERLIST PARSE.LHSLIST PARSE.INCLUDELIST PARSE.MODULELIST PARSE.ELEMENTLIST PARSE.BINDLIST PARSE.STATEMENTLIST PARSE.CASESTMTLIST PARSE.CASELABEL PARSE.EXITLIST PARSE.KEYLIST PARSE.CASEEXPLIST PARSE.EXPLIST PARSE.OPEN PARSE.CLASS PARSE.CASEHEAD PARSE.READONLY PARSE.ORDERED PARSE.BASE PARSE.PACKED PARSE.HEAP PARSE.INLINE PARSE.ARGUMENTS PARSE.INTERFACE PARSE.SHARES PARSE.DEFAULT PARSE.OPTSIZE PARSE.BOUNDS PARSE.LENGTH PARSE.INDEXTYPE PARSE.ELSEPART PARSE.OTHERPART PARSE.FREE PARSE.CATCHANY PARSE.NOT PARSE.NEW PARSE.OPTTYPE PARSE.ARGLIST PARSE.RETURNLIST BUILD.INIT BUILD.PUSH.SCOPE BUILD.POP.SCOPE BUILD.GC.SCOPE BUILD.STORE.EXPORTS BUILD.STORE.IDENTLIST BUILD.STORE.INTERFACES BUILD.STORE.INTERFACE BUILD.STORE.OPEN BUILD.STORE.USING BUILD.INITIALIZATION BUILD.INITIALIZE.VARS BUILD.INITIALIZE.VAR BUILD.INITIALIZE.FN BUILD.INITIALIZE.RECORD BUILD.RECORD BUILD.TYPE BUILD.STORE.ARGLIST BUILD.STORE.RETURNLIST BUILD.STORE.PAIRLIST BUILD.STORE.PAIRITEM BUILD.STORE.VARLIST BUILD.ID BUILD.FIELDID BUILD.PROCID BUILD.RECORDID BUILD.TYPEID BUILD.VARID BUILD.LOCALVARID BUILD.GLOBALVARID BUILD.LOOKUP.TYPE BUILD.LOOKUP BUILD.TYPEATOM BUILD.QUALIFY BUILD.QUALIFY.PREFIXOP BUILD.QUALIFY.TYPEOP BUILD.QUALIFY.EXPLIST BUILD.QUALIFY.ID BUILD.ARITH.EXP1 BUILD.ARITH.EXP2 BUILD.ARITH.EXP* BUILD.ARITH.ADD1SUB1 BUILD.COERCE.ARITHOP BUILD.STRONGEST.TYPE.AMONG BUILD.STRONGEST.TYPE BUILD.COERCE BUILD.COERCE.MLIST BUILD.COERCE.EXPLIST BUILD.ALIGN BUILD.ALIGN.VALUE BUILD.ADD.TO.FILECOMS BUILD.ADD1 BUILD.CALL BUILD.CHARCODE BUILD.COND BUILD.COPY.OF BUILD.FETCH BUILD.FORCLAUSE.IN BUILD.FORCLAUSE.THROUGH BUILD.IN BUILD.ISTYPE BUILD.LAMBDA BUILD.NEW BUILD.OR BUILD.PROG BUILD.PROGN BUILD.REPLACE BUILD.RETURN BUILD.SELECTQ BUILD.SELECTQ.FN BUILD.SELECTQ.CCLAUSE BUILD.SELECTQ.TEST BUILD.SELECTQ.SCLAUSE BUILD.SELECTQ.KEY BUILD.SELECTTRUEFROM BUILD.SELECTTRUEFROM.CLAUSE BUILD.SETQ BUILD.SETQ.ARRAY BUILD.SETQ.ORDERLIST BUILD.SUB1 BUILD.TAIL SCAN.INIT SCAN.STRING SCAN.TEST SCAN.TESTFILE SCAN.OPENSTREAM SCAN.TOKEN SCAN.NUMBER SCAN.ACCEPT SCAN.APPENDDECIMAL SCAN.APPENDOCTAL SCAN.APPENDHEX SCAN.APPENDTOSCALE SCAN.VALIDFRACTION SCAN.DECIMAL SCAN.OCTAL SCAN.OCTALCHAR SCAN.HEX SCAN.FLOATING SCAN.ESCAPE) (VARS MESATOLISPCOMS) previous date: " 3-Aug-85 22:42:32" {ERIS}MESATOLISP.;6) SCAN.INIT D1 (P 0 ATOM F 1 SCAN.BOTH.RESERVED F 2 SCAN.CEDAR.RESERVED F 3 SCAN.MESA.RESERVED) HQdHgg RdHgg SdHgg h(77Q PUTPROP 50Q PUTPROP 21Q PUTPROP) (74Q MESA 71Q SCAN.RESERVED 45Q CEDAR 42Q SCAN.RESERVED 16Q BOTH 13Q SCAN.RESERVED) () SCAN.STRING D1 (P 1 I F 3 SCAN.STRING F 4 SCAN.BUFFER) 4ljIHTIZjJIkY SISnS(37Q \FZEROP) (53Q STRINGP 45Q STRINGP) () SCAN.TEST D1 (P 1 TOKEN P 0 STREAM I 0 STRING F 2 SCAN.CHAR F 3 SCAN.QDOT)  @ Xd chcH YH I(27Q CLOSEF 22Q SCAN.TOKEN 6 OPENSTRINGSTREAM) NIL () SCAN.TESTFILE D1 (P 0 STREAM I 0 FILE F 1 TOKEN) "@ XH ci QgH h(36Q CLOSEF 21Q PRINT 13Q SCAN.TOKEN 6 SCAN.OPENSTREAM) (27Q EOF) () SCAN.OPENSTREAM D1 (P 1 TOKEN P 0 STREAM I 0 FILE F 2 SCAN.CHAR F 3 SCAN.QDOT)  @g Xdj H chcH(17Q SETFILEPTR 11Q OPENSTREAM) (6 INPUT) () SCAN.TOKEN D1 (P 12Q NEST P 11Q STATE P 10Q DASHCRLF P 7 COMMENT P 6 PCHAR P 5 ADVANCE P 4 C P 3 VALID P 2 VALUE P 1 CLASS P 0 SCAN I 0 STREAM F 13Q SCAN.CHAR F 14Q SCAN.BUFFERPTR F 15Q SCAN.BUFFER F 16Q SCAN.QDOT F 17Q SCAN.STRING)   @bmcjWWdl @ @ cWdladlbdlcdlddle}dlfwdlgqdlhkdliedlj_dlkYdllSdlmMdlnGdloAdlp;dlq5dlr/dls)dlt#dludlvdlwdlxdlydlzJWjWǿjc@ laWWlzlAWWlZl0WWl9gWjW ZdlAdlBdlCdlDdlE}dlFwdlGqdlHkdlIedlJ_dlKYdlLSdlMMdlNGdlOAdlP;dlQ5dlR/dlS)dlT#dlUdlVdlWdlXdlYdlZJWjWǿjc@ laWWlzlAWWlZl0WWl9gWjW Zdl05dl1/dl2)dl3#dl4dl5dl6dl7dl8dl9%WjWǿjc@ XHH[ztdl,_dl;Ydl:Sdl_Mdl#Gdl+Adl*;dl/5dl^/dl@)dl!#dl(dl)dl[dl]dl{dl}#W Y@ cJggZYdl''@ c@ XHHKgMȰdl"jci]M@ cWl"@ cl"j'@ WWHǿWkcHHKW jWW WlljWlLjgPgWlgjAWlGj;3dl-^@ cl-jgYZ jcW@ cdl-Nl-jgl g_@ cOg'Wl ji_dl.Whcg@ gYZ@ cdl.gdl05dl1/dl2)dl3#dl4dl5dl6dl7dl8dl9)Wjl.ǿkc@i XHH[IBgYZ;dl=@ cl>jggYZdl<@ cdl=gl<g_k_@ cdl>-OgOdgg_gg_Okٰ/lN@ cl=jgFgYZFJggZYIgJgZgJgYIJh(2523Q \FZEROP 2214Q SCAN.ERROR 2171Q SCAN.NUMBER 2026Q EOFP 1545Q \SMASHSTRING 1535Q ALLOCSTRING 1526Q SCAN.ERROR 1467Q SCAN.ESCAPE 1401Q SCAN.ERROR 1360Q SCAN.ESCAPE 1310Q MKATOM 1305Q CHARACTER 1132Q SCAN.ERROR 1111Q SCAN.NUMBER 774Q \MKATOM 710Q SCAN.ACCEPT 423Q \MKATOM 337Q SCAN.ACCEPT 41Q EOFP) (2661Q EOF 2652Q SCAN.RESERVED 2646Q NILL 2635Q ID 2626Q ^ 2621Q 2610Q > 2602Q >= 2551Q < 2540Q PLAIN 2474Q PLAIN 2466Q RIGHTBROCKET 2456Q LEFTBROCKET 2450Q RIGHTBROCKET 2440Q PLAIN 2415Q PLAIN 2407Q RIGHTBROCKET 2377Q RIGHTBROCKET 2371Q LEFTBROCKET 2361Q PLAIN 2332Q PLAIN 2315Q <= 2262Q = 2254Q => 2223Q %. 2054Q .. 2032Q %. 2017Q .. 1745Q DASH 1730Q CRLF 1717Q DASH 1656Q - 1600Q STRING 1571Q STRING 1405Q CHAR 1333Q _ 1323Q 763Q ID 412Q ID 6 STREAM) () SCAN.NUMBER D1 (P 7 SCAN P 6 START P 5 V P 4 HEXSIG P 3 HEXCOUNT P 2 VALID P 1 VALUE P 0 CLASS I 1 FLOAT I 0 STREAM F 11Q SCAN.BUFFER F 12Q SCAN.CHAR F 13Q SCAN.BUFFERPTR F 14Q SCAN.QDOT)  j[d\gXWdl04dl1.dl2(dl3"dl4dl5dl6dl7dl8dl9@ dledlE6LlKkػ@ KkjWl+jWdl-j𲏿ib@ dladlbdlcdlddledlfLkWla Kkػ@ HdlAdlBdlCdlDdlEdlFLkWlA Kkػ@ dlhdlHLlKkػ@ l.KjjA@ cl.jicWWjA#gW -ibWWl.ǿWkcLl_j#OW _OHMJh KdjjW kjLdlW lgW LdlW lgW (734Q SCAN.FLOATING 714Q SCAN.DECIMAL 676Q SCAN.OCTALCHAR 657Q SCAN.OCTAL 633Q SCAN.DECIMAL 614Q \FZEROP 570Q SCAN.HEX 513Q SCAN.FLOATING 430Q SCAN.ACCEPT 373Q SCAN.ACCEPT 361Q LLSH 301Q SCAN.ACCEPT 267Q LLSH 210Q SCAN.ACCEPT 145Q SCAN.ACCEPT 111Q SCAN.ACCEPT) (726Q FLNUM 670Q CHAR 505Q FLNUM 11Q LNUM) () SCAN.ACCEPT D1 (I 0 STREAM F 0 SCAN.BUFFERPTR F 1 SCAN.CHAR F 2 SCAN.BUFFER) lPRPQPkc@ ch(7 SCAN.ERROR) NIL () SCAN.APPENDDECIMAL D1 (L (1 DIGIT 0 V)) /@oXlYAl0ZH@@HjdIh[@l JdKhNIL NIL ( 6 3146314631Q) SCAN.APPENDOCTAL D1 (L (1 DIGIT 0 V)) 0oXAl0Y@HhZ@lIdJhNIL NIL ( 6 3777777777Q) SCAN.APPENDHEX D1 (L (1 DIGIT 0 V)) .0oXl0AAdl9l0Al7ٹ@HhZ@lIdJhNIL NIL ( 6 1777777777Q) SCAN.APPENDTOSCALE D1 (L (1 DIGIT 0 V)) .@nXlYAl0ZH@@HjdIh[@l JdKhNIL NIL () SCAN.VALIDFRACTION D1 (L (1 DIGIT 0 V)) " oXlYAl0H@@HjdIhNIL NIL ( 6 1463146314Q) SCAN.DECIMAL D1 (P 11Q I P 6 SCALE P 5 SCAN P 4 V P 3 C P 2 BUFFERPTR P 1 VALID P 0 VALUE I 0 BUFFER) iYjZd\l0@J[Kdl9ILK ]MJkغKldjKlDjJjJkغl0@J[Kl9INK ]MNk OOLl0 ]MOk_@J_jO O hLdIh(227Q \FZEROP 164Q SCAN.APPENDDECIMAL 131Q SCAN.APPENDTOSCALE 40Q SCAN.APPENDDECIMAL) NIL () SCAN.OCTAL D1 (P 11Q I P 6 SCALE P 5 SCAN P 4 V P 3 C P 2 BUFFERPTR P 1 VALID P 0 VALUE I 0 BUFFER) jZiYj\l0@J[Kdl7ILK ]MJkغKlbjKlBjJjJkغl0@J[Kl7INK ]MNk OOLl0 ]MOk_@J_jO O hLdIh(227Q \FZEROP 164Q SCAN.APPENDOCTAL 131Q SCAN.APPENDTOSCALE 40Q SCAN.APPENDOCTAL) NIL () SCAN.OCTALCHAR D1 (P 6 SCALE P 5 SCAN P 4 V P 3 C P 2 BUFFERPTR P 1 VALID P 0 VALUE I 0 BUFFER) kjZiYj\l0@J[Kdl7ILK ]MJkغKlcjKlCjJkغ@J_jO O hjLLdlhLdIh(122Q \FZEROP 40Q SCAN.APPENDOCTAL) NIL () SCAN.HEX D1 (P 12Q I P 6 SCALE P 5 SCAN P 4 V P 3 C P 2 BUFFERPTR P 1 VALID P 0 VALUE I 0 BUFFER) jZiYj\@J_jROO F@J»l0KKl9lAKKlFI%LKlaK!KdlfILKl ]MJkغKlhjKlHjJjJkغl0@J[Kl9INK ]MNk OOLl0 ]MOk_@J_jO O hLdIh(313Q \FZEROP 250Q SCAN.APPENDHEX 215Q SCAN.APPENDTOSCALE 124Q SCAN.APPENDHEX 33Q \FZEROP) NIL () SCAN.FLOATING D1 (P 10Q OP P 7 SCALE P 6 SCAN P 5 EXP P 4 V P 3 C P 2 BUFFERPTR P 1 VALID P 0 VALUE I 0 BUFFER) '  jZiYj\d]l0@J['Kdl9!ILK YLK ^MkؽJkغKl.jEJkغ@J»l0KKl9hl0@J[(Kl9"ILK YLK ^NMkٽJkغiYKlejKlEjmj_g_Jkغ@Jdl+l-g_Jkغl0@J@Jl9hl0@J[Kl9IOK ^_NJkغOgMO؃MOٽ@J_jO O hLoM dIh(436Q EXPT 422Q \FZEROP 337Q SCAN.APPENDTOSCALE 162Q SCAN.APPENDDECIMAL 153Q SCAN.VALIDFRACTION 52Q SCAN.APPENDDECIMAL 43Q SCAN.VALIDFRACTION) (363Q PLUS 261Q MINUS 233Q PLUS) ( 432Q 10.0) SCAN.ESCAPE D1 (P 4 NC P 3 V P 2 ADVANCE P 1 VALID P 0 C I 0 STREAM F 5 SCAN.CHAR) PiYdZUXddl\j@ c dlndlNdlrdlRl dlldlLl dltdlTl dlbdlBldlfdlFl dl'dl"dl\Umdl0)dl1#dl2dl3dl4dl5dl6dl7@TdgdgihgHIJhgh(67Q PARSE.TAGTYPE 64Q PARSE.BIN 41Q PARSE.TAGTYPE 35Q PARSE.PUBLIC 31Q PARSE.IDENT) (61Q vcasehead 45Q vcasehead 15Q OVERLAID 7 COMPUTED) () PARSE.TAGTYPE D1 (F 0 PARSE.ATOM) Pg(14Q PARSE.TYPEEXP 10Q PARSE.BIN) (3 *) () PARSE.VARIANTITEM D1 (P 2 ANSWER P 1 RECLIST P 0 IDLIST) 0Xg YgHIh(17Q PARSE.RECLIST 14Q PARSE.BIN 5 PARSE.IDLIST) (23Q variantitem 11Q =>) () PARSE.TYPELIST D1 (P 1 ANSWER P 0 TYPEITEMS F 2 PARSE.ATOM) % HXRgHgH (41Q DREVERSE 25Q PARSE.TYPEITEM 21Q PARSE.BIN 5 PARSE.TYPEITEM) (35Q TYPELIST 14Q ,) () PARSE.TYPEITEM D1 (P 2 ANSWER P 1 DEFAULT P 0 TYPEEXP F 3 PARSE.ATOM) "0XdlSgHIh(31Q PARSE.DEFAULTOPT 17Q PARSE.DEFAULT 5 PARSE.TYPEEXP) (24Q _) () PARSE.POINTERTYPE D1 (P 1 ANSWER P 0 TYPE F 2 PARSE.ATOM) # RgggH(26Q PARSE.TYPEEXP 22Q PARSE.READONLY 16Q PARSE.BIN 5 PARSE.POINTERPREFIX) (36Q MPOINTER 32Q UNSPECIFIED 11Q TO) () PARSE.TRANSFERMODE D1 NIL g(2 PARSE.BIN) (5 PROC) () PARSE.INITIALIZATION D1 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.LANGUAGE) -QdgdgihRgQgH(50Q PARSE.INITVALUE 44Q PARSE.BIN) (37Q ~ 31Q CEDAR 15Q = 7 _) () PARSE.INITVALUE D1 (P 4 ANSWER P 3 EXP P 2 CODELIST P 1 BLOCK P 0 INLINE F 5 PARSE.ATOM) tPUdgdgdgihgUdgdgdgihUg"g o o J(161Q PARSE.EXP 154Q PARSE.BIN 144Q PARSE.CODELIST 140Q PARSE.BIN 130Q PARSE.BIN 121Q PARSE.BIN 106Q PARSE.BLOCK 102Q PARSE.INLINE 45Q PARSE.CHECKED 36Q PARSE.BIN) (125Q CODE 113Q MACHINE 67Q { 61Q BEGIN 53Q INLINE 41Q TRASH 23Q NULL 15Q TRASH 7 CODE) ( 151Q (END }) 135Q (BEGIN {)) PARSE.CHECKED D1 (F 0 PARSE.ATOM) "Pdgdgdgih(37Q PARSE.BIN 34Q PARSE.THISIS.CEDAR) (20Q UNCHECKED 12Q TRUSTED 4 CHECKED) () PARSE.CODELIST D1 NIL hi h(4 BREAK1) NIL () PARSE.STATEMENT D1 (F 0 PARSE.CLASS) Pdgdgih(31Q PARSE.STATEMENT2 25Q PARSE.STATEMENT1) (12Q %( 4 ID) () PARSE.STATEMENT1 D1 (P 3 ANSWER P 2 OPTCATCH P 1 EXP P 0 LHS F 4 PARSE.ATOM F 5 PARSE.ATOM2) h@XTdg1Ug(g g HIJhTgUgHTgHI (145Q BUILD.SETQ 137Q PARSE.EXP 133Q PARSE.BIN 117Q PARSE.BIN 113Q PARSE.BIN 63Q PARSE.BIN 54Q PARSE.OPTCATCH 50Q PARSE.EXP 44Q PARSE.BIN 35Q PARSE.BIN 31Q PARSE.BIN 5 PARSE.LHS) (125Q _ 106Q STATE 100Q _ 60Q %] 41Q %[ 23Q FREE 13Q %.) () PARSE.STATEMENT2 D1 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.CASEHEAD.FIRST F 3 PARSE.FORCLAUSE.FIRST F 4 PARSE.TRANSFER.FIRST F 5 PARSE.DOTEST.FIRST F 6 PARSE.ATOM2) GQdRSQUQdggVgQdTdgdgdgdgdgdgdgdgodgodggg hdgg gg hdgdgodgodghdgdgodgogo(504Q SHOULDNT 474Q PARSE.BIN 457Q PARSE.BIN 440Q PARSE.BIN 425Q PARSE.OPTARGS 421Q PARSE.BIN 405Q PARSE.BIN 366Q PARSE.BIN 347Q PARSE.BIN 334Q PARSE.LHS 330Q PARSE.BIN 312Q PARSE.BIN 300Q PARSE.BIN 271Q PARSE.BIN 252Q PARSE.BIN 240Q PARSE.BIN 220Q PARSE.BIN 201Q PARSE.BIN 166Q PARSE.STATEMENT.IF 153Q PARSE.BLOCK 147Q PARSE.CHECKED 102Q PARSE.STATEMENT.LBRACKET 67Q PARSE.STATEMENT.TRANSFER 55Q PARSE.STATEMENT.RETURN 36Q PARSE.STATEMENT.FORCLAUSE 13Q PARSE.STATEMENT.CASEHEAD) (467Q RETRY 451Q CONTINUE 432Q REJECT 413Q RESUME 377Q NULL 360Q STOP 341Q ERROR 322Q WAIT 307Q ID 304Q GO 275Q TO 262Q GO 247Q ID 244Q GO 231Q GOTO 212Q LOOP 173Q EXIT 160Q IF 141Q UNCHECKED 133Q TRUSTED 125Q CHECKED 116Q BEGIN 107Q { 74Q %[ 50Q WITH 42Q RETURN 30Q DO) ( 500Q (GO RETRY) 463Q (GO CONTINUE) 444Q (SHOULDNT) 372Q (GO STOP) 353Q (SHOULDNT) 224Q (GO LOOP) 205Q (RETURN)) PARSE.STATEMENT.CASEHEAD D1 (P 3 ANSWER P 2 OTHERPART P 1 CASESTMTLIST P 0 CASEHEAD F 4 BUILD.CURRENT.SCOPE) >@Xd Yg ZHIJ [HHhHT Kh [K(72Q BUILD.POP.SCOPE 66Q BUILD.PROG 57Q BUILD.INITIALIZE.VAR 36Q BUILD.SELECTQ 27Q PARSE.OTHERPART 24Q PARSE.BIN 15Q PARSE.CASESTMTLIST 10Q PARSE.CASEHEAD 5 BUILD.PUSH.SCOPE) (21Q ENDCASE) () PARSE.STATEMENT.FORCLAUSE D1 (P 6 ANSWER P 5 STATEMENT P 4 EXITLIST P 3 DOEXIT P 2 SCOPE P 1 DOTEST P 0 FORCLAUSE) epo XYg Z[d\K]g HIgJ  ^MdgM  LNL N(140Q BUILD.PROGN 127Q \APPEND2 123Q \APPEND2 120Q BUILD.TAIL 105Q \APPEND2 102Q \APPEND2 76Q \APPEND2 73Q BUILD.TAIL 62Q BUILD.POP.SCOPE 57Q PARSE.BIN 41Q PARSE.DOEXIT 35Q PARSE.SCOPE 32Q PARSE.BIN 23Q PARSE.DOTEST 17Q PARSE.FORCLAUSE 14Q BUILD.PUSH.SCOPE 11Q BUILD.STORE.IDENTLIST) (114Q finally 67Q do 54Q ENDLOOP 27Q DO) ( 6 (DO)) PARSE.STATEMENT.RETURN D1 (P 1 ANSWER P 0 OPTARGS)  g Xd (20Q BUILD.RETURN 13Q PARSE.OPTARGS 10Q PARSE.BIN) (5 RETURN) () PARSE.STATEMENT.TRANSFER D1 (P 2 ANSWER P 1 LHS P 0 TRANSFER) 0XYggIhh(11Q PARSE.LHS 5 PARSE.TRANSFER) (20Q QUOTE 15Q SHOULDNT) () PARSE.STATEMENT.LBRACKET D1 (P 2 ANSWER P 1 EXP P 0 EXPLIST) $0g Xg g YHI (41Q BUILD.SETQ 33Q PARSE.EXP 30Q PARSE.BIN 22Q PARSE.BIN 13Q PARSE.EXPLIST 10Q PARSE.BIN) (25Q _ 17Q %] 5 %[) () PARSE.STATEMENT.IF D1 (P 5 ANSWER P 4 TAIL P 3 HEAD P 2 ELSEPART P 1 STATEMENT P 0 EXP) #`g Xg YZHIJ (40Q BUILD.COND 31Q PARSE.ELSEPART 25Q PARSE.STATEMENT 22Q PARSE.BIN 13Q PARSE.EXP 10Q PARSE.BIN) (17Q THEN 5 IF) () PARSE.BLOCK D1 (P 2 ANSWER P 1 EXITS P 0 SCOPE) &0o XYo HI (43Q \APPEND2 36Q BUILD.POP.SCOPE 33Q PARSE.BIN 23Q PARSE.EXITS 17Q PARSE.SCOPE 14Q PARSE.BIN 5 BUILD.PUSH.SCOPE) NIL ( 30Q (END }) 11Q (BEGIN {)) PARSE.SCOPE D1 (P 1 ANSWER P 0 STATEMENTLIST F 2 PARSE.CLASS F 3 PARSE.ATOM2) 4  RgSdgdgihXd (61Q BUILD.PROG 54Q PARSE.STATEMENTLIST 50Q PARSE.DECLIST 13Q PARSE.ENABLES 10Q BUILD.STORE.OPEN 5 PARSE.OPEN) (35Q : 27Q , 17Q ID) () PARSE.BINDITEM D1 (P 2 ANSWER P 1 EXP P 0 ID F 3 PARSE.CLASS F 4 PARSE.ATOM2 F 5 PARSE.LANGUAGE) J0SgTg$UgSgTgg YgHIh(75Q PARSE.EXP 71Q PARSE.BIN 62Q PARSE.BIN 56Q PARSE.BIN 25Q PARSE.BIN 21Q PARSE.BIN) (101Q BINDITEM 66Q ~ 51Q ~ 42Q ID 33Q CEDAR 14Q : 6 ID) () PARSE.EXITS D1 (F 0 PARSE.ATOM) Pg(14Q PARSE.EXITLIST 11Q PARSE.BIN) (3 EXITS) () PARSE.CASESTMTITEM D1 (P 2 ANSWER P 1 STATEMENT P 0 CASELABEL I 0 CASEHEAD) 0Xg YHI (25Q BUILD.TAIL 17Q PARSE.STATEMENT 14Q PARSE.BIN 5 PARSE.CASELABEL) (11Q =>) () PARSE.CASEEXPITEM D1 (P 2 ANSWER P 1 EXP P 0 CASELABEL I 0 CASEHEAD) 0Xg YHI (25Q BUILD.TAIL 17Q PARSE.EXP 14Q PARSE.BIN 5 PARSE.CASELABEL) (11Q =>) () PARSE.EXITITEM D1 (P 2 ANSWER P 1 STATEMENT P 0 IDLIST) 0Xg YHI (33Q BUILD.PROGN 30Q \NCONC2 25Q BUILD.TAIL 17Q PARSE.STATEMENT 14Q PARSE.BIN 5 PARSE.IDLIST) (11Q =>) () PARSE.CASETEST D1 (P 2 ANSWER P 1 EXP P 0 OPTRELATION F 3 PARSE.ATOM F 4 PARSE.OPTRELATION.FIRST) 0ST(15Q PARSE.EXP 11Q PARSE.OPTRELATION) NIL () PARSE.CONTROLID D1 (P 1 TYPEEXP P 0 ID F 2 PARSE.ATOM2 F 3 PARSE.CONTROLID.FOLLOW F 4 BUILD.CURRENT.SCOPE) $ RSg gHIhT H(40Q BUILD.INITIALIZE.VAR 30Q PARSE.TYPEEXP 24Q PARSE.IDENT 14Q PARSE.BIN) (20Q INTEGER 11Q ID) () PARSE.FORCLAUSE D1 (P 5 ANSWER P 4 RANGE P 3 DIRECTION P 2 EXP2 P 1 EXP1 P 0 CONTROLID F 6 PARSE.ATOM) _`VdgBVgg HIJ g HKL g\ M(132Q BUILD.FORCLAUSE.THROUGH 126Q PARSE.RANGE 122Q PARSE.BIN 111Q BUILD.FORCLAUSE.IN 102Q PARSE.RANGE 76Q PARSE.BIN 67Q PARSE.DIRECTION 63Q BUILD.FORCLAUSE.BY 54Q PARSE.EXP 50Q PARSE.BIN 41Q PARSE.EXP 35Q PARSE.BIN 22Q PARSE.CONTROLID 16Q PARSE.BIN) (115Q THROUGH 73Q IN 45Q , 27Q _ 7 FOR) () PARSE.DIRECTION D1 (F 0 PARSE.ATOM) Pg(11Q PARSE.BIN) (3 DECREASING) () PARSE.DOTEST D1 (F 0 PARSE.ATOM) )Pdgghggh(43Q PARSE.EXP 35Q PARSE.BIN 20Q PARSE.EXP 12Q PARSE.BIN) (40Q while 27Q WHILE 15Q until 4 UNTIL) () PARSE.DOEXIT D1 (P 2 ANSWER P 1 STATEMENT P 0 EXITLIST F 3 PARSE.ATOM) 90Sg*Sgg SgHIh(60Q PARSE.BIN 46Q PARSE.STATEMENT 42Q PARSE.BIN 33Q PARSE.BIN 20Q PARSE.EXITLIST 14Q PARSE.BIN) (53Q ; 37Q => 25Q FINISHED 6 REPEAT) () PARSE.ENABLES D1 (P 3 ANSWER P 2 CATCHLIST P 1 CATCHANY P 0 CATCHCASE F 4 PARSE.ATOM) Q@TgFTdgY+dgdgiho JXhg K(115Q PARSE.BIN 103Q PARSE.CATCHCASE 75Q PARSE.BIN 65Q PARSE.CATCHLIST 61Q PARSE.BIN 30Q PARSE.CATCHANY 14Q PARSE.BIN) (112Q ; 45Q { 37Q BEGIN 22Q ANY 6 ENABLE) ( 72Q (END })) PARSE.CATCHLIST D1 (P 3 ANSWER P 2 CATCHCASE P 1 CATCHANY P 0 CATCHHEAD F 4 PARSE.ATOM F 5 PARSE.CATCHLIST.FOLLOW) ;@XTdUgHIh TgHJh [K(66Q \NCONC2 56Q PARSE.CATCHCASE 51Q PARSE.BIN 36Q \NCONC2 26Q PARSE.CATCHANY 5 PARSE.CATCHHEAD) (43Q ; 20Q ANY) () PARSE.CATCHCASE D1 (P 2 ANSWER P 1 STATEMENT P 0 LHSLIST) 0Xg YgHIh(17Q PARSE.STATEMENT 14Q PARSE.BIN 5 PARSE.LHSLIST) (23Q catchcase 11Q =>) () PARSE.OPTARGS D1 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.OPTARGS.FOLLOW) *Qdgg g HRh(45Q PARSE.LHS 34Q PARSE.BIN 25Q PARSE.EXPLIST 21Q PARSE.BIN) (31Q %] 16Q %[ 7 %[) () PARSE.TRANSFER D1 (F 0 PARSE.ATOM) 7Pdgg Pggggg g(64Q PARSE.BIN 55Q PARSE.BIN 47Q PARSE.BIN 21Q PARSE.BIN 13Q PARSE.BIN) (60Q RETURN 52Q WITH 42Q TRANSFER 36Q RETURN 32Q SHOULDNT 25Q ERROR 16Q WITH 4 RETURN) () PARSE.KEYITEM D1 (P 2 ANSWER P 1 OPTEXP P 0 ID F 3 PARSE.ATOM F 4 PARSE.LANGUAGE) 40g XSgTgSgYHIh(53Q PARSE.OPTEXP 47Q SHOULDNT 43Q PARSE.BIN 22Q PARSE.BIN 10Q PARSE.BIN) (36Q ~ 30Q CEDAR 15Q : 5 ID) () PARSE.OPTEXP D1 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.OPTEXP.FOLLOW) 'QdgdgihgQR(44Q PARSE.EXP 30Q PARSE.BIN) (33Q TRASH 15Q TRASH 7 NULL) () PARSE.EXP D1 (F 0 PARSE.CLASS) Pg(14Q PARSE.EXP2 10Q PARSE.EXP1) (3 ID) () PARSE.EXP1 D1 (P 2 ANSWER P 1 EXP P 0 DISJUNCT F 3 PARSE.ATOM) 0XSgHI H(31Q BUILD.SETQ 23Q PARSE.EXP 17Q PARSE.BIN 5 PARSE.DISJUNCT) (12Q _) () PARSE.EXP2 D1 (P 1 ANSWER P 0 DISJUNCT F 2 PARSE.ATOM F 3 PARSE.TRANSFEROP.FIRST F 4 PARSE.ATOM2 F 5 PARSE.CASEHEAD.FIRST)   RdSgTgRgRdUg Rdg3RRdgdgdgdg}dgvdgodghdgadgZdgSdgLdgEdg>dg7dg0dg)dg"dgdgdgdgdgihSRgH H(406Q BUILD.SETQ 403Q PARSE.EXP 376Q PARSE.BIN 364Q PARSE.EXP.DISJUNCT 104Q PARSE.EXP.DISJUNCT 75Q PARSE.EXP.ERROR 61Q PARSE.EXP.LBRACKET 51Q PARSE.EXP.CASEHEAD 37Q PARSE.EXP.IF 25Q PARSE.EXP.TRANSFEROP) (371Q _ 346Q %[ 340Q @ 332Q - 323Q + 314Q VAL 305Q SUCC 276Q SIZE 267Q PRED 260Q ORD 251Q NOT 242Q NILL 233Q MIN 224Q MAX 215Q LONG 206Q LENGTH 177Q LAST 170Q ISTYPE 161Q FIRST 152Q DESCRIPTOR 141Q BASE 130Q ALL 117Q ABS 67Q ERROR 56Q %[ 32Q IF 20Q %[ 12Q NEW) () PARSE.EXP.TRANSFEROP D1 (P 2 ANSWER P 1 LHS P 0 TRANSFEROP) 0XYggIhh(11Q PARSE.LHS 5 PARSE.TRANSFEROP) (20Q QUOTE 15Q SHOULDNT) () PARSE.EXP.IF D1 (P 3 ANSWER P 2 EXP3 P 1 EXP2 P 0 EXP1) )@g Xg Yg ZHIJ (46Q BUILD.COND 37Q PARSE.EXP 34Q PARSE.BIN 25Q PARSE.EXP 22Q PARSE.BIN 13Q PARSE.EXP 10Q PARSE.BIN) (31Q ELSE 17Q THEN 5 IF) () PARSE.EXP.CASEHEAD D1 (P 3 ANSWER P 2 EXP P 1 CASEEXPLIST P 0 CASEHEAD) #@XYg g ZHIJ (40Q BUILD.SELECTQ 31Q PARSE.EXP 26Q PARSE.BIN 20Q PARSE.BIN 11Q PARSE.CASEEXPLIST 5 PARSE.CASEHEAD) (23Q => 15Q ENDCASE) () PARSE.EXP.LHS D1 (P 2 ANSWER P 1 EXP P 0 LHS) 0Xg YgHIh(17Q PARSE.EXP 14Q PARSE.BIN 5 PARSE.LHS) (23Q SETQ 11Q _) () PARSE.EXP.LBRACKET D1 (P 2 ANSWER P 1 EXP P 0 EXPLIST) (0g Xg g YgHIh(33Q PARSE.EXP 30Q PARSE.BIN 22Q PARSE.BIN 13Q PARSE.EXPLIST 10Q PARSE.BIN) (37Q SETQ 25Q _ 17Q %] 5 %[) () PARSE.EXP.ERROR D1 NIL g o(5 PARSE.BIN) (2 ERROR) ( 11Q (SHOULDNT)) PARSE.EXP.DISJUNCT D1 NIL (2 PARSE.DISJUNCT) NIL () PARSE.DISJUNCT D1 (P 1 ANSWER P 0 CONJUNCTS F 2 PARSE.ATOM) , HXRgHHdgH (46Q DREVERSE 25Q PARSE.CONJUNCT 21Q PARSE.BIN 5 PARSE.CONJUNCT) (42Q OR 14Q OR) () PARSE.CONJUNCT D1 (P 1 ANSWER P 0 NEGATIONS F 2 PARSE.ATOM) , HXRgHHdgH (46Q DREVERSE 25Q PARSE.NEGATION 21Q PARSE.BIN 5 PARSE.NEGATION) (42Q AND 14Q AND) () PARSE.NEGATION D1 (P 1 ANSWER P 0 NOT F 2 PARSE.ATOM F 3 PARSE.NOTS)  RSYHgIhI(15Q PARSE.RELATION 11Q PARSE.NOT) (23Q NOT) () PARSE.RELATION D1 (P 3 ANSWER P 2 NOT P 1 OPTRELATION P 0 SUM F 4 PARSE.ATOM F 5 PARSE.OPTRELATION.FIRST) D@XTUYddgiIYgHI IHI [JgKhK(65Q BUILD.ARITH.EXP2 53Q BUILD.IN 16Q PARSE.OPTRELATION 5 PARSE.SUM) (73Q NOT 42Q IN 25Q NOT) () PARSE.SUM D1 (P 2 ANSWER P 1 PRODUCT P 0 PRODUCTS F 3 PARSE.ATOM F 4 PARSE.ADDOPS) W0YSdTIHXdd?gH gIHSggI (120Q SHOULDNT 112Q BUILD.ARITH.EXP2 107Q PARSE.PRODUCT 77Q PARSE.BIN 62Q PARSE.PRODUCT 52Q PARSE.BIN 41Q BUILD.ARITH.EXP* 36Q DREVERSE 5 PARSE.PRODUCT) (103Q - 71Q - 45Q + 32Q +) () PARSE.PRODUCT D1 (P 2 ANSWER P 1 FACTOR P 0 FACTORS F 3 PARSE.ATOM F 4 PARSE.MULTOPS) p0YSdTIHXddXgH gIHSdggI ggI (151Q SHOULDNT 143Q BUILD.ARITH.EXP2 140Q PARSE.FACTOR 130Q PARSE.BIN 114Q BUILD.ARITH.EXP2 111Q PARSE.FACTOR 101Q PARSE.BIN 62Q PARSE.FACTOR 52Q PARSE.BIN 41Q BUILD.ARITH.EXP* 36Q DREVERSE 5 PARSE.FACTOR) (134Q MOD 122Q MOD 105Q / 72Q / 45Q * 32Q *) () PARSE.OPTRELATION D1 (P 1 ANSWER P 0 NOT F 2 PARSE.ATOM F 3 PARSE.LANGUAGE) * RgSgRgYHgIhI(33Q PARSE.RELATIONTAIL 27Q PARSE.NOT) (41Q NOT 22Q ~ 14Q MESA 6 NOT) () PARSE.RELATIONTAIL D1 (P 3 ANSWER P 2 SUM P 1 RELOP P 0 RANGE F 4 PARSE.ATOM) (@TggHhIJh(37Q PARSE.SUM 33Q PARSE.RELOP 17Q PARSE.RANGE 13Q PARSE.BIN) (23Q IN 6 IN) () PARSE.RELOP D1 NIL (2 PARSE.BIN) NIL () PARSE.ADDOP D1 NIL (2 PARSE.BIN) NIL () PARSE.MULTOP D1 NIL (2 PARSE.BIN) NIL () PARSE.FACTOR D1 (P 2 ANSWER P 1 PRIMARY P 0 ADDOP F 3 PARSE.ATOM F 4 PARSE.ADDOPS) 0STZHggJ J(33Q BUILD.ARITH.EXP1 15Q PARSE.PRIMARY 11Q PARSE.BIN) (27Q - 22Q -) () PARSE.PRIMARY D1 (P 1 LHS P 0 ANSWER F 2 PARSE.ATOM F 3 PARSE.CLASS F 4 PARSE.PREFIXOP.FIRST F 5 PARSE.ATOM2 F 6 PARSE.TYPEOP.FIRST F 7 PARSE.LANGUAGE)  Sg Rd3RdTVWgRdgUgRdgdgdgdgdgdgdgdgdgdgdgg(312Q PARSE.PRIMARY.LHS 306Q PARSE.PRIMARY.LIST 275Q PARSE.PRIMARY.CONS 262Q PARSE.PRIMARY.NEW 247Q PARSE.PRIMARY.DESCRIPTOR 234Q PARSE.PRIMARY.AT 221Q PARSE.PRIMARY.ISTYPE 206Q PARSE.PRIMARY.SIZE 173Q PARSE.PRIMARY.ALL 160Q PARSE.PRIMARY.VAL 145Q PARSE.PRIMARY.LBRACKET 132Q PARSE.PRIMARY.NIL 117Q PARSE.ATOM 103Q PARSE.PRIMARY.TYPEOP 46Q PARSE.PRIMARY.PREFIXOP 30Q PARSE.BIN 16Q BUILD.CHARCODE 13Q PARSE.BIN) (301Q LIST 267Q CONS 254Q NEW 241Q DESCRIPTOR 226Q @ 213Q ISTYPE 200Q SIZE 165Q ALL 152Q VAL 137Q %[ 124Q NILL 111Q $ 76Q %[ 67Q CODE 57Q CEDAR 6 CHAR) () PARSE.ATOM D1 NIL g gg h(16Q PARSE.BIN 5 PARSE.BIN) (13Q ID 10Q QUOTE 2 $) () PARSE.PRIMARY.NIL D1 NIL g h(5 PARSE.BIN) (2 NILL) () PARSE.PRIMARY.LBRACKET D1 (P 0 ANSWER) g Xg H(22Q PARSE.BIN 13Q PARSE.EXPLIST 10Q PARSE.BIN) (17Q %] 5 %[) () PARSE.PRIMARY.PREFIXOP D1 (P 2 ANSWER P 1 ORDERLIST P 0 PREFIXOP) 0Xg Yg HI(26Q PARSE.BIN 17Q PARSE.ORDERLIST 14Q PARSE.BIN 5 PARSE.PREFIXOP) (23Q %] 11Q %[) () PARSE.PRIMARY.VAL D1 (P 1 ANSWER P 0 ORDERLIST) ! g g Xg gH(30Q PARSE.BIN 21Q PARSE.ORDERLIST 16Q PARSE.BIN 10Q PARSE.BIN) (33Q VAL 25Q %] 13Q %[ 5 VAL) () PARSE.PRIMARY.ALL D1 (P 1 ANSWER P 0 ORDERLIST) ! g g Xg gH(30Q PARSE.BIN 21Q PARSE.ORDERLIST 16Q PARSE.BIN 10Q PARSE.BIN) (33Q ALL 25Q %] 13Q %[ 5 ALL) () PARSE.PRIMARY.NEW D1 (P 2 ANSWER P 1 INITIALIZATION P 0 TYPEEXP) $0g XYg HI (41Q BUILD.NEW 34Q PARSE.BIN 26Q PARSE.OPTCATCH 22Q PARSE.INITIALIZATION 16Q PARSE.TYPEEXP 13Q PARSE.BIN 5 PARSE.NEW) (31Q %] 10Q %[) () PARSE.PRIMARY.TYPEOP D1 (P 2 ANSWER P 1 TYPEEXP P 0 TYPEOP) 0Xg Yg HIh(26Q PARSE.BIN 17Q PARSE.TYPEEXP 14Q PARSE.BIN 5 PARSE.TYPEOP) (23Q %] 11Q %[) () PARSE.PRIMARY.SIZE D1 (P 2 ANSWER P 1 EXP P 0 TYPEEXP F 3 PARSE.ATOM) B0g g XSgg gHhg gHIh(65Q PARSE.BIN 56Q PARSE.EXP 52Q PARSE.BIN 36Q PARSE.BIN 21Q PARSE.TYPEEXP 16Q PARSE.BIN 10Q PARSE.BIN) (71Q SIZE 62Q %] 42Q SIZE 33Q %] 26Q , 13Q %[ 5 SIZE) () PARSE.PRIMARY.ISTYPE D1 (P 2 ANSWER P 1 TYPEEXP P 0 EXP) *0g g Xg Yg HI (47Q BUILD.ISTYPE 42Q PARSE.BIN 33Q PARSE.TYPEEXP 30Q PARSE.BIN 21Q PARSE.EXP 16Q PARSE.BIN 10Q PARSE.BIN) (37Q %] 25Q , 13Q %[ 5 ISTYPE) () PARSE.PRIMARY.AT D1 (P 1 ANSWER P 0 LHS)  g (13Q PARSE.LHS 10Q PARSE.BIN) (5 @) () PARSE.PRIMARY.DESCRIPTOR D1 (P 1 ANSWER P 0 DESCLIST)  g g Xg gH(30Q PARSE.BIN 21Q PARSE.DESCLIST 16Q PARSE.BIN 10Q PARSE.BIN) (33Q DESCRIPTOR 25Q %] 13Q %[ 5 DESCRIPTOR) () PARSE.PRIMARY.CONS D1 (P 1 ANSWER P 0 EXPLIST) ' g g Xg gH(36Q PARSE.BIN 30Q PARSE.OPTCATCH 24Q PARSE.EXPLIST 21Q PARSE.BIN 13Q PARSE.BIN 5 PARSE.THISIS.CEDAR) (41Q CONS 33Q %] 16Q %[ 10Q CONS) () PARSE.PRIMARY.LIST D1 (P 1 ANSWER P 0 EXPLIST) $ g g Xg gH(33Q PARSE.BIN 24Q PARSE.EXPLIST 21Q PARSE.BIN 13Q PARSE.BIN 5 PARSE.THISIS.CEDAR) (36Q LIST 30Q %] 16Q %[ 10Q LIST) () PARSE.PRIMARY.LHS D1 (P 2 ANSWER P 1 QUALIFIER P 0 LHS F 3 PARSE.ATOM F 4 PARSE.ATOM2 F 5 PARSE.LANGUAGE) _0XSg#TgUgTdgdgihHg SdgH dgH gH (134Q SHOULDNT 130Q PARSE.PRIMARY.LHS.LIST 116Q PARSE.PRIMARY.LHS.CONS 102Q PARSE.PRIMARY.LHS.NEW 66Q PARSE.BIN 5 PARSE.LHS) (122Q LIST 107Q CONS 73Q NEW 63Q %. 46Q LIST 40Q CONS 30Q CEDAR 21Q NEW 12Q %.) () PARSE.PRIMARY.LHS.NEW D1 (P 2 ANSWER P 1 INITIALIZATION P 0 TYPEEXP I 0 LHS) -0g g XYg g@HIh(37Q PARSE.BIN 31Q PARSE.OPTCATCH 25Q PARSE.INITIALIZATION 21Q PARSE.TYPEEXP 16Q PARSE.BIN 10Q PARSE.BIN) (42Q create 34Q %] 13Q %[ 5 NEW) () PARSE.PRIMARY.LHS.CONS D1 (P 2 ANSWER P 1 OPTCATCH P 0 EXPLIST I 0 LHS) (0g g Xg g@H (43Q \APPEND2 33Q PARSE.BIN 25Q PARSE.OPTCATCH 21Q PARSE.EXPLIST 16Q PARSE.BIN 10Q PARSE.BIN) (36Q CONS 30Q %] 13Q %[ 5 CONS) () PARSE.PRIMARY.LHS.LIST D1 (P 2 ANSWER P 1 OPTCATCH P 0 EXPLIST I 0 LHS) %0g g Xg g@H (40Q \APPEND2 30Q PARSE.BIN 21Q PARSE.EXPLIST 16Q PARSE.BIN 10Q PARSE.BIN) (33Q LIST 25Q %] 13Q %[ 5 LIST) () PARSE.QUALIFIER D1 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.LANGUAGE F 3 PARSE.PREFIXOPS F 4 PARSE.TYPEOPS) QdgdQdSTRgQdgQgQdggRgQdgdgihg gg g XH(214Q PARSE.BIN 204Q PARSE.BIN 175Q PARSE.OPTCATCH 171Q PARSE.EXPLIST 165Q PARSE.BIN 153Q PARSE.BIN 103Q PARSE.BIN 67Q PARSE.BIN 55Q PARSE.TYPEOP 30Q PARSE.PREFIXOP 16Q PARSE.BIN) (211Q ^ 201Q %] 157Q %[ 150Q ID 134Q CONS 126Q LIST 116Q CEDAR 107Q NEW 75Q FREE 62Q SIZE 47Q CODE 40Q CEDAR 7 %.) () PARSE.LHS D1 (P 3 ANSWER P 2 OPTTYPE P 1 EXP2 P 0 EXP1 F 4 PARSE.ATOM F 5 PARSE.CLASS) @TdgigTdg)g g HJ g#g g HJ jTdg3g g g gHIh1gg HUdgg [K K(350Q BUILD.QUALIFY 345Q PARSE.QUALIFIER 340Q PARSE.QUALIFIER.HERE 333Q BUILD.CHARCODE 330Q PARSE.BIN 317Q PARSE.BIN 300Q PARSE.BIN 271Q PARSE.EXP 265Q PARSE.BIN 240Q PARSE.BIN 231Q PARSE.OPTCATCH 225Q PARSE.EXP 221Q PARSE.BIN 212Q PARSE.EXP 206Q PARSE.BIN 177Q PARSE.BIN 161Q BUILD.COERCE 153Q PARSE.BIN 144Q PARSE.OPTTYPE 140Q PARSE.EXP 134Q PARSE.BIN 125Q PARSE.BIN 111Q BUILD.COERCE 103Q PARSE.BIN 74Q PARSE.OPTCATCH 70Q PARSE.OPTTYPE 64Q PARSE.EXP 60Q PARSE.BIN 51Q PARSE.BIN 32Q PARSE.BIN 15Q PARSE.BIN) (323Q CHAR 311Q ID 275Q %) 257Q %( 244Q APPLY 235Q %] 216Q , 203Q %[ 170Q APPLY 150Q %] 131Q %[ 117Q LOOPHOLE 100Q %] 55Q %[ 42Q NARROW 25Q FALSE 7 TRUE) () PARSE.QUALIFIER.HERE D1 (F 0 PARSE.ATOM F 1 PARSE.ATOM2 F 2 PARSE.QUALIFIER.FIRST F 3 PARSE.LANGUAGE) %PR PgQoSgQohNIL (27Q CEDAR 10Q %.) ( 37Q (CONS LIST) 20Q (FREE NEW)) PARSE.OPTCATCH D1 (P 1 ANSWER P 0 CATCHLIST F 2 PARSE.ATOM)  RgI(17Q PARSE.CATCHLIST 13Q PARSE.BIN) (6 !) () PARSE.TRANSFEROP D1 NIL (2 PARSE.BIN) NIL () PARSE.PREFIXOP D1 NIL (2 PARSE.BIN) NIL () PARSE.TYPEOP D1 (F 0 PARSE.ATOM) Pg(14Q PARSE.BIN 10Q PARSE.THISIS.CEDAR) (3 CODE) () PARSE.DESCLIST D1 (P 3 ANSWER P 2 OPTTYPE P 1 EXP2 P 0 EXP1 F 4 PARSE.ATOM) /@XTggHIJhgHh(30Q PARSE.OPTTYPE 24Q PARSE.EXP 20Q PARSE.BIN 5 PARSE.EXP) (50Q desclist 34Q desclist 12Q ,) () PARSE.DIRECTORY D1 (F 0 PARSE.ATOM) PgPgg h(32Q PARSE.BIN 23Q PARSE.INCLUDELIST 11Q PARSE.BIN) (27Q ; 16Q ; 3 DIRECTORY) () PARSE.IMPORTS D1 (F 0 PARSE.ATOM) Pg h(15Q PARSE.MODULELIST 11Q PARSE.BIN) (3 IMPORTS) () PARSE.POINTERPREFIX D1 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.INTERVAL.FIRST) g QRghH(22Q PARSE.INTERVAL 10Q PARSE.BIN) (17Q POINTER 5 POINTER) () PARSE.EXPORTS D1 (P 1 ANSWER P 0 MODULELIST F 2 PARSE.ATOM)  Rg  h(23Q BUILD.STORE.EXPORTS 20Q PARSE.MODULELIST 14Q PARSE.BIN) (6 EXPORTS) () PARSE.FIELDLIST D1 (P 0 ANSWER I 0 KIND F 1 PARSE.ATOM F 2 PARSE.CLASS F 3 PARSE.PREDEFINED.TYPES F 4 PARSE.ATOM2) Ig Qg2Rg'QS"Tdgdgdgihg g H(105Q PARSE.BIN 76Q PARSE.TYPELIST 72Q PARSE.PAIRLIST 10Q PARSE.BIN) (102Q %] 67Q FIELDLIST 54Q : 46Q , 40Q %( 23Q ID 14Q %] 5 %[) () PARSE.USING D1 (P 0 IDLIST F 1 PARSE.ATOM) ,Qg!g Qgg H(50Q PARSE.BIN 41Q PARSE.IDLIST 35Q PARSE.BIN 23Q PARSE.BIN 14Q PARSE.BIN) (45Q %] 30Q %] 20Q %[ 6 USING) () PARSE.CATCHHEAD D1 (P 1 ANSWER P 0 CATCHCASES F 2 PARSE.ATOM F 3 PARSE.CATCHLIST.FOLLOW) + RShHXRgRSHH (50Q DREVERSE 37Q PARSE.CATCHCASE 27Q PARSE.BIN 13Q PARSE.CATCHCASE) (22Q ;) () PARSE.DECLIST D1 (P 0 VARLIST F 1 PARSE.ATOM F 2 PARSE.DECLIST.FOLLOW F 3 PARSE.CLASS F 4 PARSE.ATOM2) JXQdgR.o SgTdgdgihH H h(106Q BUILD.STORE.VARLIST 77Q \NCONC2 74Q PARSE.DECLARATION 35Q SHOULDNT 21Q PARSE.BIN 5 PARSE.DECLARATION) (60Q : 52Q , 42Q ID 13Q ;) ( 32Q "PARSE.DECLIST") PARSE.PAIRLIST D1 (P 1 ANSWER P 0 PAIRITEMS I 0 KIND F 2 PARSE.ATOM) , @ XdgH@ RggH(34Q \NCONC2 31Q PARSE.PAIRITEM 23Q PARSE.BIN 6 PARSE.PAIRITEM) (47Q PAIRLIST 41Q , 15Q TYPELIST) () PARSE.VARIANTLIST D1 (P 1 ANSWER P 0 VARIANTITEMS F 2 PARSE.ATOM) % HXRgHgH (41Q DREVERSE 25Q PARSE.VARIANTITEM 21Q PARSE.BIN 5 PARSE.VARIANTITEM) (35Q variantlist 14Q ,) () PARSE.ORDERLIST D1 (P 1 ANSWER P 0 OPTEXPS F 2 PARSE.ATOM F 3 PARSE.ORDERLIST.FOLLOW) + RShHXRgHgH (47Q DREVERSE 33Q PARSE.OPTEXP 27Q PARSE.BIN 13Q PARSE.OPTEXP) (43Q ORDERLIST 22Q ,) () PARSE.LHSLIST D1 (P 1 ANSWER P 0 LHSS F 2 PARSE.ATOM) ! HXRgHH (36Q DREVERSE 25Q PARSE.LHS 21Q PARSE.BIN 5 PARSE.LHS) (14Q ,) () PARSE.INCLUDELIST D1 (F 0 PARSE.ATOM) Pg (20Q PARSE.INCLUDEITEM 14Q PARSE.BIN 2 PARSE.INCLUDEITEM) (6 ,) () PARSE.MODULELIST D1 (P 1 ANSWER P 0 MODULEITEMS F 2 PARSE.ATOM F 3 PARSE.MODULELIST.FOLLOW) ' RShHXRgHH (44Q DREVERSE 33Q PARSE.MODULEITEM 27Q PARSE.BIN 13Q PARSE.MODULEITEM) (22Q ,) () PARSE.ELEMENTLIST D1 (P 1 ANSWER P 0 ELEMENTS F 2 PARSE.ATOM) ! HXRgHH (36Q DREVERSE 25Q PARSE.ELEMENT 21Q PARSE.BIN 5 PARSE.ELEMENT) (14Q ,) () PARSE.BINDLIST D1 (P 1 ANSWER P 0 BINDITEMS F 2 PARSE.ATOM) ! HXRgHH (36Q DREVERSE 25Q PARSE.BINDITEM 21Q PARSE.BIN 5 PARSE.BINDITEM) (14Q ,) () PARSE.STATEMENTLIST D1 (P 1 ANSWER P 0 STATEMENTS F 2 PARSE.ATOM F 3 PARSE.STATEMENTLIST.FOLLOW) - RShHXRdgRSHH (52Q DREVERSE 41Q PARSE.STATEMENT 31Q PARSE.BIN 13Q PARSE.STATEMENT) (23Q ;) () PARSE.CASESTMTLIST D1 (P 1 ANSWER P 0 CASESTMTITEMS I 0 CASEHEAD F 2 PARSE.ATOM) + @ HXRdgRg@ HH (50Q DREVERSE 37Q PARSE.CASESTMTITEM 24Q PARSE.BIN 6 PARSE.CASESTMTITEM) (31Q ENDCASE 16Q ;) () PARSE.CASELABEL D1 (P 3 ANSWER P 2 TYPEEXP P 1 IDENT P 0 CASETESTS F 4 PARSE.CLASS F 5 PARSE.ATOM2 F 6 BUILD.CURRENT.SCOPE F 7 PARSE.ATOM) V@Tg/UdgdgihIJ hIJhV KHXWgHH (123Q DREVERSE 112Q PARSE.CASETEST 106Q PARSE.BIN 71Q PARSE.CASETEST 64Q BUILD.INITIALIZE.VAR 52Q BUILD.ISTYPE 44Q PARSE.TYPEEXP 40Q PARSE.IDENT) (101Q , 24Q %( 16Q : 6 ID) () PARSE.EXITLIST D1 (P 1 ANSWER P 0 EXITITEMS F 2 PARSE.ATOM F 3 PARSE.EXITLIST.FOLLOW) - RShHXRdgRSHH (52Q DREVERSE 41Q PARSE.EXITITEM 31Q PARSE.BIN 13Q PARSE.EXITITEM) (23Q ;) () PARSE.KEYLIST D1 (P 1 ANSWER P 0 KEYITEMS F 2 PARSE.ATOM) % HXRgHgH (41Q DREVERSE 25Q PARSE.KEYITEM 21Q PARSE.BIN 5 PARSE.KEYITEM) (35Q KEYLIST 14Q ,) () PARSE.CASEEXPLIST D1 (P 1 ANSWER P 0 CASEEXPITEMS I 0 CASEHEAD F 2 PARSE.ATOM) + @ HXRdgRg@ HH (50Q DREVERSE 37Q PARSE.CASEEXPITEM 24Q PARSE.BIN 6 PARSE.CASEEXPITEM) (31Q ENDCASE 16Q ,) () PARSE.EXPLIST D1 (P 2 ANSWER P 1 KEYLIST P 0 ORDERLIST F 3 PARSE.CLASS F 4 PARSE.ATOM2) 0SgTg(25Q PARSE.ORDERLIST 21Q PARSE.KEYLIST) (14Q : 6 ID) () PARSE.OPEN D1 (P 0 BINDLIST F 1 PARSE.ATOM) Qgg H(26Q PARSE.BIN 17Q PARSE.BINDLIST 13Q PARSE.BIN) (23Q ; 6 OPEN) () PARSE.CLASS D1 NIL o (6 PARSE.BIN) NIL ( 3 (MONITOR PROGRAM)) PARSE.CASEHEAD D1 (P 5 ANSWER P 4 OPTEXP P 3 BINDITEM P 2 OPTEXP P 1 EXP P 0 ID F 6 PARSE.ATOM) E`Vg g [Kg g gHIJh(66Q PARSE.BIN 57Q PARSE.OPTEXP 53Q PARSE.BIN 34Q PARSE.BINDITEM 30Q PARSE.BIN 17Q PARSE.EXP 13Q PARSE.BIN) (72Q CASEHEAD 63Q FROM 50Q SELECT 25Q WITH 6 SELECT) () PARSE.READONLY D1 (F 0 PARSE.ATOM) Pg(11Q PARSE.BIN) (3 READONLY) () PARSE.ORDERED D1 (F 0 PARSE.ATOM) Pg(11Q PARSE.BIN) (3 ORDERED) () PARSE.BASE D1 (F 0 PARSE.ATOM) Pg(11Q PARSE.BIN) (3 BASE) () PARSE.PACKED D1 (F 0 PARSE.ATOM) Pg(11Q PARSE.BIN) (3 PACKED) () PARSE.HEAP D1 (F 0 PARSE.ATOM) Pg(14Q PARSE.THISIS.CEDAR 10Q PARSE.BIN) (3 UNCOUNTED) () PARSE.INLINE D1 (F 0 PARSE.ATOM) Pg(11Q PARSE.BIN) (3 INLINE) () PARSE.ARGUMENTS D1 NIL h(5 PARSE.RETURNLIST 2 PARSE.ARGLIST) NIL () PARSE.INTERFACE D1 NIL h(10Q PARSE.SHARES 5 PARSE.EXPORTS 2 PARSE.IMPORTS) NIL () PARSE.SHARES D1 (F 0 PARSE.ATOM) Pg (14Q PARSE.IDLIST 11Q PARSE.BIN) (3 SHARES) () PARSE.DEFAULT D1 (F 0 PARSE.ATOM) Pg(14Q PARSE.DEFAULTOPT 11Q PARSE.BIN) (3 _) () PARSE.OPTSIZE D1 (P 1 ANSWER P 0 EXP F 2 PARSE.ATOM)  Rgg HI(26Q PARSE.BIN 17Q PARSE.EXP 13Q PARSE.BIN) (23Q %] 6 %[) () PARSE.BOUNDS D1 (P 2 ANSWER P 1 EXP2 P 0 EXP1) 0Xg YHIh(17Q PARSE.EXP 14Q PARSE.BIN 5 PARSE.EXP) (11Q ..) () PARSE.LENGTH D1 (P 1 ANSWER P 0 EXP)  g Xg H(22Q PARSE.BIN 13Q PARSE.EXP 10Q PARSE.BIN) (17Q %] 5 %[) () PARSE.INDEXTYPE D1 (F 0 PARSE.ATOM) Pgh(10Q PARSE.TYPEEXP) (3 OF) () PARSE.ELSEPART D1 (F 0 PARSE.ATOM) Pg(14Q PARSE.STATEMENT 11Q PARSE.BIN) (3 ELSE) () PARSE.OTHERPART D1 (F 0 PARSE.ATOM) Pg(14Q PARSE.STATEMENT 11Q PARSE.BIN) (3 =>) () PARSE.FREE D1 (P 1 ANSWER P 0 LHS)  Xg g gHh(22Q PARSE.BIN 14Q PARSE.BIN 5 PARSE.LHS) (25Q FREE 17Q FREE 11Q %.) () PARSE.CATCHANY D1 (P 1 ANSWER P 0 STATEMENT)  g g XgHh(21Q PARSE.STATEMENT 16Q PARSE.BIN 10Q PARSE.BIN) (25Q ANY 13Q => 5 ANY) () PARSE.NOT D1 NIL (2 PARSE.BIN) NIL () PARSE.NEW D1 (F 0 PARSE.ATOM F 1 PARSE.LANGUAGE) %PgQgg g h(41Q PARSE.BIN 32Q PARSE.BIN 23Q PARSE.LHS 16Q PARSE.BIN) (36Q NEW 27Q %. 11Q CEDAR 3 NEW) () PARSE.OPTTYPE D1 (F 0 PARSE.ATOM) Pgg(13Q PARSE.TYPEEXP 10Q PARSE.BIN) (17Q ANY 3 ,) () PARSE.ARGLIST D1 (P 0 ARGLIST F 1 PARSE.ATOM) &QgQgg Xd h(42Q BUILD.STORE.ARGLIST 35Q PARSE.FIELDLIST 26Q PARSE.BIN 22Q PARSE.THISIS.CEDAR) (32Q ARGLIST 15Q ANY 6 %[) () PARSE.RETURNLIST D1 (P 0 RETURNLIST F 1 PARSE.ATOM) *QgQgg Xd h(46Q BUILD.STORE.RETURNLIST 41Q PARSE.FIELDLIST 32Q PARSE.BIN 26Q PARSE.THISIS.CEDAR 14Q PARSE.BIN) (36Q RETURNLIST 21Q ANY 6 RETURNS) () BUILD.INIT D1 (I 0 PREFIX F 0 BUILD.FILECOMS F 1 BUILD.PREFIX F 2 BUILD.SCOPE.STACK F 3 BUILD.NEXT.SCOPE F 4 BUILD.CURRENT.SCOPE) @@cd cd oi Pi i ghddddddhchcdc(42Q TERPRI 35Q PRIN1 27Q PRIN1 17Q SETTOPVAL 11Q FILECOMS 6 U-CASE) (45Q MODULE) ( 23Q "Creating ") BUILD.PUSH.SCOPE D1 (F 0 BUILD.SCOPE.STACK F 1 BUILD.CURRENT.SCOPE F 2 BUILD.NEXT.SCOPE) $QRchdddddddhcPPcNIL NIL () BUILD.POP.SCOPE D1 (F 0 BUILD.SCOPE.STACK F 1 BUILD.CURRENT.SCOPE F 2 BUILD.NEXT.SCOPE) QcPPccNIL NIL () BUILD.GC.SCOPE D1 (F 0 BUILD.NEXT.SCOPE) hdddddddhchNIL NIL () BUILD.STORE.EXPORTS D1 (L (0 EXPORTS) F 0 BUILD.PREFIX) @dchNIL NIL () BUILD.STORE.IDENTLIST D1 (L (0 IDENTLIST) F 0 BUILD.NEXT.SCOPE) P@hNIL NIL () BUILD.STORE.INTERFACES D1 (I 0 INTERFACES) @d h(6 BUILD.STORE.INTERFACE) NIL () BUILD.STORE.INTERFACE D1 (I 0 INTERFACE) @gi h(7 PUTPROP) (3 MESA.INTERFACE) () BUILD.STORE.OPEN D1 (L (0 OPEN) F 0 BUILD.NEXT.SCOPE) P@hNIL NIL () BUILD.STORE.USING D1 (P 0 USE I 1 USING I 0 INTERFACE) AdHg@ h(16Q PUTPROP) (12Q MESA.USEDBY) () BUILD.INITIALIZATION D1 (P 0 ANSWER I 2 INITIALIZATION I 1 TYPEEXP I 0 IDENTLIST F 1 BUILD.CURRENT.SCOPE) /A dg@AB g@AB @ABQ XH(52Q BUILD.INITIALIZE.VARS 42Q BUILD.INITIALIZE.RECORD 24Q BUILD.INITIALIZE.FN 6 BUILD.TYPEATOM) (31Q MRECORD 12Q PROC) () BUILD.INITIALIZE.VARS D1 (P 1 ID P 0 ANSWER I 3 SCOPE I 2 INITIALIZATION I 1 TYPEEXP I 0 IDENTLIST) % 0@dYABC KJh\J&L(21Q BUILD.INITIALIZE.VAR) NIL () BUILD.INITIALIZE.VAR D1 (P 0 PAIRITEM I 3 SCOPE I 2 INITIALIZATION I 1 TYPEEXP I 0 ID F 1 BUILD.SCOPE.STACK) ;@ABhXCCHh Q @BA hg @i oi @(67Q PRIN1 56Q PRIN1 50Q BUILD.ADD.TO.FILECOMS 37Q BUILD.COERCE 25Q \NCONC2) (45Q INITVARS) ( 63Q ",") BUILD.INITIALIZE.FN D1 (P 3 LAMBDA P 2 RETURNLIST P 1 ARGLIST P 0 PROCID I 2 INITIALIZATION I 1 TYPEEXP I 0 ID F 4 BUILD.PREFIX F 5 BUILD.NEXT.SCOPE) \@T@ XUYUZ@gT Hgi HgI HgJ IB [HK Hg @i oi h(130Q PRIN1 120Q PRIN1 113Q BUILD.GC.SCOPE 110Q BUILD.ADD.TO.FILECOMS 101Q PUTD 73Q BUILD.LAMBDA 66Q PUTPROP 56Q PUTPROP 46Q PUTPROP 36Q PUTPROP 7 BUILD.PROCID) (105Q FNS 62Q MESA.RETURNLIST 52Q MESA.ARGLIST 42Q MESA.FN 32Q MESA.USEDBY) ( 124Q ",") BUILD.INITIALIZE.RECORD D1 (P 2 RECORD P 1 FIELDLIST P 0 RECORDID I 2 INITIALIZATION I 1 TYPEEXP I 0 ID F 3 BUILD.PREFIX) >0S@ XAHHA Zd Hg @gS HgA @i oi h(72Q PRIN1 62Q PRIN1 55Q PUTPROP 45Q PUTPROP 35Q BUILD.ADD.TO.FILECOMS 26Q EVAL 21Q BUILD.RECORD 7 BUILD.RECORDID) (51Q MESA.TYPE 41Q MESA.USEDBY 32Q RECORDS) ( 66Q ",") BUILD.RECORD D1 (P 7 ITEM P 6 I P 4 ITEM P 3 ANSWER P 2 DEFAULTS P 1 FIELDS P 0 FIELDLIST I 1 TYPEEXP I 0 RECORDID) @AXd g@hg8H ,dLILJLgLL h հYHgLH kM@_gN IOJgN gOO h MNkԾg@IJ (257Q \APPEND2 245Q SHOULDNT 230Q \NCONC2 221Q BUILD.COERCE 204Q PACK* 163Q PACK* 135Q REVERSE 107Q \NCONC2 100Q BUILD.COERCE 36Q REVERSE) (251Q RECORD 207Q _ 200Q FIELD 157Q FIELD 125Q TYPELIST 66Q _ 26Q PAIRLIST 14Q TYPERECORD) () BUILD.TYPE D1 (P 1 TYPEID P 0 ID I 2 DEFAULT I 1 TYPEEXP I 0 IDENTLIST F 2 BUILD.PREFIX) 5 A g@AB R@ YA@gR IgA h(61Q PUTPROP 50Q PUTPROP 32Q BUILD.TYPEID 22Q BUILD.INITIALIZE.RECORD 6 BUILD.TYPEATOM) (55Q MESA.TYPE 44Q MESA.USEDBY 11Q MRECORD) () BUILD.STORE.ARGLIST D1 (I 0 ARGLIST F 0 BUILD.NEXT.SCOPE) P@@g@ h(22Q BUILD.STORE.PAIRLIST) (13Q PAIRLIST) () BUILD.STORE.RETURNLIST D1 (I 0 RETURNLIST F 0 BUILD.NEXT.SCOPE) P@@g@ h(24Q BUILD.STORE.PAIRLIST) (15Q PAIRLIST) () BUILD.STORE.PAIRLIST D1 (P 2 PAIRITEM I 0 PAIRLIST F 3 BUILD.NEXT.SCOPE) 0@dZS IHhH&h(14Q BUILD.STORE.PAIRITEM) NIL () BUILD.STORE.PAIRITEM D1 (I 1 SCOPE I 0 PAIRITEM) AA@h @(12Q \NCONC2) NIL () BUILD.STORE.VARLIST D1 (L (0 VARLIST) F 0 BUILD.CURRENT.SCOPE) P@hNIL NIL () BUILD.ID D1 (P 0 ANSWER I 1 ID I 0 INTERFACE) &oA A@AgbddoA (43Q PACK* 12Q STRPOS) (24Q MESA.USEDBY) ( 37Q "." 6 ".") BUILD.FIELDID D1 (L (1 ID 0 INTERFACE)) ANIL NIL () BUILD.PROCID D1 (I 1 ID I 0 INTERFACE) @A (4 BUILD.ID) NIL () BUILD.RECORDID D1 (I 1 ID I 0 INTERFACE) @A (4 BUILD.ID) NIL () BUILD.TYPEID D1 (I 1 ID I 0 INTERFACE F 0 PARSE.PREDEFINED.TYPES) APA@A (12Q BUILD.ID) NIL () BUILD.VARID D1 (P 0 ANSWER I 1 ID I 0 INTERFACE) A @A @A (22Q BUILD.GLOBALVARID 14Q BUILD.LOCALVARID 6 BUILD.LOOKUP) NIL () BUILD.LOCALVARID D1 (L (1 ID 0 INTERFACE)) ANIL NIL () BUILD.GLOBALVARID D1 (I 1 ID I 0 INTERFACE) @A (4 BUILD.ID) NIL () BUILD.ULTIMATE.TYPE D1 (I 0 EXP) @ (6 BUILD.REFINE.TYPE 3 BUILD.IMMEDIATE.TYPE) NIL () BUILD.REFINE.TYPE D1 (P 1 NEXTTYPE P 0 PAIRITEM I 0 TYPE F 2 PARSE.PREDEFINED.TYPES)  @g@dgdgdRT@dgggg@g@g@g@dggnggd@dg\gVl/@ Ji @i oi i @gg @#@dgg@dg@Ydg@@Ib2(234Q PUTPROP 221Q TERPRI 214Q PRIN1 203Q PRIN1 175Q TERPRI 167Q BUILD.LOOKUP.TYPE) (306Q UNDECLARED 274Q MREF 263Q MPOINTER 247Q MINTERVAL 231Q UNDECLARED 226Q MESA.TYPE 153Q ANY 144Q UNSPECIFIED 135Q STRING 130Q StringBody 123Q CARDINAL 115Q WORD 106Q NAT 100Q INTEGER 71Q INT 62Q CHARACTER 55Q CHAR 47Q BOOLEAN 41Q BOOL 24Q INTERFACE 16Q MPROC 6 ANY) ( 210Q " type unknown.") BUILD.IMMEDIATE.TYPE D1 (P 6 PAIRITEM P 5 FIELDLIST P 4 MRECORD P 3 FIELDNAME P 2 RECORDNAME P 1 FN P 0 TYPE I 0 EXP F 7 BUILD.BOOLEAN.FNS F 10Q BUILD.CARDINAL.FNS F 11Q BUILD.MIXED.FNS F 12Q BUILD.REAL.FNS) p@@digl@ Ji @i o-@d3 gg@g@i @i oi i gYdg@ g$@ XgHi @i oIdg$@ XgHi @i ogIdg#@ XgHi @i ofg@ Idg(@ XgHi @i o*g@Idg@@@Jg\dg]gKMi @i oWIdWdWgWi @i o(647Q PRIN1 641Q TERPRI 565Q PRIN1 557Q TERPRI 446Q PRIN1 440Q TERPRI 417Q BUILD.ULTIMATE.TYPE 377Q BUILD.IMMEDIATE.TYPE 352Q PRIN1 344Q TERPRI 330Q BUILD.IMMEDIATE.TYPE 275Q PRIN1 267Q TERPRI 251Q BUILD.ULTIMATE.TYPE 223Q PRIN1 215Q TERPRI 176Q BUILD.ULTIMATE.TYPE 161Q BUILD.IMMEDIATE.TYPE 136Q TERPRI 131Q PRIN1 120Q PRIN1 112Q TERPRI 43Q PRIN1 35Q TERPRI 27Q BUILD.LOOKUP.TYPE) (625Q MIXED 542Q PAIRLIST 525Q UNDECLARED 517Q MESA.TYPE 474Q fetch 461Q create 425Q MARRAY 405Q ELT 365Q COND 335Q MLIST 316Q LIST 307Q CONS 257Q MLIST 237Q CDR 204Q MLIST 165Q CAR 150Q SETQ 141Q ANY 101Q STRING 71Q REAL 62Q CARDINAL 14Q BOOLEAN) ( 654Q " type unknown." 572Q " type unknown." 453Q " type unknown." 357Q " type unknown." 302Q " type unknown." 230Q " type unknown." 125Q " type unknown." 50Q " type unknown.") BUILD.LOOKUP.TYPE D1 (P 1 TYPE P 0 PAIRITEM I 0 ID) : @ Xdd@g@dgg@ gg@gg(43Q BUILD.ID 6 BUILD.LOOKUP) (67Q INTERFACE 61Q MESA.INTERFACE 54Q MPROC 47Q MESA.FN 36Q MESA.USEDBY 31Q MESA.USEDBY 21Q MESA.TYPE) () BUILD.LOOKUP D1 (P 2 SCOPE P 0 ANSWER I 0 ID F 3 BUILD.CURRENT.SCOPE F 4 BUILD.SCOPE.STACK) 0STYH@JXINIL NIL () BUILD.TYPEATOM D1 (L (0 TYPEEXP)) @dlNIL NIL () BUILD.QUALIFY D1 (P 2 ANSWER P 1 TYPEATOM P 0 TYPE I 1 QUALIFIER I 0 LHS F 3 PARSE.PREFIXOPS F 4 PARSE.TYPEOPS) a0AdS@A T@A Adg@oA gg@hAdgg@hAd@A g@@A (136Q BUILD.QUALIFY.ID 121Q BUILD.QUALIFY.EXPLIST 50Q PACK* 26Q BUILD.QUALIFY.TYPEOP 15Q BUILD.QUALIFY.PREFIXOP) (125Q ^ 101Q CDR 73Q rest 61Q CAR 54Q first 34Q SIZE) ( 44Q ".") BUILD.QUALIFY.PREFIXOP D1 (I 1 QUALIFIER I 0 LHS) Adgdg@ @(20Q BUILD.ARITH.EXP*) (12Q MIN 4 MAX) () BUILD.QUALIFY.TYPEOP D1 (L (1 QUALIFIER 0 LHS)) A@NIL NIL () BUILD.QUALIFY.EXPLIST D1 (P 3 ANSWER P 2 EXPITEMS P 1 TYPEATOM P 0 TYPE I 1 EXPLIST I 0 LHS) @@dlh@ b Xd YAZIdgg@J g@A Idgg@J ngg@J ^@Hi @i oi Ai oi i Ag'J kjg@J  lj@J @J(270Q \APPEND2 254Q LENGTH 246Q \APPEND2 230Q LENGTH 212Q TERPRI 205Q PRIN1 174Q PRIN1 166Q PRIN1 155Q PRIN1 147Q TERPRI 134Q \APPEND2 114Q \APPEND2 73Q BUILD.CALL 55Q \APPEND2 31Q BUILD.TYPEATOM 24Q BUILD.ULTIMATE.TYPE 17Q BUILD.ID) (241Q ELT 221Q ORDERLIST 127Q ELT 122Q MRECORD 107Q NTHCHARCODE 101Q STRING 64Q MPROC 50Q ELT 42Q MARRAY) ( 201Q "?" 162Q " qualified by ") BUILD.QUALIFY.ID D1 (P 2 ANSWER P 1 TYPEATOM P 0 TYPE I 1 QUALIFIER I 0 LHS) 0@ Xd YddggHAhg@hg4i @i oi Ai oi i g@AhxIdg@A gA@A]@hIg4i @i oi Ai oi i g@Ah"HgggHAhg@hA@h(255Q TERPRI 250Q PRIN1 237Q PRIN1 231Q PRIN1 220Q PRIN1 212Q TERPRI 157Q BUILD.ID 127Q TERPRI 122Q PRIN1 111Q PRIN1 103Q PRIN1 72Q PRIN1 64Q TERPRI 13Q BUILD.TYPEATOM 6 BUILD.ULTIMATE.TYPE) (316Q of 306Q fetch 300Q UNDECLARED 274Q MESA.TYPE 261Q NTHCHARCODE 203Q STRING 163Q MPROC 147Q INTERFACE 133Q ELT 55Q MARRAY 42Q of 30Q fetch 21Q MRECORD) ( 244Q "?" 225Q " qualified by " 116Q "?" 77Q " qualified by ") BUILD.ARITH.EXP1 D1 (I 1 EXP1 I 0 ARITHOP) @dggbAh (22Q BUILD.ARITH.EXP*) (12Q 0- 4 -) () BUILD.ARITH.EXP2 D1 (P 0 ANSWER I 2 EXP2 I 1 EXP1 I 0 ARITHOP) @ABh (13Q BUILD.ARITH.EXP*) NIL () BUILD.ARITH.EXP* D1 (P 7 EXP P 2 ANSWER P 1 NEWARITHOP P 0 TYPE I 1 EXPS I 0 ARITHOP) @A X@H YHg(@Ad_d3 MLh^L&NbIAZIgIgJ @dgJ3JJkK@g@gghHggJhJ(116Q BUILD.ARITH.ADD1SUB1 14Q BUILD.COERCE.ARITHOP 6 BUILD.STRONGEST.TYPE.AMONG) (205Q NOT 200Q CARDINAL 167Q >= 164Q <= 155Q # 124Q 0- 110Q IDIFFERENCE 102Q IPLUS 45Q FLOATP 21Q REAL) () BUILD.ARITH.ADD1SUB1 D1 (P 3 ANSWER P 2 EXP2 P 1 EXP1 P 0 FN I 0 EXP) H@@ lj@@X@Y@ZHdgIkd JkI gJkI (105Q BUILD.SUB1 65Q BUILD.ADD1 53Q BUILD.ADD1 6 FLENGTH) (71Q IDIFFERENCE 37Q IPLUS) () BUILD.COERCE.ARITHOP D1 (I 1 TYPE I 0 ARITHOP F 0 BUILD.CARDINAL.ARITHOP.ALIST F 1 BUILD.MIXED.ARITHOP.ALIST F 2 BUILD.REAL.ARITHOP.ALIST) 'Adg@Pg@QAg@R(44Q SHOULDNT) (32Q REAL 17Q MIXED 4 CARDINAL) () BUILD.STRONGEST.TYPE.AMONG D1 (P 2 EXP P 0 TYPE I 0 EXPS) %0gX@YHdgHJ I(36Q BUILD.STRONGEST.TYPE 33Q BUILD.ULTIMATE.TYPE) (23Q REAL 5 CARDINAL) () BUILD.STRONGEST.TYPE D1 (L (1 TYPE2 0 TYPE1) F 0 BUILD.CARDINAL.TYPES) N@PgbAPgb@dgAdgggggAgg@ggNIL (113Q REAL 105Q REAL 100Q REAL 72Q REAL 64Q MIXED 60Q MIXED 52Q REAL 46Q CARDINAL 41Q CARDINAL 30Q CARDINAL 20Q CARDINAL 6 CARDINAL) () BUILD.COERCE D1 (P 1 ANSWER P 0 TYPEEXP I 1 TYPE I 0 EXP) n A Xddg0i i oi Ai oi i @H g@H @ddgdgih@H @(151Q BUILD.COERCE.EXPLIST 113Q BUILD.COERCE.MLIST 76Q BUILD.COERCE.MARRAY 70Q TERPRI 63Q PRIN1 52Q PRIN1 44Q PRIN1 33Q TERPRI 26Q FRESHLINE 6 BUILD.REFINE.TYPE) (134Q ORDERLIST 126Q KEYLIST 104Q MLIST 16Q MARRAY) ( 57Q " array type." 40Q "Coercion to ") BUILD.COERCE.MARRAY D1 (P 2 ITEM P 1 ANSWER P 0 TYPE I 1 MARRAY I 0 EXP) H0AX@d;dgdgih&g0@dZH LKh]K&M@(60Q BUILD.COERCE) (43Q LIST 27Q ORDERLIST 21Q KEYLIST) () BUILD.COERCE.MLIST D1 (P 5 ITEM P 1 ANSWER P 0 TYPE I 1 MLIST I 0 EXP) \ AX@dQdg*g@@d]H KJh\J&L dgg@H @A h(125Q BUILD.COERCE 115Q BUILD.COERCE 70Q \APPEND2 43Q BUILD.COERCE) (106Q CONS 77Q CONS 26Q LIST 17Q LIST) () BUILD.COERCE.EXPLIST D1 (P 17Q ALIGNVALUE P 16Q TYPEITEM P 14Q I P 11Q ALIGNVALUE P 10Q PAIRITEM P 3 ANSWER P 2 SETTINGS P 1 ALIGNMENT P 0 FIELDLIST I 1 MRECORD I 0 EXPLIST) QP@ddgdgih@Adggi Ai oi i @g<0@d\gLh]NM_^OgAJ  ^MA@ X@ HdgEIH2 N_MO_OgOOgOh _NMgXIHk3O_OO@_#OgOgO gOh _O_O_Ok_gAJ (514Q \APPEND2 501Q SHOULDNT 446Q \NCONC2 432Q PACK* 325Q \NCONC2 222Q BUILD.ALIGN 211Q \APPEND2 176Q LAST 170Q \APPEND2 77Q TERPRI 72Q PRIN1 61Q PRIN1 53Q TERPRI) (505Q create 435Q _ 425Q FIELD 415Q TRASH 345Q TYPELIST 314Q _ 301Q TRASH 232Q PAIRLIST 163Q create 126Q _ 106Q KEYLIST 43Q MRECORD 22Q ORDERLIST 14Q KEYLIST) ( 66Q " not a record") BUILD.ALIGN D1 (P 16Q OPTEXP P 15Q TYPEITEM P 7 OPTEXP P 6 PAIRITEM P 0 ANSWER I 1 EXPLIST I 0 FIELDLIST) @Ah@gAAdg@dg=A@RJIK_NNO LMh\JIM&gA@RO_OO_OOO _OOh__O_O_O&_g=@g0@%dNNNA JIh[I&K(403Q SHOULDNT 355Q BUILD.ALIGN.VALUE 320Q SHOULDNT 227Q BUILD.ALIGN.VALUE 116Q BUILD.ALIGN.VALUE) (313Q PAIRLIST 302Q KEYLIST 151Q TYPELIST 46Q PAIRLIST 31Q ORDERLIST 15Q ANY) () BUILD.ALIGN.VALUE D1 (P 0 ANSWER I 2 OPTEXP I 1 DEFAULT I 0 TYPEEXP) ABdggB@ A (35Q COPY 26Q BUILD.COERCE) (20Q TRASH 13Q TRASH) () BUILD.ADD.TO.FILECOMS D1 (P 1 FILECOMS P 0 FILECOMSVAR I 1 TYPE I 0 NAME F 2 BUILD.FILECOMS) , RXd YddAd@h A@hIYHI h(50Q SETTOPVAL 31Q \NCONC2 10Q GETTOPVAL) NIL () BUILD.ADD1 D1 (L (0 EXP)) @3 g@hkNIL (7 ADD1) () BUILD.CALL D1 (I 1 EXPLIST I 0 FN) @dgA (11Q BUILD.ALIGN) (4 MESA.ARGLIST) () BUILD.CHARCODE D1 (P 4 ANSWER P 3 NAME P 2 CHAR P 1 CONTROL P 0 META I 0 CHARCODE) P@djglg@dlgl g@dl g|l gs@dl gglg^@dl gRlgIl@i@lbl @i@l b@ HIgJ HgJ IgJ J[gKh(263Q PACK* 251Q PACK* 236Q PACK* 221Q MKATOM 216Q CHARACTER) (271Q CHARCODE 257Q ^ 245Q # 232Q #^ 154Q DEL 143Q SPACE 127Q ESC 116Q CR 102Q FF 71Q LF 54Q TAB 42Q BS 25Q BELL 13Q NULL) () BUILD.COND D1 (P 2 ANSWER P 1 TAIL P 0 HEAD I 2 EXP3 I 1 EXP2 I 0 EXP1) 30@A XBdiB hYgHI gB(43Q \APPEND2 27Q \APPEND2 24Q BUILD.TAIL 7 BUILD.TAIL) (52Q COND 36Q COND) () BUILD.COPY.OF D1 (I 0 EXP) @ddg (20Q COPY) (10Q SETQ) () BUILD.FETCH D1 (P 1 ANSWER P 0 MRECORD I 2 DATUM I 1 FIELDNAME I 0 RECORDNAME) o @(B Xdgdbg@AhgBhB i oi @i oi Ai oi Bi i ABh(146Q TERPRI 141Q PRIN1 133Q PRIN1 122Q PRIN1 114Q PRIN1 103Q PRIN1 75Q PRIN1 64Q TERPRI 56Q BUILD.REFINE.TYPE 11Q BUILD.ULTIMATE.TYPE) (44Q of 34Q fetch 20Q MRECORD) ( 127Q " " 110Q " " 71Q "Bad fetch ") BUILD.FORCLAUSE.BY D1 (L (2 EXP2 1 EXP1 0 CONTROLID)) g@gAgBhNIL (12Q by 6 _ 2 for) () BUILD.FORCLAUSE.IN D1 (P 3 ANSWER P 2 UBOUND P 1 LBOUND P 0 INTERVAL I 2 RANGE I 1 DIRECTION I 0 CONTROLID) @BXdYHZHdg1dgJ Z#dgI YgI J ZAgg@gIgJgmhg@gIgJh(113Q SHOULDNT 106Q BUILD.SUB1 101Q BUILD.ADD1 65Q BUILD.ADD1 47Q BUILD.SUB1) (164Q to 160Q from 154Q for 142Q by 136Q to 132Q from 126Q for 120Q DECREASING 73Q OO 56Q OC 40Q CO 31Q CC) () BUILD.FORCLAUSE.THROUGH D1 (I 0 RANGE) gh@ (7 BUILD.FORCLAUSE.IN) (2 X) () BUILD.IN D1 (P 4 ANSWER P 3 UPRED P 2 LPRED P 1 EXP2 P 0 INTERVAL I 1 RANGE I 0 EXP) PA bddg$i Ai oi i gAhXddggg[5dggg[$dggg[ggg[@ YgJ@HhKIHhh(204Q BUILD.COPY.OF 177Q SHOULDNT 53Q TERPRI 46Q PRIN1 35Q PRIN1 27Q TERPRI 6 BUILD.REFINE.TYPE) (210Q AND 172Q IGREATERP 166Q ILESSP 161Q OO 153Q ILEQ 147Q IGREATERP 141Q OC 132Q ILESSP 126Q IGEQ 120Q CO 111Q ILEQ 105Q IGEQ 77Q CC 57Q in 17Q MRANGE) ( 42Q " not a range.") BUILD.ISTYPE D1 (P 2 ANSWER P 1 RECORDID P 0 MRECORD I 1 TYPE I 0 EXP) I0A Xdgd+i oi @i oi Ai i AgA@h(73Q TERPRI 66Q PRIN1 60Q PRIN1 47Q PRIN1 41Q PRIN1 30Q TERPRI 6 BUILD.REFINE.TYPE) (100Q type? 15Q MRECORD) ( 54Q " " 35Q "Bad istype ") BUILD.LAMBDA D1 (P 5 ITEM P 1 ANSWER P 0 ARGLIST I 1 BODY I 0 PAIRLIST) 4 @@dhM KJh\J&LXgHA (57Q \APPEND2 54Q BUILD.TAIL 21Q BUILD.LOCALVARID) (47Q LAMBDA) () BUILD.NEW D1 (I 1 INITIALIZATION I 0 TYPEEXP) A@ (4 BUILD.COERCE) NIL () BUILD.OR D1 (I 0 EXPS) @i@g@ (20Q \APPEND2) (14Q OR) () BUILD.PROG D1 (P 10Q PAIRITEM P 2 ANSWER P 1 LAST P 0 VARS I 0 STATEMENTLIST F 11Q BUILD.CURRENT.SCOPE) PW@ ZW0WdhO NMh_M&O XdWJh[hzJ 0W4\lLiK dhO NMh_M&O$IIdgdgihJh gHJ J (336Q BUILD.PROGN 327Q \APPEND2 316Q \APPEND2 311Q BUILD.RETURN 226Q BUILD.LOCALVARID 206Q LAST 112Q \APPEND2 62Q BUILD.LOCALVARID 21Q \APPEND2 16Q BUILD.TAIL 13Q BUILD.PROGN) (322Q PROG 275Q RETURN 267Q GO) () BUILD.PROGN D1 (I 0 EXPS) 1@d%@g0@d XIHZYJ YH(52Q LAST 25Q BUILD.TAIL) (13Q PROGN) () BUILD.REPLACE D1 (P 1 ANSWER P 0 MRECORD I 3 VALUE I 2 DATUM I 1 FIELDNAME I 0 RECORDNAME)  @.B Xdg%dbg@AhgBgChQ i oi @i oi Ai oi Bi oi Ci i ABh(173Q TERPRI 166Q PRIN1 160Q PRIN1 147Q PRIN1 141Q PRIN1 130Q PRIN1 122Q PRIN1 111Q PRIN1 103Q PRIN1 72Q TERPRI 64Q BUILD.REFINE.TYPE 11Q BUILD.ULTIMATE.TYPE) (50Q with 44Q of 34Q replace 20Q MRECORD) ( 154Q " " 135Q " " 116Q " " 77Q "Bad replace ") BUILD.RETURN D1 (P 14Q PAIRITEM P 6 ANSWER P 5 ALIGNMENT P 4 EXPLIST P 3 FIELDLIST P 2 PROCID P 1 FN P 0 SCOPE I 0 OPTARGS F 15Q BUILD.CURRENT.SCOPE F 16Q BUILD.SCOPE.STACK F 17Q BUILD.PREFIX) WW_hXdiHYdg@_OiO@;WI Zg'i oi Ji oi i g[@ 5@ H"d_hO _O Oh_O&_O]dghgM ggM h(303Q \APPEND2 270Q \APPEND2 212Q BUILD.LOCALVARID 160Q BUILD.ALIGN 147Q TERPRI 142Q PRIN1 131Q PRIN1 123Q PRIN1 112Q TERPRI 77Q BUILD.PROCID) (277Q LIST 274Q RETURN 264Q RETURN 254Q RETURN 153Q ANY 103Q MESA.RETURNLIST 36Q DO) ( 136Q "." 117Q "No returnlist for ") BUILD.SELECTQ D1 (P 22Q SCLAUSE P 16Q CCLAUSE P 7 ANSWER P 6 SCLAUSES P 5 CCLAUSES P 4 FN P 3 TYPE P 2 OPTEXP P 1 EXP P 0 ID I 2 OTHERWISE I 1 CLAUSES I 0 CASEHEAD)  @X@Y@ZdHIYddiAB  [d \A:d_h__ h#OM!_OoOiONM ]N ^@M#d_IOK _O Oh_O&_O]@Nd_$K _O Oh_"O&_ O"^dLINBh B_M#dgMiO h gM O(401Q \APPEND2 370Q \APPEND2 362Q \APPEND2 357Q BUILD.TAIL 331Q \APPEND2 262Q BUILD.SELECTQ.SCLAUSE 210Q BUILD.SELECTQ.CCLAUSE 165Q DREVERSE 160Q DREVERSE 55Q BUILD.SELECTQ.FN 50Q BUILD.ULTIMATE.TYPE 44Q BUILD.SELECTTRUEFROM) (375Q COND 350Q COND) ( 131Q (IN type?)) BUILD.SELECTQ.FN D1 (L (0 TYPE)) @gggNIL (14Q SELECTQ 10Q SELCHARQ 3 CHARACTER) () BUILD.SELECTQ.CCLAUSE D1 (P 7 KEY P 3 ANSWER P 2 TESTS P 1 KEYS P 0 EXP2 I 2 TYPE I 1 CCLAUSE I 0 EXP) F@@ XAY@I @Id_@O MLh^L&NZddgJA(41Q BUILD.SELECTQ.TEST 20Q BUILD.SELECTQ.TEST 6 BUILD.COPY.OF) (76Q OR) () BUILD.SELECTQ.TEST D1 (I 1 KEY I 0 EXP) 0Addg@A AgAg@gAhh(22Q BUILD.IN) (45Q QUOTE 41Q FMEMB 32Q type? 10Q IN) () BUILD.SELECTQ.SCLAUSE D1 (P 2 KEY P 1 ANSWER P 0 KEYS I 1 TYPE I 0 SCLAUSE) 10@X0HdZA LKh]K&Mddd@(22Q BUILD.SELECTQ.KEY) NIL () BUILD.SELECTQ.KEY D1 (I 1 TYPE I 0 KEY) FAg>@d8dgg'g@@g @g hh@(72Q BUILD.SELECTQ.KEY 56Q BUILD.SELECTQ.KEY) (67Q CHARACTER 53Q CHARACTER 37Q IN 31Q IN 20Q CHARCODE 3 CHARACTER) () BUILD.SELECTTRUEFROM D1 (P 0 ANSWER I 1 OTHERWISE I 0 CLAUSES) H0@d JIh[I&Kbd"Ag@iA h g@ A(102Q \APPEND2 71Q \APPEND2 63Q \APPEND2 60Q BUILD.TAIL 15Q BUILD.SELECTTRUEFROM.CLAUSE) (76Q COND 52Q COND) () BUILD.SELECTTRUEFROM.CLAUSE D1 (I 0 CLAUSE) @ @(4 BUILD.OR) NIL () BUILD.SETQ D1 (P 1 ANSWER P 0 TYPE I 1 RHS I 0 LHS)  @dgA  XAH b@Hg@A @ g@Ahdgg@@Ahdgg@gAh gg@@Ahoi @i oi Ai @ lj@3 g@@Ahz@@A (311Q BUILD.REPLACE 243Q LENGTH 236Q PRIN1 230Q PRIN1 217Q PRIN1 211Q PRIN1 152Q \APPEND2 53Q BUILD.SETQ.ARRAY 31Q BUILD.COERCE 23Q BUILD.ULTIMATE.TYPE 17Q BUILD.SETQ.ORDERLIST) (264Q SETA 164Q RPLCHARCODE 157Q NTHCHARCODE 143Q with 136Q replace 127Q fetch 106Q SETA 77Q ELT 63Q SETQ 44Q MARRAY 11Q ORDERLIST) ( 224Q " " 205Q "Bad setq ") BUILD.SETQ.ARRAY D1 (P 7 ORDERITEM P 3 I P 1 ANSWER P 0 EXPS I 1 RHS I 0 LHS) { Adg5i oi @i oi Ai i g@AhjBJ LXd _g@KhO MNh]JKkԻN&(142Q BUILD.SETQ 117Q BUILD.PROGN 64Q TERPRI 57Q PRIN1 51Q PRIN1 40Q PRIN1 32Q PRIN1 21Q TERPRI) (127Q ELT 70Q SETQ 11Q ORDERLIST) ( 45Q " " 26Q "Bad setq array ") BUILD.SETQ.ORDERLIST D1 (P 13Q ACCESS P 12Q ID P 4 ANSWER P 3 EXPS P 2 TEMPPOS P 1 TEMP P 0 ORDERITEMS I 1 RHS I 0 ORDERLIST) P@XdAHgAh AYoI ZdIJkm H lOoHR N_MO@_OOIh _OOh__NMO&_HA NO[gIAhK[d _gIh _OOh__N^O&_(265Q BUILD.SETQ 243Q BUILD.PROGN 147Q BUILD.SETQ 65Q LENGTH 60Q SUBATOM 44Q STRPOS 30Q BUILD.SETQ) (256Q POP 226Q SETQ 21Q CAR) ( 76Q (CAR CADR CADDR) 40Q ".") BUILD.SUB1 D1 (L (0 EXP)) @3 g@hkNIL (7 SUB1) () BUILD.TAIL D1 (L (0 EXP)) @dddghNIL (12Q PROGN) () (PRETTYCOMPRINT MESATOLISPCOMS) (RPAQQ MESATOLISPCOMS ((* MESATOLISP -- By Kelly Roach. *) (COMS (* SCAN *) (INITVARS (SCAN.BUFFER ( NCREATE (QUOTE VMEMPAGEP))) (SCAN.BUFFERPTR -1) (SCAN.STRING (CREATE STRINGP BASE _ SCAN.BUFFER)) ( SCAN.CHAR NIL) (SCAN.QDOT NIL) (SCAN.BOTH.RESERVED (QUOTE (! # %( %) * + , - %. .. / : ; < <= = => > >= @ ABS ALL AND ANY APPLY ARRAY BASE BEGIN BROADCAST CODE COMPUTED CONTINUE DECREASING DEFINITIONS DEPENDENT DESCRIPTOR DIRECTORY DO ELSE ENABLE END ENDCASE ENDLOOP ENTRY ERROR EXIT EXITS EXPORTS FINISHED FIRST FOR FORK FRAME FREE FROM GO GOTO IF IMPORTS IN INLINE INTERNAL ISTYPE JOIN LAST LENGTH LOCKS LONG LOOP LOOPHOLE MACHINE MAX MIN MOD MONITOR MONITORED NARROW NEW NILL NOT NOTIFY NULL OF OPEN OR ORD ORDERED OVERLAID PACKED POINTER PORT PRED PRIVATE PROC PROCEDURE PROCESS PROGRAM PUBLIC READONLY RECORD REJECT RELATIVE REPEAT RESTART RESUME RETRY RETURN RETURNS SELECT SEQUENCE SHARES SIGNAL SIZE START STATE STOP SUCC THEN THROUGH TO TRANSFER TRASH TYPE UNCOUNTED UNTIL USING VAL VAR WAIT WHILE WITH ZONE %[ %] ^ _ { %| } ~))) (SCAN.CEDAR.RESERVED (QUOTE (CEDAR CHECKED CONS LIST PAINTED REF SAFE TRUSTED UNCHECKED UNSAFE))) (SCAN.MESA.RESERVED (QUOTE (RESIDENT)))) (FNS SCAN.INIT SCAN.STRING SCAN.TEST SCAN.TESTFILE SCAN.OPENSTREAM SCAN.TOKEN SCAN.NUMBER SCAN.ACCEPT SCAN.APPENDDECIMAL SCAN.APPENDOCTAL SCAN.APPENDHEX SCAN.APPENDTOSCALE SCAN.VALIDFRACTION SCAN.DECIMAL SCAN.OCTAL SCAN.OCTALCHAR SCAN.HEX SCAN.FLOATING SCAN.ESCAPE) (P (SCAN.INIT))) (COMS (* PARSE *) ( INITVARS (PARSE.FILELST NIL) (PARSE.STREAM NIL) (PARSE.FILECOMS NIL) (PARSE.LANGUAGE NIL) ( PARSE.DIRLST NIL) (PARSE.CLASS NIL) (PARSE.ATOM NIL) (PARSE.CLASS2 NIL) (PARSE.ATOM2 NIL) ( PARSE.CASEHEAD.FIRST (QUOTE (WITH SELECT))) (PARSE.DEFHEAD.FIRST (QUOTE (DEFINITIONS))) ( PARSE.DEPENDENT.FIRST (QUOTE (MACHINE))) (PARSE.DOTEST.FIRST (QUOTE (UNTIL WHILE))) ( PARSE.FORCLAUSE.FIRST (QUOTE (FOR THROUGH))) (PARSE.HEAP.FIRST (QUOTE (UNCOUNTED))) ( PARSE.INTERVAL.FIRST (QUOTE (%( %[))) (PARSE.OPTRELATION.FIRST (QUOTE (# < <= = > >= IN NOT ~))) ( PARSE.ORDERED.FIRST (QUOTE (ORDERED))) (PARSE.ORDERLIST.FOLLOW (QUOTE (! ; END %] }))) ( PARSE.PACKED.FIRST (QUOTE (PACKED))) (PARSE.PREFIXOP.FIRST (QUOTE (ABS BASE LENGTH LONG MAX MIN ORD PRED SUCC))) (PARSE.PROGHEAD.FIRST (QUOTE (MONITOR PROGRAM RESIDENT))) (PARSE.QUALIFIER.FIRST (QUOTE ( %. %[ ^))) (PARSE.RANGE.FOLLOW (QUOTE (! %) , .. : ; => AND DO ELSE END ENDCASE ENDLOOP EXITS FINISHED FROM NULL OR REPEAT SELECT THEN TRASH UNTIL WHILE %] }))) (PARSE.TRANSFER.FIRST (QUOTE (BROADCAST ERROR JOIN NOTIFY RESTART RETURN SIGNAL START TRANSFER))) (PARSE.TRANSFERMODE.FIRST (QUOTE (ERROR PORT PROCESS PROGRAM SIGNAL))) (PARSE.TRANSFEROP.FIRST (QUOTE (ERROR FORK JOIN NEW SIGNAL START))) ( PARSE.TYPECONS.FIRST (QUOTE (%( ARRAY BASE DESCRIPTOR ERROR FRAME LONG MACHINE MONITORED ORDERED PACKED POINTER PORT PROC PORCEDURE PROCESS PROGRAM RECORD SIGNAL UNCOUNTED VAR %[ {))) ( PARSE.TYPEOP.FIRST (QUOTE (FIRST LAST NILL))) (PARSE.VARIANTPART.FIRST (QUOTE (PACKED SELECT SEQUENCE) )) (PARSE.CATCHLIST.FOLLOW (QUOTE (END %] }))) (PARSE.CONTROLID.FOLLOW (QUOTE (DECREASING IN _))) ( PARSE.DECLIST.FOLLOW (QUOTE (; END }))) (PARSE.DEFAULTOPT.FOLLOW (QUOTE (, ; END %] }))) ( PARSE.EXITLIST.FOLLOW (QUOTE (END ENDLOOP FINISHED }))) (PARSE.MODULELIST.FOLLOW (QUOTE (IEQP EXPORTS SHARES))) (PARSE.OPTARGS.FOLLOW (QUOTE (; ELSE END ENDCASE ENDLOOP EXITS FINISHED REPEAT %] }))) ( PARSE.OPTEXP.FOLLOW (QUOTE (! , ; END FROM %] }))) (PARSE.SCOPE.FOLLOW (QUOTE (END EXITS }))) ( PARSE.STATEMENTLIST.FOLLOW (QUOTE (END ENDLOOP EXITS REPEAT }))) (PARSE.TYPEEXP.FOLLOW (QUOTE (! , ; = => DECREASING END EXPORTS FROM IMPORTS IN OF SHARES %] _ }))) (PARSE.PREDEFINED.TYPES (QUOTE (ATOM BOOL BOOLEAN CARDINAL CHAR CHARACTER CONDITION INT INTEGER MDSZone MONITORLOCK NAT REAL STRING StringBody UNSPECIFIED WORD))) (PARSE.RELOPS (LIST (QUOTE =) (QUOTE #) (QUOTE <) (QUOTE <=) (QUOTE >) (QUOTE >=))) (PARSE.ADDOPS (LIST (QUOTE +) (QUOTE -))) (PARSE.MULTOPS (LIST (QUOTE *) (QUOTE /) (QUOTE MOD))) (PARSE.TRANSFEROPS (QUOTE (SIGNAL ERROR START JOIN NEW FORK))) (PARSE.PREFIXOPS (QUOTE (LONG ABS PRED SUCC ORD MIN MAX BASE LENGTH))) (PARSE.TYPEOPS (QUOTE (FIRST LAST NILL))) (PARSE.NOTS (QUOTE (~ NOT)))) (RECORDS PARSERSTATE MINTERVAL MRANGE MRELATIVE MPAINTED MENUMERATED MRECORD MVAR MARRAY MDESCRIPTOR MFRAME MREF MLIST PAIRITEM DEFAULT TYPELIST TYPEITEM MPOINTER CASEHEAD BINDITEM KEYITEM FIELDLIST PAIRLIST ORDERLIST KEYLIST EXPLIST) (FNS PARSE.MESA PARSE.CEDAR PARSE.FILE PARSE.GET.STATE PARSE.SET.STATE PARSE.BIN PARSE.VARID PARSE.SMURF PARSE.THISIS.MESA PARSE.THISIS.CEDAR PARSE.MODULE PARSE.INCLUDEITEM PARSE.INCLUDECHECK PARSE.SEADIRT PARSE.PROGHEAD PARSE.RESIDENT PARSE.SAFE PARSE.DEFHEAD PARSE.TILDE PARSE.DEFINITIONS PARSE.DEFBODY PARSE.LOCKS PARSE.LAMBDA PARSE.MODULEITEM PARSE.DECLARATION PARSE.PUBLIC PARSE.ENTRY PARSE.IDLIST PARSE.IDENTLIST PARSE.POSITION PARSE.OPTBITS PARSE.INTERVAL PARSE.TYPEEXP.HERE PARSE.TYPEEXP PARSE.RANGE PARSE.TYPEAPPL PARSE.TYPEAPPL.CONT PARSE.TYPEID PARSE.TYPEID.CONT PARSE.TYPECONS PARSE.TYPECONS1 PARSE.TYPECONS.CONT PARSE.TYPECONS.RANGE PARSE.TYPECONS.RELATIVE PARSE.TYPECONS.PAINTED PARSE.TYPECONS2 PARSE.TYPECONS.INTERVAL PARSE.TYPECONS.DEPENDENT PARSE.TYPECONS.ENUMERATED PARSE.TYPECONS.RECORD PARSE.TYPECONS.ORDERED PARSE.TYPECONS.VAR PARSE.TYPECONS.PACKED PARSE.TYPECONS.DESCRIPTOR PARSE.TYPECONS.SAFE PARSE.TYPECONS.HEAP PARSE.TYPECONS.LONG PARSE.TYPECONS.FRAME PARSE.TYPECONS.REF PARSE.TYPECONS.LIST PARSE.IDENT PARSE.ELEMENT PARSE.MONITORED PARSE.DEPENDENT PARSE.RECLIST PARSE.VARIANTPAIR PARSE.PAIRITEM PARSE.DEFAULTOPT PARSE.VARIANTPART PARSE.VCASEHEAD PARSE.TAGTYPE PARSE.VARIANTITEM PARSE.TYPELIST PARSE.TYPEITEM PARSE.POINTERTYPE PARSE.TRANSFERMODE PARSE.INITIALIZATION PARSE.INITVALUE PARSE.CHECKED PARSE.CODELIST PARSE.STATEMENT PARSE.STATEMENT1 PARSE.STATEMENT2 PARSE.STATEMENT.CASEHEAD PARSE.STATEMENT.FORCLAUSE PARSE.STATEMENT.RETURN PARSE.STATEMENT.TRANSFER PARSE.STATEMENT.LBRACKET PARSE.STATEMENT.IF PARSE.BLOCK PARSE.SCOPE PARSE.BINDITEM PARSE.EXITS PARSE.CASESTMTITEM PARSE.CASEEXPITEM PARSE.EXITITEM PARSE.CASETEST PARSE.CONTROLID PARSE.FORCLAUSE PARSE.DIRECTION PARSE.DOTEST PARSE.DOEXIT PARSE.ENABLES PARSE.CATCHLIST PARSE.CATCHCASE PARSE.OPTARGS PARSE.TRANSFER PARSE.KEYITEM PARSE.OPTEXP PARSE.EXP PARSE.EXP1 PARSE.EXP2 PARSE.EXP.TRANSFEROP PARSE.EXP.IF PARSE.EXP.CASEHEAD PARSE.EXP.LHS PARSE.EXP.LBRACKET PARSE.EXP.ERROR PARSE.EXP.DISJUNCT PARSE.DISJUNCT PARSE.CONJUNCT PARSE.NEGATION PARSE.RELATION PARSE.SUM PARSE.PRODUCT PARSE.OPTRELATION PARSE.RELATIONTAIL PARSE.RELOP PARSE.ADDOP PARSE.MULTOP PARSE.FACTOR PARSE.PRIMARY PARSE.ATOM PARSE.PRIMARY.NIL PARSE.PRIMARY.LBRACKET PARSE.PRIMARY.PREFIXOP PARSE.PRIMARY.VAL PARSE.PRIMARY.ALL PARSE.PRIMARY.NEW PARSE.PRIMARY.TYPEOP PARSE.PRIMARY.SIZE PARSE.PRIMARY.ISTYPE PARSE.PRIMARY.AT PARSE.PRIMARY.DESCRIPTOR PARSE.PRIMARY.CONS PARSE.PRIMARY.LIST PARSE.PRIMARY.LHS PARSE.PRIMARY.LHS.NEW PARSE.PRIMARY.LHS.CONS PARSE.PRIMARY.LHS.LIST PARSE.QUALIFIER PARSE.LHS PARSE.QUALIFIER.HERE PARSE.OPTCATCH PARSE.TRANSFEROP PARSE.PREFIXOP PARSE.TYPEOP PARSE.DESCLIST PARSE.DIRECTORY PARSE.IMPORTS PARSE.POINTERPREFIX PARSE.EXPORTS PARSE.FIELDLIST PARSE.USING PARSE.CATCHHEAD PARSE.DECLIST PARSE.PAIRLIST PARSE.VARIANTLIST PARSE.ORDERLIST PARSE.LHSLIST PARSE.INCLUDELIST PARSE.MODULELIST PARSE.ELEMENTLIST PARSE.BINDLIST PARSE.STATEMENTLIST PARSE.CASESTMTLIST PARSE.CASELABEL PARSE.EXITLIST PARSE.KEYLIST PARSE.CASEEXPLIST PARSE.EXPLIST PARSE.OPEN PARSE.CLASS PARSE.CASEHEAD PARSE.READONLY PARSE.ORDERED PARSE.BASE PARSE.PACKED PARSE.HEAP PARSE.INLINE PARSE.ARGUMENTS PARSE.INTERFACE PARSE.SHARES PARSE.DEFAULT PARSE.OPTSIZE PARSE.BOUNDS PARSE.LENGTH PARSE.INDEXTYPE PARSE.ELSEPART PARSE.OTHERPART PARSE.FREE PARSE.CATCHANY PARSE.NOT PARSE.NEW PARSE.OPTTYPE PARSE.ARGLIST PARSE.RETURNLIST)) (COMS (* BUILD *) (INITVARS (BUILD.NEXT.SCOPE NIL) ( BUILD.CURRENT.SCOPE NIL) (BUILD.SCOPE.STACK NIL) (BUILD.PREFIX NIL) (BUILD.FILECOMS NIL) ( BUILD.BOOLEAN.FNS (QUOTE (AND OR NOT type? IGREATERP ILESSP IGEQ ILEQ IEQP ZEROP MINUSP EVENP ODDP FGREATERP FLESSP FEQP GREATERP LESSP GEQ LEQ))) (BUILD.CARDINAL.FNS (QUOTE (ADD1 CHARCODE FIX GCD IDIFFERENCE IMAX IMIN IMINUS IMOD IPLUS IQUOTIENT IREMAINDER ITIMES LOGAND LOGNOT LOGOR LOGXOR NTHCHARCODE SUB1))) (BUILD.MIXED.FNS (QUOTE (ABS DIFFERENCE EXPT MAX MIN MINUS MOD PLUS QUOTIENT REMAINDER TIMES))) (BUILD.REAL.FNS (QUOTE (ANTILOG ARCCOS ARCSIN ARCTAN ARCTAN2 COS FDIFFERENCE FLOAT FMAX FMIN FMINUS FMOD FPLUS FQUOTIENT FREMAINDER FTIMES LOG SIN SQRT TAN))) (BUILD.QUALIFY.WORDS ( QUOTE (FREE NEW SIZE))) (BUILD.CARDINAL.ARITHOP.ALIST (LIST (CONS (QUOTE =) (QUOTE IEQP)) (CONS (QUOTE #) (QUOTE IEQP)) (CONS (QUOTE <) (QUOTE ILESSP)) (CONS (QUOTE <=) (QUOTE ILEQ)) (CONS (QUOTE >) ( QUOTE IGREATERP)) (CONS (QUOTE >=) (QUOTE IGEQ)) (CONS (QUOTE +) (QUOTE IPLUS)) (CONS (QUOTE -) (QUOTE IDIFFERENCE)) (CONS (QUOTE *) (QUOTE ITIMES)) (CONS (QUOTE /) (QUOTE IQUOTIENT)) (CONS (QUOTE 0-) ( QUOTE IMINUS)) (CONS (QUOTE MAX) (QUOTE IMAX)) (CONS (QUOTE MIN) (QUOTE IMIN)) (CONS (QUOTE MOD) ( QUOTE IMOD)))) (BUILD.MIXED.ARITHOP.ALIST (LIST (CONS (QUOTE =) (QUOTE EQP)) (CONS (QUOTE #) (QUOTE EQP)) (CONS (QUOTE <) (QUOTE LESSP)) (CONS (QUOTE <=) (QUOTE GREATERP)) (CONS (QUOTE >) (QUOTE GREATERP)) (CONS (QUOTE >=) (QUOTE LESSP)) (CONS (QUOTE +) (QUOTE PLUS)) (CONS (QUOTE -) (QUOTE DIFFERENCE)) (CONS (QUOTE *) (QUOTE TIMES)) (CONS (QUOTE /) (QUOTE QUOTIENT)) (CONS (QUOTE 0-) (QUOTE MINUS)) (CONS (QUOTE MAX) (QUOTE MAX)) (CONS (QUOTE MIN) (QUOTE MIN)) (CONS (QUOTE MOD) (QUOTE IMOD))) ) (BUILD.REAL.ARITHOP.ALIST (LIST (CONS (QUOTE =) (QUOTE FEQP)) (CONS (QUOTE #) (QUOTE FEQP)) (CONS ( QUOTE <) (QUOTE FLESSP)) (CONS (QUOTE <=) (QUOTE FGREATERP)) (CONS (QUOTE >) (QUOTE FGREATERP)) (CONS (QUOTE >=) (QUOTE FLESSP)) (CONS (QUOTE +) (QUOTE FPLUS)) (CONS (QUOTE -) (QUOTE FDIFFERENCE)) (CONS ( QUOTE *) (QUOTE FTIMES)) (CONS (QUOTE /) (QUOTE FQUOTIENT)) (CONS (QUOTE 0-) (QUOTE FMINUS)) (CONS ( QUOTE MAX) (QUOTE FMAX)) (CONS (QUOTE MIN) (QUOTE FMIN)) (CONS (QUOTE MOD) (QUOTE IMOD)))) ( BUILD.CARDINAL.TYPES (QUOTE (CARDINAL CHAR CHARACTER INT INTEGER NAT WORD)))) (RECORDS SCOPE) (FNS BUILD.INIT BUILD.PUSH.SCOPE BUILD.POP.SCOPE BUILD.GC.SCOPE BUILD.STORE.EXPORTS BUILD.STORE.IDENTLIST BUILD.STORE.INTERFACES BUILD.STORE.INTERFACE BUILD.STORE.OPEN BUILD.STORE.USING BUILD.INITIALIZATION BUILD.INITIALIZE.VARS BUILD.INITIALIZE.VAR BUILD.INITIALIZE.FN BUILD.INITIALIZE.RECORD BUILD.RECORD BUILD.TYPE BUILD.STORE.ARGLIST BUILD.STORE.RETURNLIST BUILD.STORE.PAIRLIST BUILD.STORE.PAIRITEM BUILD.STORE.VARLIST BUILD.ID BUILD.FIELDID BUILD.PROCID BUILD.RECORDID BUILD.TYPEID BUILD.VARID BUILD.LOCALVARID BUILD.GLOBALVARID BUILD.ULTIMATE.TYPE BUILD.REFINE.TYPE BUILD.IMMEDIATE.TYPE BUILD.LOOKUP.TYPE BUILD.LOOKUP BUILD.TYPEATOM BUILD.QUALIFY BUILD.QUALIFY.PREFIXOP BUILD.QUALIFY.TYPEOP BUILD.QUALIFY.EXPLIST BUILD.QUALIFY.ID BUILD.ARITH.EXP1 BUILD.ARITH.EXP2 BUILD.ARITH.EXP* BUILD.ARITH.ADD1SUB1 BUILD.COERCE.ARITHOP BUILD.STRONGEST.TYPE.AMONG BUILD.STRONGEST.TYPE BUILD.COERCE BUILD.COERCE.MARRAY BUILD.COERCE.MLIST BUILD.COERCE.EXPLIST BUILD.ALIGN BUILD.ALIGN.VALUE BUILD.ADD.TO.FILECOMS BUILD.ADD1 BUILD.CALL BUILD.CHARCODE BUILD.COND BUILD.COPY.OF BUILD.FETCH BUILD.FORCLAUSE.BY BUILD.FORCLAUSE.IN BUILD.FORCLAUSE.THROUGH BUILD.IN BUILD.ISTYPE BUILD.LAMBDA BUILD.NEW BUILD.OR BUILD.PROG BUILD.PROGN BUILD.REPLACE BUILD.RETURN BUILD.SELECTQ BUILD.SELECTQ.FN BUILD.SELECTQ.CCLAUSE BUILD.SELECTQ.TEST BUILD.SELECTQ.SCLAUSE BUILD.SELECTQ.KEY BUILD.SELECTTRUEFROM BUILD.SELECTTRUEFROM.CLAUSE BUILD.SETQ BUILD.SETQ.ARRAY BUILD.SETQ.ORDERLIST BUILD.SUB1 BUILD.TAIL) (P (BUILD.INIT))))) (RPAQ? SCAN.BUFFER (NCREATE (QUOTE VMEMPAGEP))) (RPAQ? SCAN.BUFFERPTR -1) (RPAQ? SCAN.STRING (CREATE STRINGP BASE _ SCAN.BUFFER)) (RPAQ? SCAN.CHAR NIL) (RPAQ? SCAN.QDOT NIL) (RPAQ? SCAN.BOTH.RESERVED (QUOTE (! # %( %) * + , - %. .. / : ; < <= = => > >= @ ABS ALL AND ANY APPLY ARRAY BASE BEGIN BROADCAST CODE COMPUTED CONTINUE DECREASING DEFINITIONS DEPENDENT DESCRIPTOR DIRECTORY DO ELSE ENABLE END ENDCASE ENDLOOP ENTRY ERROR EXIT EXITS EXPORTS FINISHED FIRST FOR FORK FRAME FREE FROM GO GOTO IF IMPORTS IN INLINE INTERNAL ISTYPE JOIN LAST LENGTH LOCKS LONG LOOP LOOPHOLE MACHINE MAX MIN MOD MONITOR MONITORED NARROW NEW NILL NOT NOTIFY NULL OF OPEN OR ORD ORDERED OVERLAID PACKED POINTER PORT PRED PRIVATE PROC PROCEDURE PROCESS PROGRAM PUBLIC READONLY RECORD REJECT RELATIVE REPEAT RESTART RESUME RETRY RETURN RETURNS SELECT SEQUENCE SHARES SIGNAL SIZE START STATE STOP SUCC THEN THROUGH TO TRANSFER TRASH TYPE UNCOUNTED UNTIL USING VAL VAR WAIT WHILE WITH ZONE %[ %] ^ _ { %| } ~))) (RPAQ? SCAN.CEDAR.RESERVED (QUOTE (CEDAR CHECKED CONS LIST PAINTED REF SAFE TRUSTED UNCHECKED UNSAFE)) ) (RPAQ? SCAN.MESA.RESERVED (QUOTE (RESIDENT))) (SCAN.INIT) (RPAQ? PARSE.FILELST NIL) (RPAQ? PARSE.STREAM NIL) (RPAQ? PARSE.FILECOMS NIL) (RPAQ? PARSE.LANGUAGE NIL) (RPAQ? PARSE.DIRLST NIL) (RPAQ? PARSE.CLASS NIL) (RPAQ? PARSE.ATOM NIL) (RPAQ? PARSE.CLASS2 NIL) (RPAQ? PARSE.ATOM2 NIL) (RPAQ? PARSE.CASEHEAD.FIRST (QUOTE (WITH SELECT))) (RPAQ? PARSE.DEFHEAD.FIRST (QUOTE (DEFINITIONS))) (RPAQ? PARSE.DEPENDENT.FIRST (QUOTE (MACHINE))) (RPAQ? PARSE.DOTEST.FIRST (QUOTE (UNTIL WHILE))) (RPAQ? PARSE.FORCLAUSE.FIRST (QUOTE (FOR THROUGH))) (RPAQ? PARSE.HEAP.FIRST (QUOTE (UNCOUNTED))) (RPAQ? PARSE.INTERVAL.FIRST (QUOTE (%( %[))) (RPAQ? PARSE.OPTRELATION.FIRST (QUOTE (# < <= = > >= IN NOT ~))) (RPAQ? PARSE.ORDERED.FIRST (QUOTE (ORDERED))) (RPAQ? PARSE.ORDERLIST.FOLLOW (QUOTE (! ; END %] }))) (RPAQ? PARSE.PACKED.FIRST (QUOTE (PACKED))) (RPAQ? PARSE.PREFIXOP.FIRST (QUOTE (ABS BASE LENGTH LONG MAX MIN ORD PRED SUCC))) (RPAQ? PARSE.PROGHEAD.FIRST (QUOTE (MONITOR PROGRAM RESIDENT))) (RPAQ? PARSE.QUALIFIER.FIRST (QUOTE (%. %[ ^))) (RPAQ? PARSE.RANGE.FOLLOW (QUOTE (! %) , .. : ; => AND DO ELSE END ENDCASE ENDLOOP EXITS FINISHED FROM NULL OR REPEAT SELECT THEN TRASH UNTIL WHILE %] }))) (RPAQ? PARSE.TRANSFER.FIRST (QUOTE (BROADCAST ERROR JOIN NOTIFY RESTART RETURN SIGNAL START TRANSFER)) ) (RPAQ? PARSE.TRANSFERMODE.FIRST (QUOTE (ERROR PORT PROCESS PROGRAM SIGNAL))) (RPAQ? PARSE.TRANSFEROP.FIRST (QUOTE (ERROR FORK JOIN NEW SIGNAL START))) (RPAQ? PARSE.TYPECONS.FIRST (QUOTE (%( ARRAY BASE DESCRIPTOR ERROR FRAME LONG MACHINE MONITORED ORDERED PACKED POINTER PORT PROC PORCEDURE PROCESS PROGRAM RECORD SIGNAL UNCOUNTED VAR %[ {))) (RPAQ? PARSE.TYPEOP.FIRST (QUOTE (FIRST LAST NILL))) (RPAQ? PARSE.VARIANTPART.FIRST (QUOTE (PACKED SELECT SEQUENCE))) (RPAQ? PARSE.CATCHLIST.FOLLOW (QUOTE (END %] }))) (RPAQ? PARSE.CONTROLID.FOLLOW (QUOTE (DECREASING IN _))) (RPAQ? PARSE.DECLIST.FOLLOW (QUOTE (; END }))) (RPAQ? PARSE.DEFAULTOPT.FOLLOW (QUOTE (, ; END %] }))) (RPAQ? PARSE.EXITLIST.FOLLOW (QUOTE (END ENDLOOP FINISHED }))) (RPAQ? PARSE.MODULELIST.FOLLOW (QUOTE (IEQP EXPORTS SHARES))) (RPAQ? PARSE.OPTARGS.FOLLOW (QUOTE (; ELSE END ENDCASE ENDLOOP EXITS FINISHED REPEAT %] }))) (RPAQ? PARSE.OPTEXP.FOLLOW (QUOTE (! , ; END FROM %] }))) (RPAQ? PARSE.SCOPE.FOLLOW (QUOTE (END EXITS }))) (RPAQ? PARSE.STATEMENTLIST.FOLLOW (QUOTE (END ENDLOOP EXITS REPEAT }))) (RPAQ? PARSE.TYPEEXP.FOLLOW (QUOTE (! , ; = => DECREASING END EXPORTS FROM IMPORTS IN OF SHARES %] _ } ))) (RPAQ? PARSE.PREDEFINED.TYPES (QUOTE (ATOM BOOL BOOLEAN CARDINAL CHAR CHARACTER CONDITION INT INTEGER MDSZone MONITORLOCK NAT REAL STRING StringBody UNSPECIFIED WORD))) (RPAQ? PARSE.RELOPS (LIST (QUOTE =) (QUOTE #) (QUOTE <) (QUOTE <=) (QUOTE >) (QUOTE >=))) (RPAQ? PARSE.ADDOPS (LIST (QUOTE +) (QUOTE -))) (RPAQ? PARSE.MULTOPS (LIST (QUOTE *) (QUOTE /) (QUOTE MOD))) (RPAQ? PARSE.TRANSFEROPS (QUOTE (SIGNAL ERROR START JOIN NEW FORK))) (RPAQ? PARSE.PREFIXOPS (QUOTE (LONG ABS PRED SUCC ORD MIN MAX BASE LENGTH))) (RPAQ? PARSE.TYPEOPS (QUOTE (FIRST LAST NILL))) (RPAQ? PARSE.NOTS (QUOTE (~ NOT))) (TYPERECORD PARSERSTATE (STREAM FILEPTR CHAR QDOT CLASS ATOM CLASS2 ATOM2 PREFIX NEXTSCOPE CURRENTSCOPE SCOPESTACK FILECOMS)) (TYPERECORD MINTERVAL (KIND . BOUNDS) (ACCESSFNS ((LBOUND (CAR (fetch (MINTERVAL BOUNDS) of DATUM))) ( UBOUND (CADR (fetch (MINTERVAL BOUNDS) of DATUM)))))) (TYPERECORD MRANGE (TYPE INTERVAL)) (TYPERECORD MRELATIVE (TYPEID TYPE)) (TYPERECORD MPAINTED (TYPEID TYPE)) (TYPERECORD MENUMERATED ITEMS) (TYPERECORD MRECORD (RECORDID . FIELDLIST)) (TYPERECORD MVAR TYPE) (TYPERECORD MARRAY (INDEXTYPE TYPE)) (TYPERECORD MDESCRIPTOR TYPE) (TYPERECORD MFRAME ID) (TYPERECORD MREF TYPE) (TYPERECORD MLIST TYPE) (RECORD PAIRITEM (ID TYPEEXP DEFAULT)) (RECORD DEFAULT (EXP TRASH)) (TYPERECORD TYPELIST ITEMS) (RECORD TYPEITEM (TYPEEXP DEFAULT)) (TYPERECORD MPOINTER TYPE) (TYPERECORD CASEHEAD (ID EXP OPTEXP)) (TYPERECORD BINDITEM (ID EXP)) (RECORD KEYITEM (ID OPTEXP)) (RECORD FIELDLIST (TYPE . ITEMS) (TYPE? (AND (LISTP DATUM) (FMEMB (CAR DATUM) (QUOTE (PAIRLIST TYPELIST)))))) (TYPERECORD PAIRLIST ITEMS) (TYPERECORD ORDERLIST ITEMS) (TYPERECORD KEYLIST ITEMS) (RECORD EXPLIST (TYPE . ITEMS) (TYPE? (AND (LISTP DATUM) (FMEMB (CAR DATUM) (QUOTE (KEYLIST ORDERLIST) ))))) (RPAQ? BUILD.NEXT.SCOPE NIL) (RPAQ? BUILD.CURRENT.SCOPE NIL) (RPAQ? BUILD.SCOPE.STACK NIL) (RPAQ? BUILD.PREFIX NIL) (RPAQ? BUILD.FILECOMS NIL) (RPAQ? BUILD.BOOLEAN.FNS (QUOTE (AND OR NOT type? IGREATERP ILESSP IGEQ ILEQ IEQP ZEROP MINUSP EVENP ODDP FGREATERP FLESSP FEQP GREATERP LESSP GEQ LEQ))) (RPAQ? BUILD.CARDINAL.FNS (QUOTE (ADD1 CHARCODE FIX GCD IDIFFERENCE IMAX IMIN IMINUS IMOD IPLUS IQUOTIENT IREMAINDER ITIMES LOGAND LOGNOT LOGOR LOGXOR NTHCHARCODE SUB1))) (RPAQ? BUILD.MIXED.FNS (QUOTE (ABS DIFFERENCE EXPT MAX MIN MINUS MOD PLUS QUOTIENT REMAINDER TIMES))) (RPAQ? BUILD.REAL.FNS (QUOTE (ANTILOG ARCCOS ARCSIN ARCTAN ARCTAN2 COS FDIFFERENCE FLOAT FMAX FMIN FMINUS FMOD FPLUS FQUOTIENT FREMAINDER FTIMES LOG SIN SQRT TAN))) (RPAQ? BUILD.QUALIFY.WORDS (QUOTE (FREE NEW SIZE))) (RPAQ? BUILD.CARDINAL.ARITHOP.ALIST (LIST (CONS (QUOTE =) (QUOTE IEQP)) (CONS (QUOTE #) (QUOTE IEQP)) (CONS (QUOTE <) (QUOTE ILESSP)) (CONS (QUOTE <=) (QUOTE ILEQ)) (CONS (QUOTE >) (QUOTE IGREATERP)) ( CONS (QUOTE >=) (QUOTE IGEQ)) (CONS (QUOTE +) (QUOTE IPLUS)) (CONS (QUOTE -) (QUOTE IDIFFERENCE)) ( CONS (QUOTE *) (QUOTE ITIMES)) (CONS (QUOTE /) (QUOTE IQUOTIENT)) (CONS (QUOTE 0-) (QUOTE IMINUS)) ( CONS (QUOTE MAX) (QUOTE IMAX)) (CONS (QUOTE MIN) (QUOTE IMIN)) (CONS (QUOTE MOD) (QUOTE IMOD)))) (RPAQ? BUILD.MIXED.ARITHOP.ALIST (LIST (CONS (QUOTE =) (QUOTE EQP)) (CONS (QUOTE #) (QUOTE EQP)) (CONS (QUOTE <) (QUOTE LESSP)) (CONS (QUOTE <=) (QUOTE GREATERP)) (CONS (QUOTE >) (QUOTE GREATERP)) (CONS ( QUOTE >=) (QUOTE LESSP)) (CONS (QUOTE +) (QUOTE PLUS)) (CONS (QUOTE -) (QUOTE DIFFERENCE)) (CONS ( QUOTE *) (QUOTE TIMES)) (CONS (QUOTE /) (QUOTE QUOTIENT)) (CONS (QUOTE 0-) (QUOTE MINUS)) (CONS (QUOTE MAX) (QUOTE MAX)) (CONS (QUOTE MIN) (QUOTE MIN)) (CONS (QUOTE MOD) (QUOTE IMOD)))) (RPAQ? BUILD.REAL.ARITHOP.ALIST (LIST (CONS (QUOTE =) (QUOTE FEQP)) (CONS (QUOTE #) (QUOTE FEQP)) ( CONS (QUOTE <) (QUOTE FLESSP)) (CONS (QUOTE <=) (QUOTE FGREATERP)) (CONS (QUOTE >) (QUOTE FGREATERP)) (CONS (QUOTE >=) (QUOTE FLESSP)) (CONS (QUOTE +) (QUOTE FPLUS)) (CONS (QUOTE -) (QUOTE FDIFFERENCE)) ( CONS (QUOTE *) (QUOTE FTIMES)) (CONS (QUOTE /) (QUOTE FQUOTIENT)) (CONS (QUOTE 0-) (QUOTE FMINUS)) ( CONS (QUOTE MAX) (QUOTE FMAX)) (CONS (QUOTE MIN) (QUOTE FMIN)) (CONS (QUOTE MOD) (QUOTE IMOD)))) (RPAQ? BUILD.CARDINAL.TYPES (QUOTE (CARDINAL CHAR CHARACTER INT INTEGER NAT WORD))) (RECORD SCOPE (ID SYMBOLTABLE INITLIST ARGLIST VARLIST RETURNLIST RETURNS OPEN) (ACCESSFNS (( RETURNVARS (FOR PAIRITEM IN (fetch (PAIRLIST ITEMS) of (fetch (SCOPE RETURNLIST) of DATUM)) collect ( BUILD.LOCALVARID NIL (fetch (PAIRITEM ID) of PAIRITEM))))))) (BUILD.INIT) (PUTPROPS MESATOLISP COPYRIGHT ("Xerox Corporation" 1985)) NIL