(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Apr-87 18:20:50" ("compiled on " {ERIS}LYRIC>MESATOLISP.;1) "31-Mar-87 21:33:35" brecompiled ALL in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 6-Apr-87 16:10:36" {ERIS}LYRIC>MESATOLISP.;1 267542 changes to%: (VARS MESATOLISPCOMS) (FNS SCAN.TOKEN SCAN.TEST SCAN.OPENSTREAM SCAN.NUMBER SCAN.ACCEPT SCAN.ESCAPE SCAN.FLOATING SCAN.HEX SCAN.DECIMAL SCAN.OCTAL SCAN.OCTALCHAR) previous date%: "25-Nov-85 17:49:39" {ERIS}KOTO>LISPUSERS>MESATOLISP.;1) SCAN.INIT :D4 (P 0 ATOM F 1 SCAN.BOTH.RESERVED F 2 SCAN.CEDAR.RESERVED F 3 SCAN.MESA.RESERVED) HQdHgg RdHgg SdHgg h(63 PUTPROP 40 PUTPROP 17 PUTPROP) (60 MESA 57 SCAN.RESERVED 37 CEDAR 34 SCAN.RESERVED 14 BOTH 11 SCAN.RESERVED) () SCAN.TEST :D4 (P 1 TOKEN P 0 STREAM I 0 STRING F 2 SCAN.CHAR F 3 SCAN.QDOT)  @ Xd chcH YH I(25 CLOSEF 20 SCAN.TOKEN 11 CL:READ-CHAR 6 OPENSTRINGSTREAM) NIL () SCAN.TESTFILE :D4 (P 0 STREAM I 0 FILE F 1 TOKEN) "@ XH ci QgH h(30 CLOSEF 17 PRINT 11 SCAN.TOKEN 6 SCAN.OPENSTREAM) (23 EOF) () SCAN.OPENSTREAM :D4 (P 1 TOKEN P 0 STREAM I 0 FILE F 2 SCAN.CHAR F 3 SCAN.QDOT)  @g Xdj H chcH(19 CL:READ-CHAR 15 SETFILEPTR 9 OPENSTREAM) (6 INPUT) () SCAN.NUMBER :D4 (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 9 SCAN.CHAR F 10 SCAN.STRING F 11 SCAN.QDOT) 8 j[d\gXWo:PWo:GWo:>Wo:5Wo:,Wo:#Wo:Wo:Wo:Wo:@ Wo:Wo:8LlKkػ@ Kkj}Wo:Wo:jib@ ^Wo:.Wo:%Wo:Wo:Wo:Wo:LkWla Kkػ@ Wo:.Wo:%Wo:Wo:Wo:Wo:LkWlA Kkػ@ Wo:Wo:LlKkػ@ Wo:KjjA@ co:icoW AgW (iboW RLl_j#OW _OHMJh KdjjW kjLdlW lgW LdlW lgW (564 SCAN.FLOATING 548 SCAN.DECIMAL 534 SCAN.OCTALCHAR 519 SCAN.OCTAL 499 SCAN.DECIMAL 484 \FZEROP 464 SCAN.HEX 439 CL:VECTOR-PUSH-EXTEND 424 SCAN.FLOATING 412 CL:VECTOR-PUSH-EXTEND 390 CL:READ-CHAR 363 SCAN.ACCEPT 329 SCAN.ACCEPT 319 LLSH 252 SCAN.ACCEPT 242 LLSH 171 SCAN.ACCEPT 134 SCAN.ACCEPT 101 SCAN.ACCEPT) (558 FLNUM 528 CHAR 418 FLNUM 235 CHARACTER 9 LNUM) ( 434 #\. 407 #\Null 396 #\. 373 #\. 347 #\H 339 #\h 306 #\F 298 #\E 289 #\D 280 #\C 271 #\B 262 #\A 225 #\f 217 #\e 208 #\d 199 #\c 190 #\b 181 #\a 158 #\- 150 #\+ 118 #\E 110 #\e 95 #\9 87 #\8 79 #\7 70 #\6 61 #\5 52 #\4 43 #\3 34 #\2 25 #\1 16 #\0) SCAN.ACCEPT :D4 (I 0 STREAM F 0 SCAN.CHAR F 1 SCAN.STRING) PQ @ c(8 CL:READ-CHAR 4 CL:VECTOR-PUSH-EXTEND) NIL () SCAN.APPENDDECIMAL :D4 (L (1 DIGIT 0 V)) /@oXlYAl0ZH@@HjdIh[@l JdKhNIL NIL ( 6 429496729) SCAN.APPENDOCTAL :D4 (L (1 DIGIT 0 V)) 0oXAl0Y@HhZ@lIdJhNIL NIL ( 6 536870911) SCAN.APPENDHEX :D4 (L (1 DIGIT 0 V)) .0oXl0AAdl9l0Al7ٹ@HhZ@lIdJhNIL NIL ( 6 268435455) SCAN.APPENDTOSCALE :D4 (L (1 DIGIT 0 V)) .@nXlYAl0ZH@@HjdIh[@l JdKhNIL NIL () SCAN.VALIDFRACTION :D4 (L (1 DIGIT 0 V)) " oXlYAl0H@@HjdIhNIL NIL ( 6 214748364) SCAN.DECIMAL :D4 (P 9 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\@J [dl0dl9ILK ]MJkغldjKlDjQjJkغ@J [l0Kl9INK ]MNk OOLl0 ]MOk_@J _jO O hLdIh(170 \FZEROP 150 CL:ELT 129 SCAN.APPENDDECIMAL 102 SCAN.APPENDTOSCALE 77 CL:ELT 39 SCAN.APPENDDECIMAL 13 CL:ELT) (153 CHARACTER 80 CHARACTER 16 CHARACTER) () SCAN.OCTAL :D4 (P 9 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 [dl0dl7ILK ]MJkغlbjKlBjQjJkغ@J [l0Kl7INK ]MNk OOLl0 ]MOk_@J _jO O hLdIh(170 \FZEROP 150 CL:ELT 129 SCAN.APPENDOCTAL 102 SCAN.APPENDTOSCALE 77 CL:ELT 39 SCAN.APPENDOCTAL 13 CL:ELT) (153 CHARACTER 80 CHARACTER 16 CHARACTER) () SCAN.OCTALCHAR :D4 (P 6 SCALE P 5 SCAN P 4 V P 3 C P 2 BUFFERPTR P 1 VALID P 0 VALUE I 0 BUFFER) wjZiYj\@J [dl0dl7ILK ]MJkغlcjKlCjJkغ@J _jO O hjLLdlhLdIh(94 \FZEROP 74 CL:ELT 39 SCAN.APPENDOCTAL 13 CL:ELT) (77 CHARACTER 16 CHARACTER) () SCAN.HEX :D4 (P 9 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 [dj)l0KKl9lAKPKlFJIfLKX KlhjKlHjwjJkغ@J [l0?Kl99INK ]MlaKKdlf񳺿ILKl ]MJkغlNk OOLl0 ]MOk_@J _jO O hLdIh(218 \FZEROP 198 CL:ELT 177 SCAN.APPENDHEX 145 SCAN.APPENDHEX 112 SCAN.APPENDTOSCALE 87 CL:ELT 59 \FZEROP 13 CL:ELT) (201 CHARACTER 90 CHARACTER 16 CHARACTER) () SCAN.FLOATING :D4 (P 8 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) T  jZiYj\d]l0@J [%l9KILK YLK ^MkؽJkغKl.RJkغ@J ӻl0KKl9h@J [l0(Kl9"ILK YLK ^NMkٽJkغiYKlejKlEjj_g_Jkغ@J dl+l-g_Jkغ@J l0@J l9h@J [l0Kl9IOK ^_NJkغOgMO؃MOٽ@J _jO O hLoM dIh(331 EXPT 319 \FZEROP 303 CL:ELT 266 SCAN.APPENDTOSCALE 241 CL:ELT 226 CL:ELT 212 CL:ELT 184 CL:ELT 129 SCAN.APPENDDECIMAL 122 SCAN.VALIDFRACTION 97 CL:ELT 75 CL:ELT 46 SCAN.APPENDDECIMAL 39 SCAN.VALIDFRACTION 17 CL:ELT) (286 PLUS 244 CHARACTER 229 CHARACTER 215 CHARACTER 200 MINUS 187 CHARACTER 172 PLUS 100 CHARACTER 78 CHARACTER 20 CHARACTER) ( 327 10.0) SCAN.ESCAPE :D4 (P 4 NC P 3 V P 2 ADVANCE P 1 VALID P 0 C I 0 STREAM F 5 SCAN.CHAR) 4PiYdZUXdo:@ c o:Uo:Uo:Uo:l Uo:Uo:l Uo:Uo:l Uo:Uo:lUo:Uo:l Uo:Uo:Uo:UӱUo:8Uo:0Uo:(Uo: Uo:Uo:Uo:Uo:Ij[Ul0Ul7hYKdl-hj'KlUl0ػLk\lj@ c YZHIJh(291 CL:READ-CHAR 22 CL:READ-CHAR) (270 CHARACTER 241 CHARACTER 231 CHARACTER 158 CHARACTER) ( 221 #\7 214 #\6 207 #\5 199 #\4 191 #\3 183 #\2 175 #\1 167 #\0 152 #\\ 145 #\" 138 #\' 126 #\F 119 #\f 107 #\B 100 #\b 88 #\T 81 #\t 69 #\L 62 #\l 50 #\R 43 #\r 36 #\N 28 #\n 13 #\\) PARSE.MESA :D4 (I 1 DIRLST I 0 FILE) @gA (7 PARSE.FILE) (3 MESA) () PARSE.CEDAR :D4 (I 1 DIRLST I 0 FILE) @gA (7 PARSE.FILE) (3 CEDAR) () PARSE.FILE :D4 (I 2 DIRLST I 1 LANGUAGE I 0 FILE F 0 PARSE.STREAM F 1 PARSE.FILECOMS F 2 PARSE.DIRLST F 3 PARSE.LANGUAGE F 4 PARSE.ATOM F 5 PARSE.ATOM2) (BcAc@ chcdc Q cP h(36 CLOSEF 30 DREVERSE 26 PARSE.MODULE 23 PARSE.BIN 20 PARSE.BIN 9 SCAN.OPENSTREAM) NIL () PARSE.GET.STATE :D4 (F 0 PARSE.STREAM F 1 SCAN.CHAR F 2 BUILD.CURRENT.SCOPE F 3 SCAN.QDOT F 4 PARSE.CLASS F 5 PARSE.ATOM F 6 PARSE.CLASS2 F 7 BUILD.SCOPE.STACK F 8 PARSE.ATOM2 F 9 BUILD.PREFIX F 10 BUILD.NEXT.SCOPE F 11 BUILD.FILECOMS) ) gPd QSTUVWWWRWWh(7 GETFILEPTR) (2 PARSERSTATE) () PARSE.SET.STATE :D4 (I 0 STATE F 0 PARSE.STREAM F 1 SCAN.CHAR F 2 BUILD.CURRENT.SCOPE F 3 SCAN.QDOT F 4 PARSE.CLASS F 5 PARSE.ATOM F 6 PARSE.CLASS2 F 7 BUILD.SCOPE.STACK F 8 PARSE.ATOM2 F 9 BUILD.PREFIX F 10 BUILD.NEXT.SCOPE F 11 BUILD.FILECOMS) @cd@ @c@c@c@c @c @c@c@c@c@c@ch(12 SETFILEPTR) NIL () PARSE.BIN :D4 (P 1 TOKEN P 0 OLDATOM I 0 EXPECTCLASS F 2 PARSE.CLASS F 3 PARSE.ATOM F 4 PARSE.CLASS2 F 5 PARSE.ATOM2 F 6 PARSE.STREAM) = @SXV YTcUcIcIc Hdl@R@R@o (56 SHOULDNT 11 SCAN.TOKEN) NIL ( 53 "PARSE.BIN") PARSE.VARID :D4 NIL hg (9 BUILD.VARID 6 PARSE.BIN) (3 ID) () PARSE.SMURFA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 2 FINISH P 1 START P 0 POSITION I 0 SI::*CLEANUP-FORMS* F 5 PARSE.STREAM F 6 SI::*RESETFORMS* F 7 N) [PU XgUHhhdVc HkWٻjKKjYU HkWؼdLLZUiIHk oi UiHkJ i h(87 TERPRI 83 COPYBYTES 74 PRIN1 66 COPYBYTES 43 GETEOFPTR 6 GETFILEPTR) (10 SETFILEPTR) ( 70 "[PARSE]") PARSE.SMURF :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 N F 2 LISPXHIST) @ldbRg  (26 CL:VALUES-LIST 22 SI::RESETUNWIND 19 \MVLIST 16 PARSE.SMURFA0001) (13 SI::RESETUNWIND) () PARSE.THISIS.MESA :D4 (F 0 PARSE.LANGUAGE) Pgh(8 SHOULDNT) (3 MESA) () PARSE.THISIS.CEDAR :D4 (F 0 PARSE.LANGUAGE) Pgh(8 SHOULDNT) (3 CEDAR) () PARSE.MODULE :D4 (P 0 IDENTLIST F 1 PARSE.FILELST F 2 BUILD.PREFIX F 3 PARSE.ATOM) DXd H SgRgi RdQQch(55 PUTPROP 46 PARSE.DEFBODY 42 PARSE.DEFHEAD 38 PARSE.BLOCK 34 PARSE.CHECKED 30 PARSE.PROGHEAD 21 PARSE.SEADIRT 18 BUILD.STORE.INTERFACES 14 BUILD.INIT 8 PARSE.IDENTLIST 5 PARSE.DIRECTORY) (51 MESA.PARSED 25 DEFINITIONS) () PARSE.INCLUDEITEM :D4 (P 1 USING P 0 ID F 2 PARSE.ATOM) X g Xd H Rg5Rgg g Rdgg gHI h(84 BUILD.STORE.USING 78 PARSE.USING 68 PARSE.BIN 53 PARSE.BIN 44 PARSE.BIN 37 PARSE.BIN 27 PARSE.BIN 17 PARSE.INCLUDECHECK 13 BUILD.STORE.INTERFACE 8 PARSE.BIN) (73 USING 65 ID 59 ID 50 TYPE 41 STRING 32 FROM 21 %: 5 ID) () PARSE.INCLUDECHECK :D4 (P 1 FILE P 0 STATE I 0 ID F 2 PARSE.DIRLST F 3 PARSE.LANGUAGE) e @g hdo@o dg7@g hR o@o YISR H gh(97 SHOULDNT 87 PARSE.SET.STATE 82 PARSE.FILE 75 PARSE.GET.STATE 69 MKATOM 66 PROMPTFORWORD 63 CONCAT 49 FINDFILE 44 PACK* 29 ASKUSER 26 CONCAT 9 GETPROP) (92 N 41 .MESA 33 Y 6 MESA.PARSED) ( 60 ".MESA:" 55 "Enter full filename for " 23 ".MESA?" 18 "Should I parse ") PARSE.SEADIRT :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.BIN 9 PARSE.THISIS.CEDAR) (3 CEDAR) () PARSE.PROGHEAD :D4 NIL h(23 PARSE.PUBLIC 20 PARSE.TILDE 17 PARSE.INTERFACE 14 PARSE.LOCKS 11 PARSE.ARGUMENTS 8 PARSE.CLASS 5 PARSE.SAFE 2 PARSE.RESIDENT) NIL () PARSE.RESIDENT :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.BIN 9 PARSE.THISIS.MESA) (3 RESIDENT) () PARSE.SAFE :D4 (F 0 PARSE.ATOM) Pdgdgih(25 PARSE.BIN 22 PARSE.THISIS.CEDAR) (10 UNSAFE 4 SAFE) () PARSE.DEFHEAD :D4 NIL h(17 PARSE.PUBLIC 14 PARSE.TILDE 11 PARSE.SHARES 8 PARSE.IMPORTS 5 PARSE.LOCKS 2 PARSE.DEFINITIONS) NIL () PARSE.TILDE :D4 (F 0 PARSE.ATOM) Pdgg(26 SHOULDNT 22 PARSE.BIN 19 PARSE.THISIS.CEDAR 10 PARSE.BIN) (14 ~ 4 =) () PARSE.DEFINITIONS :D4 NIL (2 PARSE.BIN) NIL () PARSE.DEFBODY :D4 (F 0 PARSE.ATOM) -o  Pgo h(41 PARSE.BIN 33 PARSE.BIN 24 BUILD.GC.SCOPE 21 BUILD.POP.SCOPE 18 PARSE.DECLIST 15 BUILD.STORE.OPEN 12 PARSE.OPEN 9 BUILD.PUSH.SCOPE 6 PARSE.BIN) (28 ;) ( 38 (END }) 3 (BEGIN {)) PARSE.LOCKS :D4 (F 0 PARSE.ATOM) Pgh(17 PARSE.LAMBDA 13 PARSE.PRIMARY 9 PARSE.BIN) (3 LOCKS) () PARSE.LAMBDA :D4 (P 1 TYPEEXP P 0 IDENT F 2 PARSE.ATOM F 3 BUILD.CURRENT.SCOPE)  RgHIhS h(28 BUILD.INITIALIZE.VAR 20 PARSE.TYPEEXP 16 PARSE.IDENT 12 PARSE.BIN) (6 USING) () PARSE.MODULEITEM :D4 (P 1 ID2 P 0 ID1 F 2 PARSE.ATOM) ) g XRgg Hgg H(37 PUTPROP 26 PARSE.BIN 19 PARSE.BIN 8 PARSE.BIN) (34 ID2 31 MESA.ABBREVIATES 23 ID 13 %: 5 ID) () PARSE.DECLARATION :D4 (P 5 ANSWER P 4 OPTSIZE P 3 DEFAULT P 2 INITIALIZATION P 1 TYPEEXP P 0 IDENTLIST F 6 PARSE.ATOM F 7 PARSE.LANGUAGE) m`Xd VgHIJ ]9g VgWg VgHIK \h M(105 BUILD.STORE.IDENTLIST 99 PARSE.OPTSIZE 95 BUILD.TYPE 88 PARSE.DEFAULT 84 PARSE.TYPEEXP 80 PARSE.PUBLIC 76 PARSE.TILDE 51 PARSE.BIN 42 BUILD.INITIALIZATION 35 PARSE.INITIALIZATION 31 PARSE.TYPEEXP 27 PARSE.READONLY 23 PARSE.ENTRY 13 PARSE.PUBLIC 10 BUILD.STORE.IDENTLIST 5 PARSE.IDENTLIST) (70 ~ 63 CEDAR 56 = 48 TYPE 17 TYPE) () PARSE.PUBLIC :D4 (F 0 PARSE.ATOM) Po (12 PARSE.BIN 7 MEMB) NIL ( 4 (PUBLIC PRIVATE)) PARSE.ENTRY :D4 (F 0 PARSE.ATOM) Po (12 PARSE.BIN 7 MEMB) NIL ( 4 (ENTRY INTERNAL)) PARSE.IDLIST :D4 (P 1 ANSWER P 0 IDS F 2 PARSE.ATOM) ' g HXRgg HH (36 DREVERSE 27 PARSE.BIN 20 PARSE.BIN 8 PARSE.BIN) (24 ID 15 %, 5 ID) () PARSE.IDENTLIST :D4 (P 2 ANSWER P 1 TYPEITEMS P 0 IDS I 0 KIND F 3 PARSE.ATOM) V0@ggH I g HSdgSgSgg H (83 DREVERSE 78 PARSE.BIN 62 PARSE.BIN 52 PARSE.POSITION 38 PARSE.BIN 30 \NCONC2 26 DREVERSE 17 PARSE.TYPELIST 12 PARSE.TYPEEXP.HERE) (75 %: 69 %: 57 %, 46 %( 35 ID 22 TYPELIST 6 FIELDLIST) () PARSE.POSITION :D4 (P 2 ANSWER P 1 OPTBITS P 0 EXP) "0g XYg gHIh(22 PARSE.BIN 15 PARSE.OPTBITS 11 PARSE.EXP 8 PARSE.BIN) (25 position 19 %) 5 %() () PARSE.OPTBITS :D4 (F 0 PARSE.ATOM) Pg g (15 PARSE.BOUNDS 12 PARSE.BIN) (9 %: 3 %:) () PARSE.INTERVAL :D4 (P 2 ANSWER P 1 BOUNDS P 0 KIND F 3 PARSE.ATOM) n0Sdg+SdggXggX2g)SdggXggXgHI(99 SHOULDNT 95 PARSE.BIN 91 SHOULDNT 64 PARSE.BOUNDS 60 PARSE.BIN 49 PARSE.BIN 45 SHOULDNT 18 PARSE.BOUNDS 14 PARSE.BIN) (103 MINTERVAL 86 OO 81 %) 76 OC 70 %] 54 %( 40 CO 35 %) 30 CC 24 %] 7 %[) () PARSE.TYPEEXP.HERE :D4 NIL hNIL NIL () PARSE.TYPEEXP :D4 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.TYPEEXP.FOLLOW F 3 PARSE.CLASS) -SgQRH hH QRH XH(40 PARSE.TYPECONS 36 PARSE.TYPECONS.CONT 27 BUILD.TYPEID 21 PARSE.TYPEID.CONT 12 PARSE.BIN) (6 ID) () PARSE.RANGE :D4 (P 2 ANSWER P 1 INTERVAL P 0 TYPE F 3 PARSE.INTERVAL.FIRST F 4 PARSE.ATOM F 5 PARSE.ATOM2 F 6 PARSE.RANGE.FOLLOW) D0TSg*UdVhg Shg TSgHIh(55 PARSE.INTERVAL 47 PARSE.TYPEID 42 BUILD.TYPEID 39 PARSE.BIN 28 BUILD.TYPEID 25 PARSE.BIN) (59 MRANGE 36 ID 22 ID 9 CARDINAL) () PARSE.TYPEAPPL :D4 NIL hi h(4 BREAK1) NIL () PARSE.TYPEAPPL.CONT :D4 (P 2 ANSWER P 1 LENGTH P 0 ID I 0 TYPEAPPL F 3 PARSE.ATOM) B0@ZSdgdgih(Sgg JHhJIhJ(53 PARSE.LENGTH 41 PARSE.BIN 34 PARSE.BIN) (38 ID 28 %. 15 %[ 9 %.) () PARSE.TYPEID :D4 NIL g (8 PARSE.TYPEID.CONT 5 PARSE.BIN) (2 ID) () PARSE.TYPEID.CONT :D4 (P 1 ANSWER P 0 INTERFACE I 0 ID F 2 PARSE.CLASS F 3 PARSE.ATOM) 3 Rghi bSg@g bH@ (48 BUILD.TYPEID 40 PARSE.BIN 33 PARSE.BIN 17 PARSE.BIN 13 BREAK1) (37 ID 26 %. 6 ID) () PARSE.TYPECONS :D4 (F 0 PARSE.CLASS) Pg(12 PARSE.TYPECONS2 8 PARSE.TYPECONS1) (3 ID) () PARSE.TYPECONS1 :D4 (P 1 ANSWER P 0 TYPEID F 2 PARSE.ATOM F 3 PARSE.TYPEEXP.FOLLOW)  g XRSd hH X (27 PARSE.TYPECONS.CONT 23 BUILD.TYPEID 17 PARSE.TYPEID.CONT 8 PARSE.BIN) (5 ID) () PARSE.TYPECONS.CONT :D4 (P 5 ANSWER P 4 KIND P 3 EXP2 P 2 EXP1 P 1 TYPEEXP P 0 INTERVAL I 0 TYPEID F 6 PARSE.ATOM) `VdggVdg@ kgbg Vg?g Vgg gg ggLJKhg@Hhg @Jh] M(143 SHOULDNT 139 PARSE.TYPEAPPL.CONT 129 PARSE.BIN 96 PARSE.BIN 85 PARSE.BIN 72 PARSE.EXP 68 PARSE.BIN 54 PARSE.EXP 50 PARSE.BIN 35 PARSE.TYPECONS.RANGE 22 PARSE.TYPECONS.PAINTED 13 PARSE.TYPECONS.RELATIVE) (126 %] 116 MRANGE 104 MINTERVAL 100 CC 93 %] 89 CO 82 %) 77 %) 65 |..| 59 |..| 47 %[ 41 %[ 28 %( 17 PAINTED 7 RELATIVE) () PARSE.TYPECONS.RANGE :D4 (P 1 ANSWER P 0 INTERVAL I 0 TYPEID)  Xg@Hh(5 PARSE.INTERVAL) (9 MRANGE) () PARSE.TYPECONS.RELATIVE :D4 (P 1 ANSWER P 0 TYPE I 0 TYPEID)  g Xg@Hh(11 PARSE.TYPEEXP 8 PARSE.BIN) (15 MRELATIVE 5 RELATIVE) () PARSE.TYPECONS.PAINTED :D4 (P 1 ANSWER P 0 TYPE I 0 TYPEID)  g Xg@Hh(14 PARSE.TYPEEXP 11 PARSE.BIN 5 PARSE.THISIS.CEDAR) (18 MPAINTED 8 RELATIVE) () PARSE.TYPECONS2 :D4 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.INTERVAL.FIRST) QdRdgdgdgdgdgdgdgdgdgdgdgdg0dg)dg"dgdgdgdgdgdgdgdgdgg(218 SHOULDNT 214 PARSE.TYPECONS.LIST 205 PARSE.TYPECONS.REF 194 PARSE.TYPECONS.FRAME 183 PARSE.TYPECONS.LONG 172 PARSE.TYPECONS.HEAP 161 PARSE.TYPECONS.SAFE 103 PARSE.TYPECONS.DESCRIPTOR 92 PARSE.TYPECONS.PACKED 75 PARSE.TYPECONS.VAR 64 PARSE.TYPECONS.ORDERED 41 PARSE.TYPECONS.DEPENDENT 11 PARSE.TYPECONS.INTERVAL) (209 LIST 199 REF 188 FRAME 177 LONG 166 UNCOUNTED 155 SIGNAL 149 PROGRAM 143 PROCESS 136 PROCEDURE 129 PROC 122 PORT 115 ERROR 108 SAFE 97 DESCRIPTOR 86 ARRAY 80 PACKED 69 VAR 58 POINTER 52 BASE 46 ORDERED 35 { 29 RECORD 23 MONITORED 16 MACHINE) () PARSE.TYPECONS.INTERVAL :D4 (P 0 ANSWER) ggh(11 PARSE.INTERVAL) (8 CARDINAL 5 MRANGE) () PARSE.TYPECONS.DEPENDENT :D4 (P 2 ANSWER P 1 RECLIST P 0 ELEMENTLIST F 3 PARSE.ATOM) 0Sg(18 PARSE.TYPECONS.RECORD 14 PARSE.TYPECONS.ENUMERATED 5 PARSE.DEPENDENT) (9 {) () PARSE.TYPECONS.ENUMERATED :D4 (P 1 ANSWER P 0 ITEMS)  Xg gH(15 PARSE.BIN 8 PARSE.ELEMENTLIST 5 PARSE.BIN) (18 MENUMERATED 12 }) () PARSE.TYPECONS.RECORD :D4 (P 1 ANSWER P 0 FIELDLIST)  g XghH(14 PARSE.RECLIST 11 PARSE.BIN 5 PARSE.MONITORED) (18 MRECORD 8 RECORD) () PARSE.TYPECONS.ORDERED :D4 (P 0 ANSWER) (11 PARSE.POINTERTYPE 8 PARSE.BASE 5 PARSE.ORDERED) NIL () PARSE.TYPECONS.VAR :D4 (P 1 ANSWER P 0 TYPE)  g XgH(11 PARSE.TYPEEXP 8 PARSE.BIN) (15 MVAR 5 VAR) () PARSE.TYPECONS.PACKED :D4 (P 3 ANSWER P 2 TYPE P 1 INDEXTYPE P 0 PACKED) &@Xg Yg ZgIJh(25 PARSE.TYPEEXP 22 PARSE.BIN 15 PARSE.INDEXTYPE 12 PARSE.BIN 5 PARSE.PACKED) (29 MARRAY 19 OF 9 ARRAY) () PARSE.TYPECONS.DESCRIPTOR :D4 (P 1 ANSWER P 0 TYPE)  g g XgH(20 PARSE.TYPEEXP 17 PARSE.READONLY 14 PARSE.BIN 8 PARSE.BIN) (24 MDESCRIPTOR 11 FOR 5 DESCRIPTOR) () PARSE.TYPECONS.SAFE :D4 (P 0 TRANSFERMODE) XH(12 PARSE.ARGUMENTS 8 PARSE.TRANSFERMODE 5 PARSE.SAFE) NIL () PARSE.TYPECONS.HEAP :D4 NIL g g(8 PARSE.BIN 2 PARSE.HEAP) (11 ZONE 5 ZONE) () PARSE.TYPECONS.LONG :D4 (P 0 ANSWER) g (11 PARSE.TYPEEXP 8 PARSE.BIN) (5 LONG) () PARSE.TYPECONS.FRAME :D4 (P 1 ANSWER P 0 ID) ' g g hg Xg gH(31 PARSE.BIN 24 BUILD.ID 21 PARSE.BIN 14 PARSE.BIN 8 PARSE.BIN) (34 MFRAME 28 %] 18 ID 11 %[ 5 FRAME) () PARSE.TYPECONS.REF :D4 (P 1 ANSWER P 0 TYPE F 2 PARSE.ATOM F 3 PARSE.TYPEEXP.FOLLOW) 2 g RSgRgggH(41 PARSE.TYPEEXP 33 PARSE.BIN 23 PARSE.READONLY 11 PARSE.BIN 5 PARSE.THISIS.CEDAR) (45 MREF 37 ANY 28 ANY 18 ANY 8 REF) () PARSE.TYPECONS.LIST :D4 (P 1 ANSWER P 0 TYPE)  g g XgH(23 PARSE.TYPEEXP 20 PARSE.READONLY 17 PARSE.BIN 11 PARSE.BIN 5 PARSE.THISIS.CEDAR) (27 MLIST 14 OF 8 LIST) () PARSE.IDENT :D4 (P 0 ID F 1 PARSE.ATOM) !g XQgg H(29 PARSE.BIN 22 PARSE.POSITION 18 PARSE.BIN 8 PARSE.BIN) (26 %: 13 %: 5 ID) () PARSE.ELEMENT :D4 (P 2 ANSWER P 1 EXP P 0 ID F 3 PARSE.ATOM) /0Sdgg SgHg HZJ(40 PARSE.BIN 31 PARSE.EXP 27 PARSE.BIN 16 PARSE.BIN) (37 %) 21 %( 13 ID 7 %() () PARSE.MONITORED :D4 (F 0 PARSE.ATOM) Pg(9 PARSE.BIN) (3 MONITORED) () PARSE.DEPENDENT :D4 (F 0 PARSE.ATOM) Pgg g(15 PARSE.BIN 9 PARSE.BIN) (18 MACHINE.DEPENDENT 12 DEPENDENT 3 MACHINE) () PARSE.RECLIST :D4 (P 6 PAIRITEM P 5 ANSWER P 4 DEFAULT P 3 VARIANTPART P 2 VARIANTPAIR P 1 TYPELIST P 0 PAIRLIST F 7 PARSE.ATOM F 8 PARSE.VARIANTPART.FIRST F 9 PARSE.ATOM2 F 10 PARSE.CLASS F 11 PARSE.PREDEFINED.TYPES) `Wghg WdghWhKLhhLWg@WW9Wdgdgdgihg XdNhN HYg M(139 PARSE.BIN 131 PARSE.TYPELIST 120 BUILD.FIELDID 106 PARSE.PAIRLIST 46 PARSE.DEFAULT 42 PARSE.VARIANTPART 32 PARSE.BIN 20 PARSE.BIN 12 PARSE.BIN) (136 %] 103 RECLIST 91 %: 85 %, 79 %( 63 ID 26 %] 17 %[ 7 NULL) () PARSE.VARIANTPAIR :D4 (P 4 ANSWER P 3 DEFAULT P 2 VARIANTPART P 1 PUBLIC P 0 IDENTLIST) 9PXZ[0HdJKhN Mh_^Mh^O(16 PARSE.DEFAULT 12 PARSE.VARIANTPART 9 PARSE.PUBLIC 5 PARSE.IDENTLIST) NIL () PARSE.PAIRITEM :D4 (P 4 ANSWER P 3 DEFAULT P 2 TYPEEXP P 1 VARIANTPART P 0 IDENTLIST I 0 KIND F 8 PARSE.ATOM F 9 PARSE.VARIANTPART.FIRST F 10 PARSE.ATOM2) fP@ XdgUWWWgWg@g[0HdJKhN Mh_^Mh^O(61 PARSE.DEFAULT 57 PARSE.TYPEEXP 53 PARSE.VARIANTPART 49 SHOULDNT 19 PARSE.PUBLIC 6 PARSE.IDENTLIST) (44 RECLIST 38 ARRAY 31 PACKED 13 TYPELIST) () PARSE.DEFAULTOPT :D4 (P 2 ANSWER P 1 TRASH P 0 EXP F 3 PARSE.ATOM F 4 PARSE.DEFAULTOPT.FOLLOW) N0Sdgdgih,ST-Sg"g SdgdgihiHIh(67 PARSE.BIN 44 PARSE.BIN 30 PARSE.EXP) (56 NULL 50 TRASH 41 %| 35 %| 13 NULL 7 TRASH) () PARSE.VARIANTPART :D4 (P 3 ANSWER P 2 TYPEEXP P 1 VARIANTLIST P 0 VCASEHEAD F 4 PARSE.ATOM F 5 PACKED) _@Tg0g Tgg gHIhc g g gHJh(82 PARSE.TYPEEXP 78 PARSE.BIN 71 PARSE.VCASEHEAD 67 PARSE.BIN 58 PARSE.PACKED 44 PARSE.BIN 37 PARSE.BIN 27 PARSE.VARIANTLIST 23 PARSE.BIN 16 PARSE.VCASEHEAD 12 PARSE.BIN) (86 SEQUENCE 75 OF 64 SEQUENCE 48 SELECT 41 ENDCASE 32 %, 20 FROM 6 SELECT) () PARSE.VCASEHEAD :D4 (P 3 ANSWER P 2 TAGTYPE P 1 PUBLIC P 0 IDENT F 4 PARSE.ATOM) >@TdgdgihgHIJhgh(55 PARSE.TAGTYPE 52 PARSE.BIN 33 PARSE.TAGTYPE 29 PARSE.PUBLIC 25 PARSE.IDENT) (49 vcasehead 37 vcasehead 13 OVERLAID 7 COMPUTED) () PARSE.TAGTYPE :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.TYPEEXP 8 PARSE.BIN) (3 *) () PARSE.VARIANTITEM :D4 (P 2 ANSWER P 1 RECLIST P 0 IDLIST) 0Xg YgHIh(15 PARSE.RECLIST 12 PARSE.BIN 5 PARSE.IDLIST) (19 variantitem 9 =>) () PARSE.TYPELIST :D4 (P 1 ANSWER P 0 TYPEITEMS F 2 PARSE.ATOM) % HXRgHgH (33 DREVERSE 21 PARSE.TYPEITEM 17 PARSE.BIN 5 PARSE.TYPEITEM) (29 TYPELIST 12 %,) () PARSE.TYPEITEM :D4 (P 2 ANSWER P 1 DEFAULT P 0 TYPEEXP F 3 PARSE.ATOM) "0XdlSgHIh(25 PARSE.DEFAULTOPT 15 PARSE.DEFAULT 5 PARSE.TYPEEXP) (20 _) () PARSE.POINTERTYPE :D4 (P 1 ANSWER P 0 TYPE F 2 PARSE.ATOM) # RgggH(22 PARSE.TYPEEXP 18 PARSE.READONLY 14 PARSE.BIN 5 PARSE.POINTERPREFIX) (30 MPOINTER 26 UNSPECIFIED 9 TO) () PARSE.TRANSFERMODE :D4 NIL g(2 PARSE.BIN) (5 PROC) () PARSE.INITIALIZATION :D4 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.LANGUAGE) -QdgdgihRgQgH(40 PARSE.INITVALUE 36 PARSE.BIN) (31 ~ 25 CEDAR 13 = 7 _) () PARSE.INITVALUE :D4 (P 4 ANSWER P 3 EXP P 2 CODELIST P 1 BLOCK P 0 INLINE F 5 PARSE.ATOM) tPUdgdgdgihgUdgdgdgihUg"g o o J(113 PARSE.EXP 108 PARSE.BIN 100 PARSE.CODELIST 96 PARSE.BIN 88 PARSE.BIN 81 PARSE.BIN 70 PARSE.BLOCK 66 PARSE.INLINE 37 PARSE.CHECKED 30 PARSE.BIN) (85 CODE 75 MACHINE 55 { 49 BEGIN 43 INLINE 33 TRASH 19 NULL 13 TRASH 7 CODE) ( 105 (END }) 93 (BEGIN {)) PARSE.CHECKED :D4 (F 0 PARSE.ATOM) "Pdgdgdgih(31 PARSE.BIN 28 PARSE.THISIS.CEDAR) (16 UNCHECKED 10 TRUSTED 4 CHECKED) () PARSE.CODELIST :D4 NIL hi h(4 BREAK1) NIL () PARSE.STATEMENT :D4 (F 0 PARSE.CLASS) Pdgdgih(25 PARSE.STATEMENT2 21 PARSE.STATEMENT1) (10 %( 4 ID) () PARSE.STATEMENT1 :D4 (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 (101 BUILD.SETQ 95 PARSE.EXP 91 PARSE.BIN 79 PARSE.BIN 75 PARSE.BIN 51 PARSE.BIN 44 PARSE.OPTCATCH 40 PARSE.EXP 36 PARSE.BIN 29 PARSE.BIN 25 PARSE.BIN 5 PARSE.LHS) (85 _ 70 STATE 64 _ 48 %] 33 %[ 19 FREE 11 %.) () PARSE.STATEMENT2 :D4 (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(324 SHOULDNT 316 PARSE.BIN 303 PARSE.BIN 288 PARSE.BIN 277 PARSE.OPTARGS 273 PARSE.BIN 261 PARSE.BIN 246 PARSE.BIN 231 PARSE.BIN 220 PARSE.LHS 216 PARSE.BIN 202 PARSE.BIN 192 PARSE.BIN 185 PARSE.BIN 170 PARSE.BIN 160 PARSE.BIN 144 PARSE.BIN 129 PARSE.BIN 118 PARSE.STATEMENT.IF 107 PARSE.BLOCK 103 PARSE.CHECKED 66 PARSE.STATEMENT.LBRACKET 55 PARSE.STATEMENT.TRANSFER 45 PARSE.STATEMENT.RETURN 30 PARSE.STATEMENT.FORCLAUSE 11 PARSE.STATEMENT.CASEHEAD) (311 RETRY 297 CONTINUE 282 REJECT 267 RESUME 255 NULL 240 STOP 225 ERROR 210 WAIT 199 ID 196 GO 189 TO 178 GO 167 ID 164 GO 153 GOTO 138 LOOP 123 EXIT 112 IF 97 UNCHECKED 91 TRUSTED 85 CHECKED 78 BEGIN 71 { 60 %[ 40 WITH 34 RETURN 24 DO) ( 320 (GO RETRY) 307 (GO CONTINUE) 292 (SHOULDNT) 250 (GO STOP) 235 (SHOULDNT) 148 (GO LOOP) 133 (RETURN)) PARSE.STATEMENT.CASEHEAD :D4 (P 3 ANSWER P 2 OTHERPART P 1 CASESTMTLIST P 0 CASEHEAD F 4 BUILD.CURRENT.SCOPE) >@Xd Yg ZHIJ [HHhHT Kh [K(58 BUILD.POP.SCOPE 54 BUILD.PROG 47 BUILD.INITIALIZE.VAR 30 BUILD.SELECTQ 23 PARSE.OTHERPART 20 PARSE.BIN 13 PARSE.CASESTMTLIST 8 PARSE.CASEHEAD 5 BUILD.PUSH.SCOPE) (17 ENDCASE) () PARSE.STATEMENT.FORCLAUSE :D4 (P 6 ANSWER P 5 STATEMENT P 4 EXITLIST P 3 DOEXIT P 2 SCOPE P 1 DOTEST P 0 FORCLAUSE) \po XYg Z[d\K]g HIgJ  ^MdgM  LNL N(87 BUILD.PROGN 78 CL:APPEND 74 BUILD.TAIL 63 CL:APPEND 59 BUILD.TAIL 50 BUILD.POP.SCOPE 47 PARSE.BIN 33 PARSE.DOEXIT 29 PARSE.SCOPE 26 PARSE.BIN 19 PARSE.DOTEST 15 PARSE.FORCLAUSE 12 BUILD.PUSH.SCOPE 9 BUILD.STORE.IDENTLIST) (70 finally 55 do 44 ENDLOOP 23 DO) ( 6 (DO)) PARSE.STATEMENT.RETURN :D4 (P 1 ANSWER P 0 OPTARGS)  g Xd (16 BUILD.RETURN 11 PARSE.OPTARGS 8 PARSE.BIN) (5 RETURN) () PARSE.STATEMENT.TRANSFER :D4 (P 2 ANSWER P 1 LHS P 0 TRANSFER) 0XYggIhh(9 PARSE.LHS 5 PARSE.TRANSFER) (16 QUOTE 13 SHOULDNT) () PARSE.STATEMENT.LBRACKET :D4 (P 2 ANSWER P 1 EXP P 0 EXPLIST) $0g Xg g YHI (33 BUILD.SETQ 27 PARSE.EXP 24 PARSE.BIN 18 PARSE.BIN 11 PARSE.EXPLIST 8 PARSE.BIN) (21 _ 15 %] 5 %[) () PARSE.STATEMENT.IF :D4 (P 5 ANSWER P 4 TAIL P 3 HEAD P 2 ELSEPART P 1 STATEMENT P 0 EXP) #`g Xg YZHIJ (32 BUILD.COND 25 PARSE.ELSEPART 21 PARSE.STATEMENT 18 PARSE.BIN 11 PARSE.EXP 8 PARSE.BIN) (15 THEN 5 IF) () PARSE.BLOCK :D4 (P 2 ANSWER P 1 EXITS P 0 SCOPE) &0o XYo HI (35 \APPEND2 30 BUILD.POP.SCOPE 27 PARSE.BIN 19 PARSE.EXITS 15 PARSE.SCOPE 12 PARSE.BIN 5 BUILD.PUSH.SCOPE) NIL ( 24 (END }) 9 (BEGIN {)) PARSE.SCOPE :D4 (P 1 ANSWER P 0 STATEMENTLIST F 2 PARSE.CLASS F 3 PARSE.ATOM2) 4  RgSdgdgihXd (49 BUILD.PROG 44 PARSE.STATEMENTLIST 40 PARSE.DECLIST 11 PARSE.ENABLES 8 BUILD.STORE.OPEN 5 PARSE.OPEN) (29 %: 23 %, 15 ID) () PARSE.BINDITEM :D4 (P 2 ANSWER P 1 EXP P 0 ID F 3 PARSE.CLASS F 4 PARSE.ATOM2 F 5 PARSE.LANGUAGE) J0SgTg$UgSgTgg YgHIh(61 PARSE.EXP 57 PARSE.BIN 50 PARSE.BIN 46 PARSE.BIN 21 PARSE.BIN 17 PARSE.BIN) (65 BINDITEM 54 ~ 41 ~ 34 ID 27 CEDAR 12 %: 6 ID) () PARSE.EXITS :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.EXITLIST 9 PARSE.BIN) (3 EXITS) () PARSE.CASESTMTITEM :D4 (P 2 ANSWER P 1 STATEMENT P 0 CASELABEL I 0 CASEHEAD) 0Xg YHI (21 BUILD.TAIL 15 PARSE.STATEMENT 12 PARSE.BIN 5 PARSE.CASELABEL) (9 =>) () PARSE.CASEEXPITEM :D4 (P 2 ANSWER P 1 EXP P 0 CASELABEL I 0 CASEHEAD) 0Xg YHI (21 BUILD.TAIL 15 PARSE.EXP 12 PARSE.BIN 5 PARSE.CASELABEL) (9 =>) () PARSE.EXITITEM :D4 (P 2 ANSWER P 1 STATEMENT P 0 IDLIST) 0Xg YHI (27 BUILD.PROGN 24 \NCONC2 21 BUILD.TAIL 15 PARSE.STATEMENT 12 PARSE.BIN 5 PARSE.IDLIST) (9 =>) () PARSE.CASETEST :D4 (P 2 ANSWER P 1 EXP P 0 OPTRELATION F 3 PARSE.ATOM F 4 PARSE.OPTRELATION.FIRST) 0ST(13 PARSE.EXP 9 PARSE.OPTRELATION) NIL () PARSE.CONTROLID :D4 (P 1 TYPEEXP P 0 ID F 2 PARSE.ATOM2 F 3 PARSE.CONTROLID.FOLLOW F 4 BUILD.CURRENT.SCOPE) $ RSg gHIhT H(32 BUILD.INITIALIZE.VAR 24 PARSE.TYPEEXP 20 PARSE.IDENT 12 PARSE.BIN) (16 INTEGER 9 ID) () PARSE.FORCLAUSE :D4 (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(90 BUILD.FORCLAUSE.THROUGH 86 PARSE.RANGE 82 PARSE.BIN 73 BUILD.FORCLAUSE.IN 66 PARSE.RANGE 62 PARSE.BIN 55 PARSE.DIRECTION 51 BUILD.FORCLAUSE.BY 44 PARSE.EXP 40 PARSE.BIN 33 PARSE.EXP 29 PARSE.BIN 18 PARSE.CONTROLID 14 PARSE.BIN) (77 THROUGH 59 IN 37 %, 23 _ 7 FOR) () PARSE.DIRECTION :D4 (F 0 PARSE.ATOM) Pg(9 PARSE.BIN) (3 DECREASING) () PARSE.DOTEST :D4 (F 0 PARSE.ATOM) )Pdgghggh(35 PARSE.EXP 29 PARSE.BIN 16 PARSE.EXP 10 PARSE.BIN) (32 while 23 WHILE 13 until 4 UNTIL) () PARSE.DOEXIT :D4 (P 2 ANSWER P 1 STATEMENT P 0 EXITLIST F 3 PARSE.ATOM) 90Sg*Sgg SgHIh(48 PARSE.BIN 38 PARSE.STATEMENT 34 PARSE.BIN 27 PARSE.BIN 16 PARSE.EXITLIST 12 PARSE.BIN) (43 ; 31 => 21 FINISHED 6 REPEAT) () PARSE.ENABLES :D4 (P 3 ANSWER P 2 CATCHLIST P 1 CATCHANY P 0 CATCHCASE F 4 PARSE.ATOM) Q@TgFTdgY+dgdgiho JXhg K(77 PARSE.BIN 67 PARSE.CATCHCASE 61 PARSE.BIN 53 PARSE.CATCHLIST 49 PARSE.BIN 24 PARSE.CATCHANY 12 PARSE.BIN) (74 ; 37 { 31 BEGIN 18 ANY 6 ENABLE) ( 58 (END })) PARSE.CATCHLIST :D4 (P 3 ANSWER P 2 CATCHCASE P 1 CATCHANY P 0 CATCHHEAD F 4 PARSE.ATOM F 5 PARSE.CATCHLIST.FOLLOW) ;@XTdUgHIh TgHJh [K(54 \NCONC2 46 PARSE.CATCHCASE 41 PARSE.BIN 30 \NCONC2 22 PARSE.CATCHANY 5 PARSE.CATCHHEAD) (35 ; 16 ANY) () PARSE.CATCHCASE :D4 (P 2 ANSWER P 1 STATEMENT P 0 LHSLIST) 0Xg YgHIh(15 PARSE.STATEMENT 12 PARSE.BIN 5 PARSE.LHSLIST) (19 catchcase 9 =>) () PARSE.OPTARGS :D4 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.OPTARGS.FOLLOW) *Qdgg g HRh(37 PARSE.LHS 28 PARSE.BIN 21 PARSE.EXPLIST 17 PARSE.BIN) (25 %] 14 %[ 7 %[) () PARSE.TRANSFER :D4 (F 0 PARSE.ATOM) 7Pdgg Pggggg g(52 PARSE.BIN 45 PARSE.BIN 39 PARSE.BIN 17 PARSE.BIN 11 PARSE.BIN) (48 RETURN 42 WITH 34 TRANSFER 30 RETURN 26 SHOULDNT 21 ERROR 14 WITH 4 RETURN) () PARSE.KEYITEM :D4 (P 2 ANSWER P 1 OPTEXP P 0 ID F 3 PARSE.ATOM F 4 PARSE.LANGUAGE) 40g XSgTgSgYHIh(43 PARSE.OPTEXP 39 SHOULDNT 35 PARSE.BIN 18 PARSE.BIN 8 PARSE.BIN) (30 ~ 24 CEDAR 13 %: 5 ID) () PARSE.OPTEXP :D4 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.OPTEXP.FOLLOW) 'QdgdgihgQR(36 PARSE.EXP 24 PARSE.BIN) (27 TRASH 13 TRASH 7 NULL) () PARSE.EXP :D4 (F 0 PARSE.CLASS) Pg(12 PARSE.EXP2 8 PARSE.EXP1) (3 ID) () PARSE.EXP1 :D4 (P 2 ANSWER P 1 EXP P 0 DISJUNCT F 3 PARSE.ATOM) 0XSgHI H(25 BUILD.SETQ 19 PARSE.EXP 15 PARSE.BIN 5 PARSE.DISJUNCT) (10 _) () PARSE.EXP2 :D4 (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 Rdg3R Rdgdgdgdg}dgvdgodghdgadgZdgSdgLdgEdg>dg7dg0dg)dg"dgdgdgdgdgihRRgH H(263 BUILD.SETQ 260 PARSE.EXP 255 PARSE.BIN 245 PARSE.EXP.DISJUNCT 73 STRINGP 68 PARSE.EXP.DISJUNCT 61 PARSE.EXP.ERROR 49 PARSE.EXP.LBRACKET 41 PARSE.EXP.CASEHEAD 31 PARSE.EXP.IF 21 PARSE.EXP.TRANSFEROP) (250 _ 231 %[ 225 @ 219 - 212 + 205 VAL 198 SUCC 191 SIZE 184 PRED 177 ORD 170 NOT 163 NILL 156 MIN 149 MAX 142 LONG 135 LENGTH 128 LAST 121 ISTYPE 114 FIRST 107 DESCRIPTOR 98 BASE 89 ALL 80 ABS 55 ERROR 46 %[ 26 IF 16 %[ 10 NEW) () PARSE.EXP.TRANSFEROP :D4 (P 2 ANSWER P 1 LHS P 0 TRANSFEROP) 0XYggIhh(9 PARSE.LHS 5 PARSE.TRANSFEROP) (16 QUOTE 13 SHOULDNT) () PARSE.EXP.IF :D4 (P 3 ANSWER P 2 EXP3 P 1 EXP2 P 0 EXP1) )@g Xg Yg ZHIJ (38 BUILD.COND 31 PARSE.EXP 28 PARSE.BIN 21 PARSE.EXP 18 PARSE.BIN 11 PARSE.EXP 8 PARSE.BIN) (25 ELSE 15 THEN 5 IF) () PARSE.EXP.CASEHEAD :D4 (P 3 ANSWER P 2 EXP P 1 CASEEXPLIST P 0 CASEHEAD) #@XYg g ZHIJ (32 BUILD.SELECTQ 25 PARSE.EXP 22 PARSE.BIN 16 PARSE.BIN 9 PARSE.CASEEXPLIST 5 PARSE.CASEHEAD) (19 => 13 ENDCASE) () PARSE.EXP.LHS :D4 (P 2 ANSWER P 1 EXP P 0 LHS) 0Xg YgHIh(15 PARSE.EXP 12 PARSE.BIN 5 PARSE.LHS) (19 SETQ 9 _) () PARSE.EXP.LBRACKET :D4 (P 2 ANSWER P 1 EXP P 0 EXPLIST) (0g Xg g YgHIh(27 PARSE.EXP 24 PARSE.BIN 18 PARSE.BIN 11 PARSE.EXPLIST 8 PARSE.BIN) (31 SETQ 21 _ 15 %] 5 %[) () PARSE.EXP.ERROR :D4 NIL g o(5 PARSE.BIN) (2 ERROR) ( 9 (SHOULDNT)) PARSE.EXP.DISJUNCT :D4 NIL (2 PARSE.DISJUNCT) NIL () PARSE.DISJUNCT :D4 (P 1 ANSWER P 0 CONJUNCTS F 2 PARSE.ATOM) , HXRgHHdgH (38 DREVERSE 21 PARSE.CONJUNCT 17 PARSE.BIN 5 PARSE.CONJUNCT) (34 OR 12 OR) () PARSE.CONJUNCT :D4 (P 1 ANSWER P 0 NEGATIONS F 2 PARSE.ATOM) , HXRgHHdgH (38 DREVERSE 21 PARSE.NEGATION 17 PARSE.BIN 5 PARSE.NEGATION) (34 AND 12 AND) () PARSE.NEGATION :D4 (P 1 ANSWER P 0 NOT F 2 PARSE.ATOM F 3 PARSE.NOTS)  RSYHgIhI(13 PARSE.RELATION 9 PARSE.NOT) (19 NOT) () PARSE.RELATION :D4 (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(53 BUILD.ARITH.EXP2 43 BUILD.IN 14 PARSE.OPTRELATION 5 PARSE.SUM) (59 NOT 34 IN 21 NOT) () PARSE.SUM :D4 (P 2 ANSWER P 1 PRODUCT P 0 PRODUCTS F 3 PARSE.ATOM F 4 PARSE.ADDOPS) W0YSdTIHXdd?gH gIHSggI (80 SHOULDNT 74 BUILD.ARITH.EXP2 71 PARSE.PRODUCT 63 PARSE.BIN 50 PARSE.PRODUCT 42 PARSE.BIN 33 BUILD.ARITH.EXP* 30 DREVERSE 5 PARSE.PRODUCT) (67 - 57 - 37 + 26 +) () PARSE.PRODUCT :D4 (P 2 ANSWER P 1 FACTOR P 0 FACTORS F 3 PARSE.ATOM F 4 PARSE.MULTOPS) p0YSdTIHXddXgH gIHSdggI ggI (105 SHOULDNT 99 BUILD.ARITH.EXP2 96 PARSE.FACTOR 88 PARSE.BIN 76 BUILD.ARITH.EXP2 73 PARSE.FACTOR 65 PARSE.BIN 50 PARSE.FACTOR 42 PARSE.BIN 33 BUILD.ARITH.EXP* 30 DREVERSE 5 PARSE.FACTOR) (92 MOD 82 MOD 69 / 58 / 37 * 26 *) () PARSE.OPTRELATION :D4 (P 1 ANSWER P 0 NOT F 2 PARSE.ATOM F 3 PARSE.LANGUAGE) * RgSgRgYHgIhI(27 PARSE.RELATIONTAIL 23 PARSE.NOT) (33 NOT 18 ~ 12 MESA 6 NOT) () PARSE.RELATIONTAIL :D4 (P 3 ANSWER P 2 SUM P 1 RELOP P 0 RANGE F 4 PARSE.ATOM) (@TggHhIJh(31 PARSE.SUM 27 PARSE.RELOP 15 PARSE.RANGE 11 PARSE.BIN) (19 IN 6 IN) () PARSE.RELOP :D4 NIL (2 PARSE.BIN) NIL () PARSE.ADDOP :D4 NIL (2 PARSE.BIN) NIL () PARSE.MULTOP :D4 NIL (2 PARSE.BIN) NIL () PARSE.FACTOR :D4 (P 2 ANSWER P 1 PRIMARY P 0 ADDOP F 3 PARSE.ATOM F 4 PARSE.ADDOPS) 0STZHggJ J(27 BUILD.ARITH.EXP1 13 PARSE.PRIMARY 9 PARSE.BIN) (23 - 18 -) () PARSE.PRIMARY :D4 (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 Rd3 RdTVWgRdgUgRdgdgdgdgdgdgdgdgdgdgdgg(203 PARSE.PRIMARY.LHS 199 PARSE.PRIMARY.LIST 190 PARSE.PRIMARY.CONS 179 PARSE.PRIMARY.NEW 168 PARSE.PRIMARY.DESCRIPTOR 157 PARSE.PRIMARY.AT 146 PARSE.PRIMARY.ISTYPE 135 PARSE.PRIMARY.SIZE 124 PARSE.PRIMARY.ALL 113 PARSE.PRIMARY.VAL 102 PARSE.PRIMARY.LBRACKET 91 PARSE.PRIMARY.NIL 80 PARSE.ATOM 68 PARSE.PRIMARY.TYPEOP 39 PARSE.PRIMARY.PREFIXOP 28 STRINGP 24 PARSE.BIN 14 BUILD.CHARCODE 11 PARSE.BIN) (194 LIST 184 CONS 173 NEW 162 DESCRIPTOR 151 @ 140 ISTYPE 129 SIZE 118 ALL 107 VAL 96 %[ 85 NILL 74 $ 63 %[ 56 CODE 48 CEDAR 6 CHAR) () PARSE.ATOM :D4 NIL g gg h(14 PARSE.BIN 5 PARSE.BIN) (11 ID 8 QUOTE 2 $) () PARSE.PRIMARY.NIL :D4 NIL g h(5 PARSE.BIN) (2 NILL) () PARSE.PRIMARY.LBRACKET :D4 (P 0 ANSWER) g Xg H(18 PARSE.BIN 11 PARSE.EXPLIST 8 PARSE.BIN) (15 %] 5 %[) () PARSE.PRIMARY.PREFIXOP :D4 (P 2 ANSWER P 1 ORDERLIST P 0 PREFIXOP) 0Xg Yg HI(22 PARSE.BIN 15 PARSE.ORDERLIST 12 PARSE.BIN 5 PARSE.PREFIXOP) (19 %] 9 %[) () PARSE.PRIMARY.VAL :D4 (P 1 ANSWER P 0 ORDERLIST) ! g g Xg gH(24 PARSE.BIN 17 PARSE.ORDERLIST 14 PARSE.BIN 8 PARSE.BIN) (27 VAL 21 %] 11 %[ 5 VAL) () PARSE.PRIMARY.ALL :D4 (P 1 ANSWER P 0 ORDERLIST) ! g g Xg gH(24 PARSE.BIN 17 PARSE.ORDERLIST 14 PARSE.BIN 8 PARSE.BIN) (27 ALL 21 %] 11 %[ 5 ALL) () PARSE.PRIMARY.NEW :D4 (P 2 ANSWER P 1 INITIALIZATION P 0 TYPEEXP) $0g XYg HI (33 BUILD.NEW 28 PARSE.BIN 22 PARSE.OPTCATCH 18 PARSE.INITIALIZATION 14 PARSE.TYPEEXP 11 PARSE.BIN 5 PARSE.NEW) (25 %] 8 %[) () PARSE.PRIMARY.TYPEOP :D4 (P 2 ANSWER P 1 TYPEEXP P 0 TYPEOP) 0Xg Yg HIh(22 PARSE.BIN 15 PARSE.TYPEEXP 12 PARSE.BIN 5 PARSE.TYPEOP) (19 %] 9 %[) () PARSE.PRIMARY.SIZE :D4 (P 2 ANSWER P 1 EXP P 0 TYPEEXP F 3 PARSE.ATOM) B0g g XSgg gHhg gHIh(53 PARSE.BIN 46 PARSE.EXP 42 PARSE.BIN 30 PARSE.BIN 17 PARSE.TYPEEXP 14 PARSE.BIN 8 PARSE.BIN) (57 SIZE 50 %] 34 SIZE 27 %] 22 %, 11 %[ 5 SIZE) () PARSE.PRIMARY.ISTYPE :D4 (P 2 ANSWER P 1 TYPEEXP P 0 EXP) *0g g Xg Yg HI (39 BUILD.ISTYPE 34 PARSE.BIN 27 PARSE.TYPEEXP 24 PARSE.BIN 17 PARSE.EXP 14 PARSE.BIN 8 PARSE.BIN) (31 %] 21 %, 11 %[ 5 ISTYPE) () PARSE.PRIMARY.AT :D4 (P 1 ANSWER P 0 LHS)  g (11 PARSE.LHS 8 PARSE.BIN) (5 @) () PARSE.PRIMARY.DESCRIPTOR :D4 (P 1 ANSWER P 0 DESCLIST)  g g Xg gH(24 PARSE.BIN 17 PARSE.DESCLIST 14 PARSE.BIN 8 PARSE.BIN) (27 DESCRIPTOR 21 %] 11 %[ 5 DESCRIPTOR) () PARSE.PRIMARY.CONS :D4 (P 1 ANSWER P 0 EXPLIST) ' g g Xg gH(30 PARSE.BIN 24 PARSE.OPTCATCH 20 PARSE.EXPLIST 17 PARSE.BIN 11 PARSE.BIN 5 PARSE.THISIS.CEDAR) (33 CONS 27 %] 14 %[ 8 CONS) () PARSE.PRIMARY.LIST :D4 (P 1 ANSWER P 0 EXPLIST) $ g g Xg gH(27 PARSE.BIN 20 PARSE.EXPLIST 17 PARSE.BIN 11 PARSE.BIN 5 PARSE.THISIS.CEDAR) (30 LIST 24 %] 14 %[ 8 LIST) () PARSE.PRIMARY.LHS :D4 (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 (92 SHOULDNT 88 PARSE.PRIMARY.LHS.LIST 78 PARSE.PRIMARY.LHS.CONS 66 PARSE.PRIMARY.LHS.NEW 54 PARSE.BIN 5 PARSE.LHS) (82 LIST 71 CONS 59 NEW 51 %. 38 LIST 32 CONS 24 CEDAR 17 NEW 10 %.) () PARSE.PRIMARY.LHS.NEW :D4 (P 2 ANSWER P 1 INITIALIZATION P 0 TYPEEXP I 0 LHS) -0g g XYg g@HIh(31 PARSE.BIN 25 PARSE.OPTCATCH 21 PARSE.INITIALIZATION 17 PARSE.TYPEEXP 14 PARSE.BIN 8 PARSE.BIN) (34 create 28 %] 11 %[ 5 NEW) () PARSE.PRIMARY.LHS.CONS :D4 (P 2 ANSWER P 1 OPTCATCH P 0 EXPLIST I 0 LHS) %0g g Xg g@H(27 PARSE.BIN 21 PARSE.OPTCATCH 17 PARSE.EXPLIST 14 PARSE.BIN 8 PARSE.BIN) (30 CONS 24 %] 11 %[ 5 CONS) () PARSE.PRIMARY.LHS.LIST :D4 (P 2 ANSWER P 1 OPTCATCH P 0 EXPLIST I 0 LHS) "0g g Xg g@H(24 PARSE.BIN 17 PARSE.EXPLIST 14 PARSE.BIN 8 PARSE.BIN) (27 LIST 21 %] 11 %[ 5 LIST) () PARSE.QUALIFIER :D4 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.LANGUAGE F 3 PARSE.PREFIXOPS F 4 PARSE.TYPEOPS) QdgdQdSTRgQdgQgQdggRgQdgdgihg gg g XH(140 PARSE.BIN 132 PARSE.BIN 125 PARSE.OPTCATCH 121 PARSE.EXPLIST 117 PARSE.BIN 107 PARSE.BIN 67 PARSE.BIN 55 PARSE.BIN 45 PARSE.TYPEOP 24 PARSE.PREFIXOP 14 PARSE.BIN) (137 ^ 129 %] 111 %[ 104 ID 92 CONS 86 LIST 78 CEDAR 71 NEW 61 FREE 50 SIZE 39 CODE 32 CEDAR 7 %.) () PARSE.LHS :D4 (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(232 BUILD.QUALIFY 229 PARSE.QUALIFIER 224 PARSE.QUALIFIER.HERE 219 BUILD.CHARCODE 216 PARSE.BIN 207 PARSE.BIN 192 PARSE.BIN 185 PARSE.EXP 181 PARSE.BIN 160 PARSE.BIN 153 PARSE.OPTCATCH 149 PARSE.EXP 145 PARSE.BIN 138 PARSE.EXP 134 PARSE.BIN 127 PARSE.BIN 113 BUILD.COERCE 107 PARSE.BIN 100 PARSE.OPTTYPE 96 PARSE.EXP 92 PARSE.BIN 85 PARSE.BIN 73 BUILD.COERCE 67 PARSE.BIN 60 PARSE.OPTCATCH 56 PARSE.OPTTYPE 52 PARSE.EXP 48 PARSE.BIN 41 PARSE.BIN 26 PARSE.BIN 13 PARSE.BIN) (211 CHAR 201 ID 189 %) 175 %( 164 APPLY 157 %] 142 %, 131 %[ 120 APPLY 104 %] 89 %[ 79 LOOPHOLE 64 %] 45 %[ 34 NARROW 21 FALSE 7 TRUE) () PARSE.QUALIFIER.HERE :D4 (F 0 PARSE.ATOM F 1 PARSE.ATOM2 F 2 PARSE.QUALIFIER.FIRST F 3 PARSE.LANGUAGE) %PR PgQoSgQohNIL (23 CEDAR 8 %.) ( 31 (CONS LIST) 16 (FREE NEW)) PARSE.OPTCATCH :D4 (P 1 ANSWER P 0 CATCHLIST F 2 PARSE.ATOM)  RgI(15 PARSE.CATCHLIST 11 PARSE.BIN) (6 !) () PARSE.TRANSFEROP :D4 NIL (2 PARSE.BIN) NIL () PARSE.PREFIXOP :D4 NIL (2 PARSE.BIN) NIL () PARSE.TYPEOP :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.BIN 8 PARSE.THISIS.CEDAR) (3 CODE) () PARSE.DESCLIST :D4 (P 3 ANSWER P 2 OPTTYPE P 1 EXP2 P 0 EXP1 F 4 PARSE.ATOM) /@XTggHIJhgHh(24 PARSE.OPTTYPE 20 PARSE.EXP 16 PARSE.BIN 5 PARSE.EXP) (40 desclist 28 desclist 10 %,) () PARSE.DIRECTORY :D4 (F 0 PARSE.ATOM) PgPgg h(26 PARSE.BIN 19 PARSE.INCLUDELIST 9 PARSE.BIN) (23 ; 14 ; 3 DIRECTORY) () PARSE.IMPORTS :D4 (F 0 PARSE.ATOM) Pg h(13 PARSE.MODULELIST 9 PARSE.BIN) (3 IMPORTS) () PARSE.POINTERPREFIX :D4 (P 0 ANSWER F 1 PARSE.ATOM F 2 PARSE.INTERVAL.FIRST) g QRghH(18 PARSE.INTERVAL 8 PARSE.BIN) (15 POINTER 5 POINTER) () PARSE.EXPORTS :D4 (P 1 ANSWER P 0 MODULELIST F 2 PARSE.ATOM)  Rg  h(19 BUILD.STORE.EXPORTS 16 PARSE.MODULELIST 12 PARSE.BIN) (6 EXPORTS) () PARSE.FIELDLIST :D4 (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(69 PARSE.BIN 62 PARSE.TYPELIST 58 PARSE.PAIRLIST 8 PARSE.BIN) (66 %] 55 FIELDLIST 44 %: 38 %, 32 %( 19 ID 12 %] 5 %[) () PARSE.USING :D4 (P 0 IDLIST F 1 PARSE.ATOM) ,Qg!g Qgg H(40 PARSE.BIN 33 PARSE.IDLIST 29 PARSE.BIN 19 PARSE.BIN 12 PARSE.BIN) (37 %] 24 %] 16 %[ 6 USING) () PARSE.CATCHHEAD :D4 (P 1 ANSWER P 0 CATCHCASES F 2 PARSE.ATOM F 3 PARSE.CATCHLIST.FOLLOW) + RShHXRgRSHH (40 DREVERSE 31 PARSE.CATCHCASE 23 PARSE.BIN 11 PARSE.CATCHCASE) (18 ;) () PARSE.DECLIST :D4 (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(70 BUILD.STORE.VARLIST 63 \NCONC2 60 PARSE.DECLARATION 29 SHOULDNT 17 PARSE.BIN 5 PARSE.DECLARATION) (48 %: 42 %, 34 ID 11 ;) ( 26 "PARSE.DECLIST") PARSE.PAIRLIST :D4 (P 1 ANSWER P 0 PAIRITEMS I 0 KIND F 2 PARSE.ATOM) , @ XdgH@ RggH(28 \NCONC2 25 PARSE.PAIRITEM 19 PARSE.BIN 6 PARSE.PAIRITEM) (39 PAIRLIST 33 %, 13 TYPELIST) () PARSE.VARIANTLIST :D4 (P 1 ANSWER P 0 VARIANTITEMS F 2 PARSE.ATOM) % HXRgHgH (33 DREVERSE 21 PARSE.VARIANTITEM 17 PARSE.BIN 5 PARSE.VARIANTITEM) (29 variantlist 12 %,) () PARSE.ORDERLIST :D4 (P 1 ANSWER P 0 OPTEXPS F 2 PARSE.ATOM F 3 PARSE.ORDERLIST.FOLLOW) + RShHXRgHgH (39 DREVERSE 27 PARSE.OPTEXP 23 PARSE.BIN 11 PARSE.OPTEXP) (35 ORDERLIST 18 %,) () PARSE.LHSLIST :D4 (P 1 ANSWER P 0 LHSS F 2 PARSE.ATOM) ! HXRgHH (30 DREVERSE 21 PARSE.LHS 17 PARSE.BIN 5 PARSE.LHS) (12 %,) () PARSE.INCLUDELIST :D4 (F 0 PARSE.ATOM) Pg (16 PARSE.INCLUDEITEM 12 PARSE.BIN 2 PARSE.INCLUDEITEM) (6 %,) () PARSE.MODULELIST :D4 (P 1 ANSWER P 0 MODULEITEMS F 2 PARSE.ATOM F 3 PARSE.MODULELIST.FOLLOW) ' RShHXRgHH (36 DREVERSE 27 PARSE.MODULEITEM 23 PARSE.BIN 11 PARSE.MODULEITEM) (18 %,) () PARSE.ELEMENTLIST :D4 (P 1 ANSWER P 0 ELEMENTS F 2 PARSE.ATOM) ! HXRgHH (30 DREVERSE 21 PARSE.ELEMENT 17 PARSE.BIN 5 PARSE.ELEMENT) (12 %,) () PARSE.BINDLIST :D4 (P 1 ANSWER P 0 BINDITEMS F 2 PARSE.ATOM) ! HXRgHH (30 DREVERSE 21 PARSE.BINDITEM 17 PARSE.BIN 5 PARSE.BINDITEM) (12 %,) () PARSE.STATEMENTLIST :D4 (P 1 ANSWER P 0 STATEMENTS F 2 PARSE.ATOM F 3 PARSE.STATEMENTLIST.FOLLOW) - RShHXRdgRSHH (42 DREVERSE 33 PARSE.STATEMENT 25 PARSE.BIN 11 PARSE.STATEMENT) (19 ;) () PARSE.CASESTMTLIST :D4 (P 1 ANSWER P 0 CASESTMTITEMS I 0 CASEHEAD F 2 PARSE.ATOM) + @ HXRdgRg@ HH (40 DREVERSE 31 PARSE.CASESTMTITEM 20 PARSE.BIN 6 PARSE.CASESTMTITEM) (25 ENDCASE 14 ;) () PARSE.CASELABEL :D4 (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 (83 DREVERSE 74 PARSE.CASETEST 70 PARSE.BIN 57 PARSE.CASETEST 52 BUILD.INITIALIZE.VAR 42 BUILD.ISTYPE 36 PARSE.TYPEEXP 32 PARSE.IDENT) (65 %, 20 %( 14 %: 6 ID) () PARSE.EXITLIST :D4 (P 1 ANSWER P 0 EXITITEMS F 2 PARSE.ATOM F 3 PARSE.EXITLIST.FOLLOW) - RShHXRdgRSHH (42 DREVERSE 33 PARSE.EXITITEM 25 PARSE.BIN 11 PARSE.EXITITEM) (19 ;) () PARSE.KEYLIST :D4 (P 1 ANSWER P 0 KEYITEMS F 2 PARSE.ATOM) % HXRgHgH (33 DREVERSE 21 PARSE.KEYITEM 17 PARSE.BIN 5 PARSE.KEYITEM) (29 KEYLIST 12 %,) () PARSE.CASEEXPLIST :D4 (P 1 ANSWER P 0 CASEEXPITEMS I 0 CASEHEAD F 2 PARSE.ATOM) + @ HXRdgRg@ HH (40 DREVERSE 31 PARSE.CASEEXPITEM 20 PARSE.BIN 6 PARSE.CASEEXPITEM) (25 ENDCASE 14 %,) () PARSE.EXPLIST :D4 (P 2 ANSWER P 1 KEYLIST P 0 ORDERLIST F 3 PARSE.CLASS F 4 PARSE.ATOM2) 0SgTg(21 PARSE.ORDERLIST 17 PARSE.KEYLIST) (12 %: 6 ID) () PARSE.OPEN :D4 (P 0 BINDLIST F 1 PARSE.ATOM) Qgg H(22 PARSE.BIN 15 PARSE.BINDLIST 11 PARSE.BIN) (19 ; 6 OPEN) () PARSE.CLASS :D4 NIL o (6 PARSE.BIN) NIL ( 3 (MONITOR PROGRAM)) PARSE.CASEHEAD :D4 (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(54 PARSE.BIN 47 PARSE.OPTEXP 43 PARSE.BIN 28 PARSE.BINDITEM 24 PARSE.BIN 15 PARSE.EXP 11 PARSE.BIN) (58 CASEHEAD 51 FROM 40 SELECT 21 WITH 6 SELECT) () PARSE.READONLY :D4 (F 0 PARSE.ATOM) Pg(9 PARSE.BIN) (3 READONLY) () PARSE.ORDERED :D4 (F 0 PARSE.ATOM) Pg(9 PARSE.BIN) (3 ORDERED) () PARSE.BASE :D4 (F 0 PARSE.ATOM) Pg(9 PARSE.BIN) (3 BASE) () PARSE.PACKED :D4 (F 0 PARSE.ATOM) Pg(9 PARSE.BIN) (3 PACKED) () PARSE.HEAP :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.THISIS.CEDAR 8 PARSE.BIN) (3 UNCOUNTED) () PARSE.INLINE :D4 (F 0 PARSE.ATOM) Pg(9 PARSE.BIN) (3 INLINE) () PARSE.ARGUMENTS :D4 NIL h(5 PARSE.RETURNLIST 2 PARSE.ARGLIST) NIL () PARSE.INTERFACE :D4 NIL h(8 PARSE.SHARES 5 PARSE.EXPORTS 2 PARSE.IMPORTS) NIL () PARSE.SHARES :D4 (F 0 PARSE.ATOM) Pg (12 PARSE.IDLIST 9 PARSE.BIN) (3 SHARES) () PARSE.DEFAULT :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.DEFAULTOPT 9 PARSE.BIN) (3 _) () PARSE.OPTSIZE :D4 (P 1 ANSWER P 0 EXP F 2 PARSE.ATOM)  Rgg HI(22 PARSE.BIN 15 PARSE.EXP 11 PARSE.BIN) (19 %] 6 %[) () PARSE.BOUNDS :D4 (P 2 ANSWER P 1 EXP2 P 0 EXP1) 0Xg YHIh(15 PARSE.EXP 12 PARSE.BIN 5 PARSE.EXP) (9 |..|) () PARSE.LENGTH :D4 (P 1 ANSWER P 0 EXP)  g Xg H(18 PARSE.BIN 11 PARSE.EXP 8 PARSE.BIN) (15 %] 5 %[) () PARSE.INDEXTYPE :D4 (F 0 PARSE.ATOM) Pgh(8 PARSE.TYPEEXP) (3 OF) () PARSE.ELSEPART :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.STATEMENT 9 PARSE.BIN) (3 ELSE) () PARSE.OTHERPART :D4 (F 0 PARSE.ATOM) Pg(12 PARSE.STATEMENT 9 PARSE.BIN) (3 =>) () PARSE.FREE :D4 (P 1 ANSWER P 0 LHS)  Xg g gHh(18 PARSE.BIN 12 PARSE.BIN 5 PARSE.LHS) (21 FREE 15 FREE 9 %.) () PARSE.CATCHANY :D4 (P 1 ANSWER P 0 STATEMENT)  g g XgHh(17 PARSE.STATEMENT 14 PARSE.BIN 8 PARSE.BIN) (21 ANY 11 => 5 ANY) () PARSE.NOT :D4 NIL (2 PARSE.BIN) NIL () PARSE.NEW :D4 (F 0 PARSE.ATOM F 1 PARSE.LANGUAGE) %PgQgg g h(33 PARSE.BIN 26 PARSE.BIN 19 PARSE.LHS 14 PARSE.BIN) (30 NEW 23 %. 9 CEDAR 3 NEW) () PARSE.OPTTYPE :D4 (F 0 PARSE.ATOM) Pgg(11 PARSE.TYPEEXP 8 PARSE.BIN) (15 ANY 3 %,) () PARSE.ARGLIST :D4 (P 0 ARGLIST F 1 PARSE.ATOM) &QgQgg Xd h(34 BUILD.STORE.ARGLIST 29 PARSE.FIELDLIST 22 PARSE.BIN 18 PARSE.THISIS.CEDAR) (26 ARGLIST 13 ANY 6 %[) () PARSE.RETURNLIST :D4 (P 0 RETURNLIST F 1 PARSE.ATOM) *QgQgg Xd h(38 BUILD.STORE.RETURNLIST 33 PARSE.FIELDLIST 26 PARSE.BIN 22 PARSE.THISIS.CEDAR 12 PARSE.BIN) (30 RETURNLIST 17 ANY 6 RETURNS) () BUILD.INIT :D4 (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) A@cd cdh oi Pi i ghdddddddchcdc(35 TERPRI 30 PRIN1 24 PRIN1 16 SETTOPVAL 9 FILECOMS 6 U-CASE) (38 MODULE) ( 20 "Creating ") BUILD.PUSH.SCOPE :D4 (F 0 BUILD.SCOPE.STACK F 1 BUILD.CURRENT.SCOPE F 2 BUILD.NEXT.SCOPE) $QRchddddddddcPPcNIL NIL () BUILD.POP.SCOPE :D4 (F 0 BUILD.SCOPE.STACK F 1 BUILD.CURRENT.SCOPE F 2 BUILD.NEXT.SCOPE) QcPPccNIL NIL () BUILD.GC.SCOPE :D4 (F 0 BUILD.NEXT.SCOPE) hddddddddchNIL NIL () BUILD.STORE.EXPORTS :D4 (L (0 EXPORTS) F 0 BUILD.PREFIX) @dchNIL NIL () BUILD.STORE.IDENTLIST :D4 (L (0 IDENTLIST) F 0 BUILD.NEXT.SCOPE) P@hNIL NIL () BUILD.STORE.INTERFACES :D4 (P 0 INTERFACE I 0 INTERFACES) @dH h(10 BUILD.STORE.INTERFACE) NIL () BUILD.STORE.INTERFACE :D4 (I 0 INTERFACE) @gi h(7 PUTPROP) (3 MESA.INTERFACE) () BUILD.STORE.OPEN :D4 (L (0 OPEN) F 0 BUILD.NEXT.SCOPE) P@hNIL NIL () BUILD.STORE.USING :D4 (P 0 USE I 1 USING I 0 INTERFACE) AdHg@ h(14 PUTPROP) (10 MESA.USEDBY) () BUILD.INITIALIZATION :D4 (P 0 ANSWER I 2 INITIALIZATION I 1 TYPEEXP I 0 IDENTLIST F 1 BUILD.CURRENT.SCOPE) /A dg@AB g@AB @ABQ XH(42 BUILD.INITIALIZE.VARS 34 BUILD.INITIALIZE.RECORD 20 BUILD.INITIALIZE.FN 6 BUILD.TYPEATOM) (25 MRECORD 10 PROC) () BUILD.INITIALIZE.VARS :D4 (P 1 ID P 0 ANSWER I 3 SCOPE I 2 INITIALIZATION I 1 TYPEEXP I 0 IDENTLIST) ) 0@dYABC KJh\[Jh[L(17 BUILD.INITIALIZE.VAR) NIL () BUILD.INITIALIZE.VAR :D4 (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 @(55 PRIN1 46 PRIN1 40 BUILD.ADD.TO.FILECOMS 31 BUILD.COERCE 21 \NCONC2) (37 INITVARS) ( 51 ",") BUILD.INITIALIZE.FN :D4 (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(88 PRIN1 80 PRIN1 75 BUILD.GC.SCOPE 72 BUILD.ADD.TO.FILECOMS 65 PUTD 59 BUILD.LAMBDA 54 PUTPROP 46 PUTPROP 38 PUTPROP 30 PUTPROP 7 BUILD.PROCID) (69 FNS 50 MESA.RETURNLIST 42 MESA.ARGLIST 34 MESA.FN 26 MESA.USEDBY) ( 84 ",") BUILD.INITIALIZE.RECORD :D4 (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(58 PRIN1 50 PRIN1 45 PUTPROP 37 PUTPROP 29 BUILD.ADD.TO.FILECOMS 22 EVAL 17 BUILD.RECORD 7 BUILD.RECORDID) (41 MESA.TYPE 33 MESA.USEDBY 26 RECORDS) ( 54 ",") BUILD.RECORD :D4 (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(165 SHOULDNT 152 \NCONC2 145 BUILD.COERCE 132 PACK* 115 PACK* 93 REVERSE 71 \NCONC2 64 BUILD.COERCE 30 REVERSE) (169 RECORD 135 _ 128 FIELD 111 FIELD 85 TYPELIST 54 _ 22 PAIRLIST 12 TYPERECORD) () BUILD.TYPE :D4 (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(49 PUTPROP 40 PUTPROP 26 BUILD.TYPEID 18 BUILD.INITIALIZE.RECORD 6 BUILD.TYPEATOM) (45 MESA.TYPE 36 MESA.USEDBY 9 MRECORD) () BUILD.STORE.ARGLIST :D4 (I 0 ARGLIST F 0 BUILD.NEXT.SCOPE) P@@g@ h(18 BUILD.STORE.PAIRLIST) (11 PAIRLIST) () BUILD.STORE.RETURNLIST :D4 (I 0 RETURNLIST F 0 BUILD.NEXT.SCOPE) P@@g@ h(20 BUILD.STORE.PAIRLIST) (13 PAIRLIST) () BUILD.STORE.PAIRLIST :D4 (P 2 PAIRITEM I 0 PAIRLIST F 3 BUILD.NEXT.SCOPE) #0@dZS IHhYHhYh(12 BUILD.STORE.PAIRITEM) NIL () BUILD.STORE.PAIRITEM :D4 (I 1 SCOPE I 0 PAIRITEM) AA@h @(10 \NCONC2) NIL () BUILD.STORE.VARLIST :D4 (L (0 VARLIST) F 0 BUILD.CURRENT.SCOPE) P@hNIL NIL () BUILD.ID :D4 (P 0 ANSWER I 1 ID I 0 INTERFACE) (oA A@ Ag bddoA (37 PACK* 23 GETPROP 10 STRPOS) (20 MESA.USEDBY) ( 33 "." 6 ".") BUILD.FIELDID :D4 (L (1 ID 0 INTERFACE)) ANIL NIL () BUILD.PROCID :D4 (I 1 ID I 0 INTERFACE) @A (4 BUILD.ID) NIL () BUILD.RECORDID :D4 (I 1 ID I 0 INTERFACE) @A (4 BUILD.ID) NIL () BUILD.TYPEID :D4 (I 1 ID I 0 INTERFACE F 0 PARSE.PREDEFINED.TYPES) APA@A (10 BUILD.ID) NIL () BUILD.VARID :D4 (P 0 ANSWER I 1 ID I 0 INTERFACE) A @A @A (18 BUILD.GLOBALVARID 12 BUILD.LOCALVARID 6 BUILD.LOOKUP) NIL () BUILD.LOCALVARID :D4 (L (1 ID 0 INTERFACE)) ANIL NIL () BUILD.GLOBALVARID :D4 (I 1 ID I 0 INTERFACE) @A (4 BUILD.ID) NIL () BUILD.ULTIMATE.TYPE :D4 (I 0 EXP) @ (6 BUILD.REFINE.TYPE 3 BUILD.IMMEDIATE.TYPE) NIL () BUILD.REFINE.TYPE :D4 (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(156 PUTPROP 145 TERPRI 140 PRIN1 131 PRIN1 125 TERPRI 119 BUILD.LOOKUP.TYPE) (198 UNDECLARED 188 MREF 179 MPOINTER 167 MINTERVAL 153 UNDECLARED 150 MESA.TYPE 107 ANY 100 UNSPECIFIED 93 STRING 88 StringBody 83 CARDINAL 77 WORD 70 NAT 64 INTEGER 57 INT 50 CHARACTER 45 CHAR 39 BOOLEAN 33 BOOL 20 INTERFACE 14 MPROC 6 ANY) ( 136 " type unknown.") BUILD.IMMEDIATE.TYPE :D4 (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 8 BUILD.CARDINAL.FNS F 9 BUILD.MIXED.FNS F 10 BUILD.REAL.FNS) p@@digl@ Ki @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@IdgB@@Jg \dg]gKMi @i oWIdWdWgWi @i o(426 PRIN1 420 TERPRI 376 PRIN1 370 TERPRI 339 GETPROP 295 PRIN1 289 TERPRI 272 BUILD.ULTIMATE.TYPE 256 BUILD.IMMEDIATE.TYPE 235 PRIN1 229 TERPRI 217 BUILD.IMMEDIATE.TYPE 190 PRIN1 184 TERPRI 170 BUILD.ULTIMATE.TYPE 148 PRIN1 142 TERPRI 127 BUILD.ULTIMATE.TYPE 114 BUILD.IMMEDIATE.TYPE 95 TERPRI 90 PRIN1 81 PRIN1 75 TERPRI 62 STRINGP 35 PRIN1 29 TERPRI 23 BUILD.LOOKUP.TYPE) (408 MIXED 357 PAIRLIST 344 UNDECLARED 336 MESA.TYPE 317 fetch 306 create 278 MARRAY 262 ELT 246 COND 222 MLIST 207 LIST 200 CONS 176 MLIST 160 CDR 133 MLIST 118 CAR 105 SETQ 98 ANY 66 STRING 57 REAL 50 CARDINAL 12 BOOLEAN) ( 431 " type unknown." 381 " type unknown." 300 " type unknown." 240 " type unknown." 195 " type unknown." 153 " type unknown." 86 " type unknown." 40 " type unknown.") BUILD.LOOKUP.TYPE :D4 (P 1 TYPE P 0 PAIRITEM I 0 ID) E @ Xdd@g @g @g @ @g g@g g(61 GETPROP 49 GETPROP 41 BUILD.ID 37 GETPROP 29 GETPROP 20 GETPROP 6 BUILD.LOOKUP) (66 INTERFACE 58 MESA.INTERFACE 53 MPROC 46 MESA.FN 34 MESA.USEDBY 26 MESA.USEDBY 17 MESA.TYPE) () BUILD.LOOKUP :D4 (P 2 SCOPE P 0 ANSWER I 0 ID F 3 BUILD.CURRENT.SCOPE F 4 BUILD.SCOPE.STACK) 0STYH@JXINIL NIL () BUILD.TYPEATOM :D4 (L (0 TYPEEXP)) @dlNIL NIL () BUILD.QUALIFY :D4 (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 (94 BUILD.QUALIFY.ID 81 BUILD.QUALIFY.EXPLIST 40 PACK* 22 BUILD.QUALIFY.TYPEOP 13 BUILD.QUALIFY.PREFIXOP) (85 ^ 65 CDR 59 rest 49 CAR 44 first 28 SIZE) ( 36 ".") BUILD.QUALIFY.PREFIXOP :D4 (I 1 QUALIFIER I 0 LHS) Adgdg@ @(16 BUILD.ARITH.EXP*) (10 MIN 4 MAX) () BUILD.QUALIFY.TYPEOP :D4 (L (1 QUALIFIER 0 LHS)) A@NIL NIL () BUILD.QUALIFY.EXPLIST :D4 (P 3 ANSWER P 2 EXPITEMS P 1 TYPEATOM P 0 TYPE I 1 EXPLIST I 0 LHS) @@dlh@ b Xd YAZIdgg@Jg@A Idgg@Jhgg@J[@Ei @i oi Ai oi i Ag$J kjg@J lj@J @J(172 \APPEND2 160 LENGTH 143 LENGTH 129 TERPRI 124 PRIN1 115 PRIN1 109 PRIN1 100 PRIN1 94 TERPRI 56 BUILD.CALL 25 BUILD.TYPEATOM 20 BUILD.ULTIMATE.TYPE 15 BUILD.ID) (152 ELT 136 ORDERLIST 81 ELT 76 MRECORD 68 NTHCHARCODE 62 STRING 49 MPROC 40 ELT 34 MARRAY) ( 120 "?" 105 " qualified by ") BUILD.QUALIFY.ID :D4 (P 2 ANSWER P 1 TYPEATOM P 0 TYPE I 1 QUALIFIER I 0 LHS) 0@ Xd YddggHAhg@hg3i @i oi Ai oi i g@AhvIdg@A gA@A\@hZIg3i @i oi Ai oi i g@Ah!Hg ggHAhg@hA@h(188 GETPROP 171 TERPRI 166 PRIN1 157 PRIN1 151 PRIN1 142 PRIN1 136 TERPRI 109 BUILD.ID 86 TERPRI 81 PRIN1 72 PRIN1 66 PRIN1 57 PRIN1 51 TERPRI 11 BUILD.TYPEATOM 6 BUILD.ULTIMATE.TYPE) (204 of 196 fetch 191 UNDECLARED 185 MESA.TYPE 175 NTHCHARCODE 129 STRING 113 MPROC 101 INTERFACE 90 ELT 44 MARRAY 34 of 24 fetch 17 MRECORD) ( 162 "?" 147 " qualified by " 77 "?" 62 " qualified by ") BUILD.ARITH.EXP1 :D4 (I 1 EXP1 I 0 ARITHOP) @dggbAh (18 BUILD.ARITH.EXP*) (10 0- 4 -) () BUILD.ARITH.EXP2 :D4 (P 0 ANSWER I 2 EXP2 I 1 EXP1 I 0 ARITHOP) @ABh (11 BUILD.ARITH.EXP*) NIL () BUILD.ARITH.EXP* :D4 (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^]Lh]NbIAZIgIgJ @dgJ3JJkK@g@gghHggJhJ(82 BUILD.ARITH.ADD1SUB1 12 BUILD.COERCE.ARITHOP 6 BUILD.STRONGEST.TYPE.AMONG) (137 NOT 132 CARDINAL 123 >= 120 <= 113 %# 88 0- 76 IDIFFERENCE 70 IPLUS 37 FLOATP 17 REAL) () BUILD.ARITH.ADD1SUB1 :D4 (P 3 ANSWER P 2 EXP2 P 1 EXP1 P 0 FN I 0 EXP) H@@ lj@@X@Y@ZHdgIkd JkI gJkI (69 BUILD.SUB1 53 BUILD.ADD1 43 BUILD.ADD1 6 FLENGTH) (57 IDIFFERENCE 31 IPLUS) () BUILD.COERCE.ARITHOP :D4 (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(36 SHOULDNT) (26 REAL 15 MIXED 4 CARDINAL) () BUILD.STRONGEST.TYPE.AMONG :D4 (P 2 EXP P 0 TYPE I 0 EXPS) %0gX@YHdgHJ I(30 BUILD.STRONGEST.TYPE 27 BUILD.ULTIMATE.TYPE) (19 REAL 5 CARDINAL) () BUILD.STRONGEST.TYPE :D4 (L (1 TYPE2 0 TYPE1) F 0 BUILD.CARDINAL.TYPES) N@PgbAPgb@dgAdgggggAgg@ggNIL (75 REAL 69 REAL 64 REAL 58 REAL 52 MIXED 48 MIXED 42 REAL 38 CARDINAL 33 CARDINAL 24 CARDINAL 16 CARDINAL 6 CARDINAL) () BUILD.COERCE :D4 (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 @(105 BUILD.COERCE.EXPLIST 75 BUILD.COERCE.MLIST 62 BUILD.COERCE.MARRAY 56 TERPRI 51 PRIN1 42 PRIN1 36 PRIN1 27 TERPRI 22 FRESHLINE 6 BUILD.REFINE.TYPE) (92 ORDERLIST 86 KEYLIST 68 MLIST 14 MARRAY) ( 47 " array type." 32 "Coercion to ") BUILD.COERCE.MARRAY :D4 (P 2 ITEM P 1 ANSWER P 0 TYPE I 1 MARRAY I 0 EXP) L0AX@d?dgdgih*g0@dZH LKh]\Kh\M@(48 BUILD.COERCE) (35 LIST 23 ORDERLIST 17 KEYLIST) () BUILD.COERCE.MLIST :D4 (P 5 ITEM P 1 ANSWER P 0 TYPE I 1 MLIST I 0 EXP) ] AX@dRdg+g@@d]H KJh\[Jh[L dgg@H @A h(86 BUILD.COERCE 78 BUILD.COERCE 35 BUILD.COERCE) (71 CONS 64 CONS 22 LIST 15 LIST) () BUILD.COERCE.EXPLIST :D4 (P 15 ALIGNVALUE P 14 TYPEITEM P 12 I P 9 ALIGNVALUE P 8 PAIRITEM P 3 ANSWER P 2 SETTINGS P 1 ALIGNMENT P 0 FIELDLIST I 1 MRECORD I 0 EXPLIST) HP@ddgdgih@Adgai Ai oi i @g90@d\gLh]NM_^OgAJ ^MA@X@ HdgEIH2 N_MO_OgOOgOh _NMgXIHk3O_OO@_#OgOgO gOh _O_O_Ok_gAJ(315 SHOULDNT 288 \NCONC2 276 PACK* 207 \NCONC2 140 BUILD.ALIGN 123 LAST 63 TERPRI 58 PRIN1 49 PRIN1 43 TERPRI) (319 create 279 _ 271 FIELD 263 TRASH 223 TYPELIST 198 _ 187 TRASH 148 PAIRLIST 115 create 86 _ 70 KEYLIST 35 MRECORD 18 ORDERLIST 12 KEYLIST) ( 54 " not a record") BUILD.ALIGN :D4 (P 14 OPTEXP P 13 TYPEITEM P 7 OPTEXP P 6 PAIRITEM P 0 ANSWER I 1 EXPLIST I 0 FIELDLIST) @Ah@gAAdg@dg@A@RJIK_NNO LMh\[JIMh\gA@RO_OO_OOO _OOh__O_O_Oh_gA@g0@)dNNNA JIh[ZIhZK(267 SHOULDNT 241 BUILD.ALIGN.VALUE 212 SHOULDNT 154 BUILD.ALIGN.VALUE 78 BUILD.ALIGN.VALUE) (207 PAIRLIST 198 KEYLIST 108 TYPELIST 38 PAIRLIST 25 ORDERLIST 13 ANY) () BUILD.ALIGN.VALUE :D4 (P 0 ANSWER I 2 OPTEXP I 1 DEFAULT I 0 TYPEEXP) ABdggB@ A (29 COPY 22 BUILD.COERCE) (16 TRASH 11 TRASH) () BUILD.ADD.TO.FILECOMS :D4 (P 1 FILECOMS P 0 FILECOMSVAR I 1 TYPE I 0 NAME F 2 BUILD.FILECOMS) , RXd YddAd@h A@hIYHI h(40 SETTOPVAL 25 \NCONC2 8 GETTOPVAL) NIL () BUILD.ADD1 :D4 (L (0 EXP)) @3 g@hkNIL (7 ADD1) () BUILD.CALL :D4 (I 1 EXPLIST I 0 FN) @dg A (11 BUILD.ALIGN 7 GETPROP) (4 MESA.ARGLIST) () BUILD.CHARCODE :D4 (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(179 PACK* 169 PACK* 158 PACK* 145 MKATOM 142 CHARACTER) (185 CHARCODE 175 ^ 165 %# 154 %#^ 108 DEL 99 SPACE 87 ESC 78 CR 66 FF 57 LF 44 TAB 34 BS 21 BELL 11 NULL) () BUILD.COND :D4 (P 2 ANSWER P 1 TAIL P 0 HEAD I 2 EXP3 I 1 EXP2 I 0 EXP1) -0@A XBdiB hYgHIgB(20 BUILD.TAIL 7 BUILD.TAIL) (36 COND 27 COND) () BUILD.COPY.OF :D4 (I 0 EXP) @ddg (16 COPY) (8 SETQ) () BUILD.FETCH :D4 (P 1 ANSWER P 0 MRECORD I 2 DATUM I 1 FIELDNAME I 0 RECORDNAME) n @'B Xdgdbg@AhgBhA i oi @i oi Ai oi Bi i ABh(101 TERPRI 96 PRIN1 90 PRIN1 81 PRIN1 75 PRIN1 66 PRIN1 60 PRIN1 51 TERPRI 45 BUILD.REFINE.TYPE 9 BUILD.ULTIMATE.TYPE) (36 of 28 fetch 16 MRECORD) ( 86 " " 71 " " 56 "Bad fetch ") BUILD.FORCLAUSE.BY :D4 (L (2 EXP2 1 EXP1 0 CONTROLID)) g@gAgBhNIL (10 by 6 _ 2 for) () BUILD.FORCLAUSE.IN :D4 (P 3 ANSWER P 2 UBOUND P 1 LBOUND P 0 INTERVAL I 2 RANGE I 1 DIRECTION I 0 CONTROLID) z@BXdYHZHdg1dgJ Z#dgI YgI J ZAgg@gIgJog@gIgJh(75 SHOULDNT 70 BUILD.SUB1 65 BUILD.ADD1 53 BUILD.ADD1 39 BUILD.SUB1) (111 to 107 from 103 for 94 to 90 from 86 for 80 DECREASING 59 OO 46 OC 32 CO 25 CC) ( 99 (by -1)) BUILD.FORCLAUSE.THROUGH :D4 (I 0 RANGE) gh@ (7 BUILD.FORCLAUSE.IN) (2 X) () BUILD.IN :D4 (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(132 BUILD.COPY.OF 127 SHOULDNT 43 TERPRI 38 PRIN1 29 PRIN1 23 TERPRI 6 BUILD.REFINE.TYPE) (136 AND 122 IGREATERP 118 ILESSP 113 OO 107 ILEQ 103 IGREATERP 97 OC 90 ILESSP 86 IGEQ 80 CO 73 ILEQ 69 IGEQ 63 CC 47 in 15 MRANGE) ( 34 " not a range.") BUILD.ISTYPE :D4 (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(59 TERPRI 54 PRIN1 48 PRIN1 39 PRIN1 33 PRIN1 24 TERPRI 6 BUILD.REFINE.TYPE) (64 type? 13 MRECORD) ( 44 " " 29 "Bad istype ") BUILD.LAMBDA :D4 (P 5 ITEM P 1 ANSWER P 0 ARGLIST I 1 BODY I 0 PAIRLIST) 5 @@dhM KJh\[Jh[LXgHA (48 BUILD.TAIL 17 BUILD.LOCALVARID) (43 LAMBDA) () BUILD.NEW :D4 (I 1 INITIALIZATION I 0 TYPEEXP) A@ (4 BUILD.COERCE) NIL () BUILD.OR :D4 (L (0 EXPS)) @i@g@NIL (12 OR) () BUILD.PROG :D4 (P 8 PAIRITEM P 2 ANSWER P 1 LAST P 0 VARS I 0 STATEMENTLIST F 9 BUILD.CURRENT.SCOPE) PW@ ZW0W dhO N Mh_^Mh^O XdWJh[h{J 0W8\lLiK dhO N Mh_^Mh^O$IIdgdgihJh gHJJ (227 BUILD.PROGN 214 \APPEND2 209 BUILD.RETURN 154 BUILD.LOCALVARID 138 LAST 78 \APPEND2 50 BUILD.LOCALVARID 17 \APPEND2 14 BUILD.TAIL 11 BUILD.PROGN) (218 PROG 197 RETURN 191 GO) () BUILD.PROGN :D4 (P 3 EXP I 0 EXPS) 7@d+@g0@dK XIHZYJ YH(48 LAST 26 BUILD.TAIL) (11 PROGN) () BUILD.REPLACE :D4 (P 1 ANSWER P 0 MRECORD I 3 VALUE I 2 DATUM I 1 FIELDNAME I 0 RECORDNAME)  @-B Xdg$dbg@AhgBgChP i oi @i oi Ai oi Bi oi Ci i ABh(122 TERPRI 117 PRIN1 111 PRIN1 102 PRIN1 96 PRIN1 87 PRIN1 81 PRIN1 72 PRIN1 66 PRIN1 57 TERPRI 51 BUILD.REFINE.TYPE 9 BUILD.ULTIMATE.TYPE) (40 with 36 of 28 replace 16 MRECORD) ( 107 " " 92 " " 77 " " 62 "Bad replace ") BUILD.RETURN :D4 (P 12 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 13 BUILD.CURRENT.SCOPE F 14 BUILD.SCOPE.STACK F 15 BUILD.PREFIX) WW_hXdiHYdg@_OiO@=WI Zg 'i oi Ji oi i g[@ 9@ H&d_hO _O Oh__Oh_O]dghgMggMh(140 BUILD.LOCALVARID 114 BUILD.ALIGN 105 TERPRI 100 PRIN1 91 PRIN1 85 PRIN1 76 TERPRI 70 GETPROP 63 BUILD.PROCID) (194 LIST 191 RETURN 186 RETURN 178 RETURN 109 ANY 67 MESA.RETURNLIST 30 DO) ( 96 "." 81 "No returnlist for ") BUILD.SELECTQ :D4 (P 18 SCLAUSE P 14 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__Oh_O]@N#d_$K _O Oh_"_ Oh_ O"^dLINBh B_MdgMiO h gMO(253 CL:APPEND 247 BUILD.TAIL 225 CL:APPEND 182 BUILD.SELECTQ.SCLAUSE 136 BUILD.SELECTQ.CCLAUSE 117 DREVERSE 112 DREVERSE 45 BUILD.SELECTQ.FN 40 BUILD.ULTIMATE.TYPE 36 BUILD.SELECTTRUEFROM) (258 COND 240 COND) ( 89 (IN type?)) BUILD.SELECTQ.FN :D4 (L (0 TYPE)) @gggNIL (12 SELECTQ 8 SELCHARQ 3 CHARACTER) () BUILD.SELECTQ.CCLAUSE :D4 (P 7 KEY P 3 ANSWER P 2 TESTS P 1 KEYS P 0 EXP2 I 2 TYPE I 1 CCLAUSE I 0 EXP) J@@ XAY@I @Id_@O MLh^]Lh]NZddgJA(33 BUILD.SELECTQ.TEST 16 BUILD.SELECTQ.TEST 6 BUILD.COPY.OF) (66 OR) () BUILD.SELECTQ.TEST :D4 (I 1 KEY I 0 EXP) 0Addg@A AgAg@gAhh(18 BUILD.IN) (37 QUOTE 33 FMEMB 26 type? 8 IN) () BUILD.SELECTQ.SCLAUSE :D4 (P 2 KEY P 1 ANSWER P 0 KEYS I 1 TYPE I 0 SCLAUSE) 50@X0HdZA LKh]\Kh\Mddd@(18 BUILD.SELECTQ.KEY) NIL () BUILD.SELECTQ.KEY :D4 (I 1 TYPE I 0 KEY) FAg>@d8dgg'g@@g @g hh@(58 BUILD.SELECTQ.KEY 46 BUILD.SELECTQ.KEY) (55 CHARACTER 43 CHARACTER 31 IN 25 IN 16 CHARCODE 3 CHARACTER) () BUILD.SELECTTRUEFROM :D4 (P 4 CLAUSE P 0 ANSWER I 1 OTHERWISE I 0 CLAUSES) G@@d\ JIh[ZIhZKbdAg@iA h g@A(59 CL:APPEND 53 BUILD.TAIL 14 BUILD.SELECTTRUEFROM.CLAUSE) (64 COND 47 COND) () BUILD.SELECTTRUEFROM.CLAUSE :D4 (I 0 CLAUSE) @ @(4 BUILD.OR) NIL () BUILD.SETQ :D4 (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@@Ah}@@A (197 BUILD.REPLACE 160 LENGTH 155 PRIN1 149 PRIN1 140 PRIN1 134 PRIN1 104 CL:APPEND 43 BUILD.SETQ.ARRAY 25 BUILD.COERCE 19 BUILD.ULTIMATE.TYPE 15 BUILD.SETQ.ORDERLIST) (177 SETA 114 RPLCHARCODE 109 NTHCHARCODE 97 with 92 replace 85 fetch 69 SETA 63 ELT 51 SETQ 36 MARRAY 9 ORDERLIST) ( 145 " " 130 "Bad setq ") BUILD.SETQ.ARRAY :D4 (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ԻNh](98 BUILD.SETQ 79 BUILD.PROGN 52 TERPRI 47 PRIN1 41 PRIN1 32 PRIN1 26 PRIN1 17 TERPRI) (87 ELT 56 SETQ 9 ORDERLIST) ( 37 " " 22 "Bad setq array ") BUILD.SETQ.ORDERLIST :D4 (P 11 ACCESS P 10 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 lPoHR N_MOA_OOIh _OOh__NMOh_HA NO[gIAhK[d _gIh _OOh__N^Oh_(182 BUILD.SETQ 164 BUILD.PROGN 103 BUILD.SETQ 53 LENGTH 48 SUBATOM 36 STRPOS 24 BUILD.SETQ) (175 POP 151 SETQ 17 CAR) ( 62 (CAR CADR CADDR) 32 ".") BUILD.SUB1 :D4 (L (0 EXP)) @3 g@hkNIL (7 SUB1) () BUILD.TAIL :D4 (L (0 EXP)) @dd dgNIL (11 PROGN) () (PRETTYCOMPRINT MESATOLISPCOMS) (RPAQQ MESATOLISPCOMS ((* ;; "MESATOLISP -- By Kelly Roach. Lyricized by L. Masinter") (COMS (* ; "SCAN") (INITVARS (SETQ SCAN.STRING (CL:MAKE-ARRAY 256 :INITIAL-ELEMENT (QUOTE #\A) :ELEMENT-TYPE ( QUOTE CL:CHARACTER) :ADJUSTABLE T :FILL-POINTER 0)) (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.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? SETQ SCAN.STRING (CL:MAKE-ARRAY 256 :INITIAL-ELEMENT (QUOTE #\A) :ELEMENT-TYPE (QUOTE CL:CHARACTER) :ADJUSTABLE T :FILL-POINTER 0)) (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 1987)) NIL