(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 5-Dec-86 06:52:48" ("compiled on " {ERIS}SOURCES>MASTERSCOPE.;33) "30-Nov-86 17:19:54" brecompiled changes%: MASTERSCOPE in "Xerox Lisp 30-Nov-86 ..." dated "30-Nov-86 17:50:29") (FILECREATED " 5-Dec-86 06:50:19" {ERIS}SOURCES>MASTERSCOPE.;33 173297 changes to%: (VARS MASTERSCOPECOMS) (FNS MASTERSCOPE) previous date%: " 4-Dec-86 16:55:44" {ERIS}SOURCES>MASTERSCOPE.;31) ADDHASH D1 (L (2 ARRAY 1 VAL 0 ITEM)) !@B HAHHAh @AhB h(29 PUTHASH 20 \NCONC2 4 GETHASH) NIL () SUBHASH D1 (L (2 ARRAY 1 VAL 0 ITEM)) @B HAH @hB h(22 PUTHASH 15 DREMOVE 4 GETHASH) NIL () MAKEHASH D1 (L (0 N)) @g (6 HASHARRAY) (3 MSREHASH) () MSREHASH D1 (L (0 HA)) @ lll2(3 HARRAYSIZE) NIL () MSVBTABLES D1 (L (1 MOD 0 VERB)) N@db@bgA o+g!g@dgxAdgoggAdggoAdgoggAdgggoAgggAhg@dg6AdggrgggA o]gSgMgAh?g9@dgpAdgo!goAdgooAdgogoAdgogogAho@dgAhgg:AdgggowAdgohh`oY@dgAhHgBg8Adgg.gg#Adggh o@dg9AdggggAdgghog+AdggggAho@dgAdgo~gosAdggfgg\AdgoNoGAdgo9gg/Adgo!goAdgogjddhNIL (832 TYPE 821 VALUE 808 TESTING 796 RECORDS 789 PROP 784 PROPNAMES 772 PREDICATE 751 CL:LOCALLY 744 LOCALFREEVARS 739 INDIRECTLY 734 CLISP 728 I.S.OPRS 715 FREELY 703 FIELDS 692 USE 668 TEST 663 CL:LOCALLY 657 TESTFREE 651 FREELY 643 TEST 622 SMASH 616 CL:LOCALLY 608 SMASHFREE 603 FREELY 597 REPLACE 591 FIELDS 582 SMASH 559 SET 553 CL:LOCALLY 545 SETFREE 540 FREELY 534 REPLACE 528 FIELDS 520 SET 514 REPLACE 499 REPLACE 469 CL:LOCALLY 455 FREELY 449 FETCH 443 FIELDS 435 REFERENCE 429 PROG 414 PROG 391 KNOWN 374 TYPE 361 VARS 347 RECORDS 334 PROPS 311 KNOWN 297 FNS 284 FIELDS 275 IS 267 FETCH 253 FETCH 247 SPECVARS 237 SPECVARS 221 LOCALVARS 216 LOCALVARS 210 LOCALVARS 204 CL:LOCALLY 195 DECLARE 187 CREATE 173 CREATE 167 NLAMBDA 157 NLAMBDA 144 VALUE 138 PREDICATE 132 TESTING 124 PREDICATE 119 PREDICATE 106 NOTERROR 90 APPLY 84 INDIRECTLY 76 EFFECT 71 EFFECT 58 DIRECTLY 49 CALL 41 BIND 31 NOTUSE 15 BIND) ( 828 (REF REFFREE SMASH SMASHFREE) 814 (TEST TESTFREE) 803 (CREATE RECORD) 779 (TEST TESTFREE) 765 (REF REFFREE SET SETFREE SMASH SMASHFREE TEST TESTFREE) 758 (REF SET SMASH TEST) 721 (REFFREE SETFREE SMASHFREE TESTFREE) 710 (FETCH REPLACE) 684 (TEST TESTFREE) 637 (SMASH SMASHFREE) 574 (SET SETFREE) 491 (REF REFFREE TEST TESTFREE SMASH SMASHFREE) 476 (REF TEST SMASH) 461 (REFFREE TESTFREE SMASHFREE) 406 (CALL NOBIND REF) 385 ((0)) 368 ((BIND) (REFFREE) (REF) (SETFREE) (SET) (SMASHFREE) (SMASH) (TEST) (TESTFREE)) 353 ((RECORD) (CREATE)) 341 ((PROP)) 326 (CALL NOBIND REF (CALL) (BIND) (REFFREE) (REF) (SETFREE) (SET) (SMASHFREE) (SMASH) (RECORDS) (FETCH) (REPLACE) (PROP) (APPLY) (TEST) (TESTFREE)) 318 (CALL NOBIND REF) 303 (CALL NOBIND REF (CALL) (APPLY)) 291 ((FETCH) (REPLACE)) 231 (LOCALVARS SPECVARS) 150 (CALL NLAMBDA) 113 (APPLY CALL EFFECT PREDICATE NLAMBDA) 98 (APPLY CALL EFFECT ERROR PREDICATE NLAMBDA) 65 (CALL EFFECT PREDICATE NLAMBDA) 25 (BIND REF SET SMASH TEST)) MSCHECKBLOCKS D1 (L (0 FILES) P 1 SPECVARS P 0 LOCALVARS F 14 DONTCOMPILEFNS) 4`ir@ `bx@g @hbf@cd^ Ng K N ]d MJ Ng ]gM Ng ]gM Ng ]ggM jd JA O,O\KroLdd o X_W !Kh__hO_O+Oh__O__OO OiOO&_g@LJK KdJK h(299 \MSCHECKBLOCKS/MSCHECKBLOCK 289 \MSCHECKBLOCKS/MSCHECKBLOCK 256 MEMB 204 MEMB 194 \APPEND2 191 \APPEND2 184 LDIFF 145 TAB 140 UPDATECHANGED 132 APPLY 119 FILECOMSLST 111 APPLY 102 FILECOMSLST 94 APPLY 85 FILECOMSLST 77 \NCONC2 67 UPDATEFN 60 FILEFNSLST 55 \NCONC2 51 FILECOMSLST 43 MSNOTICEFILE 25 GETP) (280 File 127 GLOBALVARS 124 ADDTOVAR 116 GLOBALVARS 107 SPECVARS 99 SPECVARS 90 LOCALVARS 82 LOCALVARS 48 BLOCKS 22 FILEGROUP 12 FILELST 2 SYSLOCALVARS) ( 188 (--) 169 (no block -)) \MSCHECKBLOCKS/MSCHECKBLOCK D1 (L (2 BLOCKS 1 FNS 0 BLOCK) P 19 SHOULDBESPECVARS P 18 ERRORS P 17 BLKAPPLYCALLERS P 12 BLKFNS P 11 LOCALFREEVARS P 10 ENTRIES P 9 BLKAPPLYFNS P 7 LOCALVARS P 6 SPECVARS P 5 DONTCOMPILEFNS P 4 LINKFNS P 3 NOLINKFNS P 2 BLKLIBRARY P 1 RETFNS P 0 GLOBALVARS F 37 GLOBALVARS F 38 RETFNS F 39 LOCALVARS F 40 BLKLIBRARY F 41 NOLINKFNS F 42 LINKFNS F 43 DONTCOMPILEFNS F 44 SPECVARS) %WJWLWPWRWTWVWXWN@Odh_i_Ni`N `@d_(ddg _O(O(d _OO O O(dgOi`_dgOis`^ldgedg^dgWdgPdgIdgBdg;dg4dg-dg&O(o O O(o O(O_#O@O Odohi hZOd_,AO,JO,o OO,@B O,g` _O,g` O,g` O,g` O,g` d_*dO d`d ~O*dg` :O*dg` (O*dg` O*dg` O*O _ *O, Ni O,O* O*dOO,oO*i O*O,g` O*O, O*oO,i >O,g` O,g` O,g` O,g` O _uO O Oh_0_.O@h_<_:}O$%_>jO>O> o @dB@A$O@&_0O&.O0`$O0NO0OO0H O0g O0d g` O0g` O0g` O0g` 1#O@ OB_)dO_FODOFh_D_BO@_@OF&_DO0dg` LO0dg` :O0dg` (O0dg` O0dg` O0oOj O0oO0oOi O.v_<dgdgdgdgO<h_8_6_8O tO8OmO8g` O8g` O8g` O8g` O8g` h_4_2hO8oO<i O6{_4OO4iO2ԿO:_H_FOD3OFh_D_BOH-OBo  O$2o O$ _$OF&_DO@_@d oo h(1427 PRIN1 1410 \MSCHECKBLOCKS/PRINTERROR 1385 DREVERSE 1379 PRIN1 1368 PRIN2 1364 \NCONC2 1297 \MSCHECKBLOCKS/DOERROR 1273 UNION 1270 UNION 1267 UNION 1264 UNION 1261 GETTABLE 1247 GETTABLE 1233 GETTABLE 1219 GETTABLE 1205 GETTABLE 1115 \MSCHECKBLOCKS/DOERROR 1095 BOUNDP 1079 TESTTABLE 1061 TESTTABLE 1043 TESTTABLE 1025 TESTTABLE 1007 TESTTABLE 938 UNION 935 UNION 932 UNION 929 GETTABLE 915 GETTABLE 901 GETTABLE 887 GETTABLE 871 CONSTANTEXPRESSIONP 861 GETPROP 782 PRIN1 774 TERPRI 770 TERPRI 766 \FZEROP 751 POSITION 719 \MSCHECKBLOCKS/MSCHECKBOUNDFREE 701 UNION 696 UNION 693 UNION 690 UNION 687 GETTABLE 673 GETTABLE 659 GETTABLE 645 GETTABLE 622 \MSCHECKBLOCKS/DOERROR 609 \MSCHECKBLOCKS/SPECVARP 599 GETTABLE 582 \MSCHECKBLOCKS/DOERROR 560 \MSCHECKBLOCKS/UNECCSPEC 547 \MSCHECKBLOCKS/SPECVARP 531 TESTTABLE 513 TESTTABLE 495 TESTTABLE 477 TESTTABLE 459 \MSCHECKBLOCKS/GLOBALVARP 431 UNION 428 UNION 425 UNION 422 UNION 419 GETTABLE 405 GETTABLE 391 GETTABLE 377 GETTABLE 361 GETTABLE 346 \MSCHECKBLOCKS/MSCHECKFNINBLOCK 335 \MSCHECKBLOCKS/DOERROR 305 \MSCHECKBLOCKS/DOERROR 291 \MSCHECKBLOCKS/MSCHECKBLOCKBASIC 265 \MSCHECKBLOCKS/DOERROR 255 MEMB 248 \MSCHECKBLOCKS/DOERROR 120 SET 114 \APPEND2 103 \EVALV1 82 EVAL 49 UNION) (1255 MSDATABASELST 1252 BIND 1241 MSDATABASELST 1238 REF 1227 MSDATABASELST 1224 SET 1213 MSDATABASELST 1210 SMASH 1199 MSDATABASELST 1196 TEST 1155 GLOBALVARS 1149 LOCALFREEVARS 1143 LOCALVARS 1136 SPECVARS 1073 MSDATABASELST 1070 TEST 1055 MSDATABASELST 1052 SMASH 1037 MSDATABASELST 1034 SET 1019 MSDATABASELST 1016 REF 1001 MSDATABASELST 998 BIND 923 MSDATABASELST 920 REFFREE 909 MSDATABASELST 906 SETFREE 895 MSDATABASELST 892 SMASHFREE 881 MSDATABASELST 878 TESTFREE 858 GLOBALVAR 822 SYSSPECVARS 681 MSDATABASELST 678 REFFREE 667 MSDATABASELST 664 SETFREE 653 MSDATABASELST 650 SMASHFREE 639 MSDATABASELST 636 TESTFREE 593 MSDATABASELST 590 LOCALFREEVARS 525 MSDATABASELST 522 TESTFREE 507 MSDATABASELST 504 SMASHFREE 489 MSDATABASELST 486 SETFREE 471 MSDATABASELST 468 REFFREE 450 SYSSPECVARS 413 MSDATABASELST 410 REF 399 MSDATABASELST 396 SET 385 MSDATABASELST 382 SMASH 371 MSDATABASELST 368 TEST 355 MSDATABASELST 352 BIND 234 SYSLOCALVARS 227 RETFNS 220 NOLINKFNS 213 LINKFNS 206 ENTRIES 199 BLKAPPLYFNS 192 SYSSPECVARS 185 BLKLIBRARY 178 GLOBALVARS 171 LOCALFREEVARS 164 SYSSPECVARS 152 LOCALVARS 143 SYSLOCALVARS 128 SPECVARS 74 * 53 SYSSPECVARS 45 SYSSPECVARS) ( 1424 ", " 1419 "---------------- " 1376 ": >>>>>" 1361 (--) 1290 "not mentioned in block, but on" 1109 "not bound, not a GLOBALVAR, used freely by" 1102 "not declared, never bound, no top-level value, used freely by" 1087 "not declared, used freely by " 779 "<<<<< In " 616 "should be SPECVAR (used in functional arg) in" 576 "binds and never uses" 332 "not on the file" 300 "BLKAPPLYFNS but not a real block" 262 "on block twice" 245 "unrecognized item in block declaration") \MSCHECKBLOCKS/MSCHECKFNINBLOCK D1 (L (2 BLOCKS 1 BLOCK 0 FN) F 6 ENTRIES F 7 BLKFNS F 8 BLKAPPLYFNS F 9 BLKLIBRARY F 10 RETFNS)  `@g Yd@V@Wh@g` X@g` @g` @g` @g` I@dVIg @ohi |d]d@dWiMW7Bh[ hF@o:\A@L LdML L"iKMH@W@W@oM J@W@o h(265 \MSCHECKBLOCKS/DOERROR 245 \MSCHECKBLOCKS/DOERROR 210 MEMB 197 MEMB 143 \MSCHECKBLOCKS/DOERROR 131 MSFIND 107 UNION 104 UNION 101 UNION 98 UNION 95 GETTABLE 82 GETTABLE 69 GETTABLE 56 GETTABLE 42 GETTABLE 9 GETPROP) (128 IGNOREMACRO 89 MSDATABASELST 86 CALL 76 MSDATABASELST 73 EFFECT 63 MSDATABASELST 60 PREDICATE 50 MSDATABASELST 47 NLAMBDA 36 MSDATABASELST 33 APPLY 6 MACRO) ( 262 "not an entry, not called from inside the block" 241 "not an entry or on RETFNS or BLKAPPLYFNS, called indirectly by" 183 "not an entry, called from outside the block by" 138 "internal block function with MACRO property") \MSCHECKBLOCKS/MSCHECKBLOCKBASIC D1 (L (1 BLKNAME 0 BLOCK) F 8 ENTRIES F 9 BLKFNS F 10 BLKAPPLYFNS F 11 BLKAPPLYCALLERS F 12 BLKLIBRARY) WAdW d@o AWWdWhWWAhcAW Ao WWAhc dHW Ho W1HWi@o#YgIgIgIgIg}Idgtg` Ig` Ig` Ig` Ig` hZ)h Ig Iohi WIh cHX@[WKiJd[g` Kg` Kg` Kg` Kg` 1L,MXIHZYJc4Wohi  YHdW_NOh^]L\O&^h(452 LAST 448 \MSCHECKBLOCKS/DOERROR 408 UNION 405 UNION 402 UNION 399 UNION 396 GETTABLE 383 GETTABLE 370 GETTABLE 357 GETTABLE 344 GETTABLE 304 \NCONC2 295 \MSCHECKBLOCKS/DOERROR 284 GETPROP 268 UNION 265 UNION 262 UNION 259 UNION 256 GETTABLE 243 GETTABLE 230 GETTABLE 217 GETTABLE 204 GETTABLE 106 \MSCHECKBLOCKS/DOERROR 97 MEMB 84 \APPEND2 69 \MSCHECKBLOCKS/DOERROR 60 MEMB 24 \MSCHECKBLOCKS/DOERROR 10 MEMB) (390 MSDATABASELST 387 APPLY 377 MSDATABASELST 374 CALL 364 MSDATABASELST 361 EFFECT 351 MSDATABASELST 348 PREDICATE 338 MSDATABASELST 335 NLAMBDA 281 BLKLIBRARYDEF 250 MSDATABASELST 247 APPLY 237 MSDATABASELST 234 CALL 224 MSDATABASELST 221 EFFECT 211 MSDATABASELST 208 PREDICATE 198 MSDATABASELST 195 NLAMBDA 189 MEMBER 181 TAILP 172 NTH 163 GETP 154 GETPROP 145 EQUAL) ( 443 "BLKAPPLYFNS but no calls to BLKAPPLY in block" 290 "on BLKLIBRARY but no BLKLIBRARYDEF property" 137 (BLKAPPLY BLKAPPLY*) 103 "on ENTRIES or BLKAPPLYFNS but not in block" 66 "can't be both entry and block name" 21 "must also be the FIRST function in the block") \MSCHECKBLOCKS/MSCHECKBOUNDFREE D1 (L (1 BLKNAME 0 BOUNDFREE) P 9 U P 8 SFLG P 7 LF1 P 5 LF P 3 SEEN P 0 V F 10 BLKFNS F 11 LOCALFREEVARS F 12 LOCALVARS F 13 SPECVARS) U @%d!`lg hHg` Hg` Hg` Hg` HWHg` Hg` Hg` Hg` Hg` #K L `XdmK NdkK L%d OdWNHOd M_O OAWiWiNYKhZdWK dlmHJ JH I(334 \MSCHECKBLOCKS/UNECCSPEC 328 \MSCHECKBLOCKS/SPECVARP 314 GETHASH 259 \MSCHECKBLOCKS/MSCHECKVARS1 249 \MSCHECKBLOCKS/NECCSPEC 218 PUTHASH 204 PUTHASH 189 CLRHASH 182 CLRHASH 175 UNION 172 UNION 169 UNION 166 UNION 163 GETTABLE 150 GETTABLE 137 GETTABLE 124 GETTABLE 111 GETTABLE 94 UNION 91 UNION 88 UNION 85 GETTABLE 72 GETTABLE 59 GETTABLE 46 GETTABLE 25 HASHARRAY) (290 MSCRATCHASH 193 MSCRATCHASH 157 MSDATABASELST 154 BIND 144 MSDATABASELST 141 REF 131 MSDATABASELST 128 SET 118 MSDATABASELST 115 SMASH 105 MSDATABASELST 102 TEST 79 MSDATABASELST 76 REFFREE 66 MSDATABASELST 63 SETFREE 53 MSDATABASELST 50 SMASHFREE 40 MSDATABASELST 37 TESTFREE 32 MSCRATCHASH 22 MSREHASH 11 MSCRATCHASH) () \MSCHECKBLOCKS/PRINTERROR D1 (L (0 ERR)) @@lHdjHoiHoo I@ _Kjd Kl o Hh_ _O^MlNJMl ؾMNll_o Kl o Kh__O#g Hh__O1g YO_hO_O_O k O_hO_O_k O \dOh__LLKO_LOLOLhOO_ hO_ O_O k d_"l Mi o Oi o Ni o O"l o h(455 PRIN1 447 \MSCHECKBLOCKS/SHORTLST 438 PRIN1 430 TAB 424 PRIN1 416 TAB 409 PRIN1 401 TAB 395 \MSCHECKBLOCKS/SHORTLST 382 SPACES 377 PRIN1 288 PRIN1 282 SPACES 255 SPACES 250 PRIN2 220 TERPRI 216 PRIN1 197 PRIN1 175 PRIN1 167 \MSCHECKBLOCKS/SHORTLST 158 PRIN1 122 POSITION 102 PRIN1 94 POSITION 90 \MSCHECKBLOCKS/SHORTLST 81 TAB 60 DREVERSE 46 PRIN1 7 LINELENGTH) (213 %. 194 -) ( 452 ". " 435 "-" 421 " %"%" " 406 " -" 172 ". " 155 " -" 99 " - " 43 " (probable error) " 38 " (possible error) " 27 " (note) ") \MSCHECKBLOCKS/MSCHECKVARS1 D1 (L (0 FN) F 3 SEEN F 4 U F 5 LF1 F 6 V F 7 ENTRIES F 8 BLKFNS F 9 LF F 10 BLKAPPLYFNS F 11 BLKAPPLYCALLERS)  U2@dW,VoT@oo@ohTi hc c@g` @g` @g` @g` @g` l@WWH X|HydZS djkdmedl_dllYTdk#JdWVJT JlS Il3iY.didlIliYJjS Jd S l I(266 SHOULDNT 260 PUTHASH 256 \MSCHECKBLOCKS/MSCHECKVARS1 250 PUTHASH 211 PUTHASH 203 \MSCHECKBLOCKS/NECCSPEC 156 GETHASH 143 UNION 127 UNION 124 UNION 121 UNION 118 UNION 115 GETTABLE 102 GETTABLE 89 GETTABLE 76 GETTABLE 63 GETTABLE 43 \MSCHECKBLOCKS/DOERROR) (109 MSDATABASELST 106 APPLY 96 MSDATABASELST 93 CALL 83 MSDATABASELST 80 EFFECT 70 MSDATABASELST 67 PREDICATE 57 MSDATABASELST 54 NLAMBDA) ( 33 "can reach functions using it freely" 28 "but the entry" 23 "but used freely by the entry" 15 "on LOCALFREEVARS") \MSCHECKBLOCKS/UNECCSPEC D1 (L (1 VAR 0 FN)) #A A@g`  Ao@i (32 \MSCHECKBLOCKS/DOERROR 19 GETTABLE 3 \MSCHECKBLOCKS/GLOBALVARP) (13 MSDATABASELST 10 LOCALFREEVARS) ( 27 "might not need to be a specvar in") \MSCHECKBLOCKS/NECCSPEC D1 (L (1 BINDER 0 VAR) F 0 SFLG F 1 SHOULDBESPECVARS F 2 U) )P%@A ic@Qc@oRohAi h(36 \MSCHECKBLOCKS/DOERROR 7 \MSCHECKBLOCKS/SPECVARP) NIL ( 27 "is not a SPECVAR in" 22 "(used freely in)") \MSCHECKBLOCKS/SPECVARP D1 (L (1 FN 0 X) F 0 LOCALVARS F 1 SPECVARS F 2 LOCALFREEVARS F 3 GLOBALVARS) K@Ag` h@Ag` iPi@PhQi@Q@R@S @g (72 GETP 31 GETTABLE 13 GETTABLE) (69 GLOBALVAR 25 MSDATABASELST 22 SPECVARS 7 MSDATABASELST 4 LOCALVARS) () \MSCHECKBLOCKS/SHORTLST D1 (L (1 N 0 X)) G@A@@A bbAkbdjk @ jAdd ˿o (66 PRIN1 56 \FZEROP 40 PRIN2 35 SPACES 14 \MSCHECKBLOCKS/SHORTLST) NIL ( 63 " etc") \MSCHECKBLOCKS/DOERROR D1 (L (3 QUESTIONABLE 2 ARG 1 MSG 0 AT) F 2 ERRORS) RC=AR AhhRc@B*IH HIhHBI IBh AbIHHIHh(59 \NCONC2 50 MEMBER 7 SASSOC) NIL () \MSCHECKBLOCKS/GLOBALVARP D1 (L (0 X) F 0 GLOBALVARS) @P @g (11 GETPROP) (8 GLOBALVAR) () MSPATHSA0001 D1 (NAME ERRORSET F 0 NAMED F 1 UNDONE F 2 SEEN F 3 TEM F 4 FIRST) hhP(TPR hcPjR Phi PcQ hhR cSjS QcQhhR Qhc(92 PUTHASH 61 GETHASH 51 TERPRI 38 \MSPATHSBLOCK/MSPATHS1 30 PUTHASH 18 \MSPATHSBLOCK/DASHES 15 GETHASH) (3 MSPRINTFLG) () MSPATHS D1 (L (0 FROM) P 10 TEM P 9 NAMED P 8 TABS P 7 UNDONE P 6 FIRST P 5 LINENUM P 4 BELOWCNT P 3 LL P 0 SEEN I 6 MARKING I 5 NOTRACE I 4 SEPARATE I 3 AVOIDING I 2 INVERTED I 1 TO F 11 RESETVARSLST) `-lg !hjdi@i 5 Bo O `dEdE mjH jd g`WcYog IJdWIcW WkJ IhH(149 ERROR! 141 NLEFT 133 TAILP 109 MSPATHSA0001 84 TAB 74 PUTHASH 65 MSMEMBSET 50 CLRHASH 42 PRINT 30 MSLISTSET 22 LINELENGTH 12 HASHARRAY) (156 MSCRATCHASH 115 MSPRINTFLG 106 INTERNAL 91 MSPRINTFLG 88 MSPRINTFLG 54 MSCRATCHASH 19 MSCRATCHASH 9 MSREHASH 2 MSCRATCHASH) ( 103 (MSPATHSA0001) 39 (inverted tree)) \MSPATHSBLOCK/MSPATHS1 D1 (L (2 LAST 1 FIRST 0 FROM) P 5 TABS F 13 TABS F 14 SEEN F 15 NAMED F 16 LINENUM F 17 SEPARATE F 18 INVERTED F 19 LL)  WAAW kc o W W ZWWj BWc@ [@ @W YjUId`l 3jIo II o IIW@h cIWi"@mJW W$O@g` @g` @g` @g` @g` @g`M@g` @g` @g` @g` @g` @g` 1 O O_)d _OOh__O_O&_HbW"@W" _Od KlW&h") %. D1 (L (0 MASTERSCOPECOMMAND)) @ (3 MASTERSCOPE) NIL () MSMARKCHANGE1 D1 (L (1 FLG 0 FNS)) 3Aib@Hg@Ah HhHHIA` (46 PUTHASH 25 UNDOSAVE) (43 MSCHANGEDARRAY 16 MSMARKCHANGE1) () MSFIND D1 (L (1 X 0 IN)) @A@@A @b(14 MSFIND) NIL () MSSTOREDATA D1 (L (0 FNNAME) I 1 FNDATA) _g 1h@i` `Z$@dH @ig` @h` h[`Kdi @KI J(88 STORETABLE 81 \MSSTOREDATA/MSCOLLECTDATA 59 PUTHASH 50 PUTTABLE 33 TESTRELATION 20 PUTHASH 5 PARSERELATION) (67 NODUMPRELATIONS 56 MSCHANGEDARRAY 44 MSDATABASELST 41 NOBIND 23 MSDATABASELST 17 MSCHANGEDARRAY 12 MSDBEMPTY 2 KNOWN) () \MSSTOREDATA/MSCOLLECTDATA D1 (L (1 FLG 0 TNAME) F 0 FNDATA) X@A@`B@Pdg@i @i g@i @i l hbb(75 SHOULDNT 69 UNION 66 \MSSTOREDATA/MSCOLLECTDATA 58 \MSSTOREDATA/MSCOLLECTDATA 44 LDIFFERENCE 41 \MSSTOREDATA/MSCOLLECTDATA 33 \MSSTOREDATA/MSCOLLECTDATA) (48 + 22 - 9 TABLE.TO.NOTICED) () \MASTERSCOPEBLOCK/MSINTERPRETSET D1 (L (2 ARG 1 OP 0 SET) P 29 OTHERSET P 27 V P 26 OTHERSET F 34 NEEDUPDATE) $"@pHdHIJBh @P@gh@!O.O0ghdhhO._2hO._2O._.O0gO2 _0AdgBgAdg@ gFl dg/AdggAdggHBkKl dgAAdgHgbbgAdgFgHgB hl dgAdgOgAdgiHHH#O4g _8d`O0dO2LLg *O0#dO8dO2MM O6 _6O6gWHHHO8^h_BO@@@@gO<O<O>X'dgKO<ggO<ggO>ghddhhgihgO>gihXgjO>gl gO<g%O>g O<@ @g (O<O> O>gO>g i XhAgO>gO> _BO<O< _@@gO<gO@O>@AB OBg$AgH gH hiX@Hl (2081 SHOULDNT 2061 MSONPATH 2053 \MASTERSCOPEBLOCK/CHECKPATHS 2031 \MASTERSCOPEBLOCK/MSINTERPRETSET 2001 \MASTERSCOPEBLOCK/GETVERBTABLES 1987 \MASTERSCOPEBLOCK/MSINTERPRETSET 1961 \MASTERSCOPEBLOCK/ONFILE 1955 \MASTERSCOPEBLOCK/MSINTERPRETSET 1921 \MASTERSCOPEBLOCK/ONFILE 1896 \MASTERSCOPEBLOCK/MSINTERPRETSET 1875 SHOULDNT 1638 UNION 1633 RECORDFIELDNAMES 1627 MSLISTSET 1582 \MASTERSCOPEBLOCK/MSGETBLOCKDEC 1579 \MASTERSCOPEBLOCK/MSINTERPRETSET 1541 \MASTERSCOPEBLOCK/MSINTERPRETSET 1525 \MASTERSCOPEBLOCK/MSINTERPRETSET 1479 CL:EVAL 1403 SHOULDNT 1376 \MASTERSCOPEBLOCK/MSINTERPRETSET 1329 \MASTERSCOPEBLOCK/MSINTERPRETSET 1275 \MASTERSCOPEBLOCK/MSINTERPRETSET 1245 \MASTERSCOPEBLOCK/MSINTERPRETSET 1230 \MASTERSCOPEBLOCK/MSINTERPRETSET 1189 \MASTERSCOPEBLOCK/MSINTERPRETSET 1176 \MASTERSCOPEBLOCK/MSINTERPRETSET 1147 SHOULDNT 1120 \MASTERSCOPEBLOCK/MSINTERPRETSET 1103 UNION 1065 \MASTERSCOPEBLOCK/MSINTERPRETSET 1050 \MASTERSCOPEBLOCK/MSINTERPRETSET 1017 \MASTERSCOPEBLOCK/MSINTERPRETSET 1004 \MASTERSCOPEBLOCK/MSINTERPRETSET 975 SHOULDNT 953 LAST 941 TERPRI 936 PRIN1 929 PRIN1 920 PRIN1 891 \MASTERSCOPEBLOCK/ONFILE 860 GETD 852 TESTTABLE 837 TESTTABLE 822 TESTTABLE 774 TERPRI 769 PRIN1 760 PRIN1 753 PRIN1 742 \DEFINEDP 735 GETP 684 UNION 650 SHOULDNT 597 GETTABLE 565 \MASTERSCOPEBLOCK/MSHASHLIST 512 SHOULDNT 490 \MASTERSCOPEBLOCK/MSINTERPRETSET 462 GETTABLE 402 UNION 397 GETTABLE 366 MAPTABLE 336 \MASTERSCOPEBLOCK/MSINTERPRETSET 279 SHOULDNT 271 \MASTERSCOPEBLOCK/MSINTERPRETSET 209 SHOULDNT 156 SHOULDNT 142 \MASTERSCOPEBLOCK/LISTHARD 108 \NCONC2 105 \MASTERSCOPEBLOCK/GETVERBTABLES 28 SHOULDNT) (2057 GETHASH 2046 CHECK 2039 PATHS 2015 ED 2009 INRELATION 1978 CHECK 1970 CHECK 1952 HARD 1947 FNS 1918 FNS 1893 HARD 1885 ED 1879 QUOTE 1868 WHICH 1859 CONTAIN 1845 TOPFLG 1839 TO 1830 TOPFLG 1817 TO 1811 FROM 1805 ED 1799 PATHS 1791 SOMEHOW 1780 CALL 1754 THAT 1718 THAT 1689 ANDNOT 1683 OR 1677 AND 1654 THAT 1617 QUOTE 1599 CHECK 1591 FIELDS 1576 HARD 1556 QUOTE 1538 CHECK 1522 CHECK 1506 CHECK 1499 BLOCKS 1474 QUOTE 1467 IN 1424 NOT 1416 AND 1408 ANDNOT 1388 MEMB 1372 MEMB 1363 MEMB 1324 MEMB 1270 MEMB 1238 MSBLIP 1227 LIST 1221 MSBLIP 1208 LIST 1201 HARD 1185 CHECK 1172 CHECK 1162 CHECK 1152 AND 1132 MEMB 1116 MEMB 1107 MEMB 1095 MSBLIP 1088 QUOTE 1079 QUOTE 1058 MSBLIP 1043 MSBLIP 1036 HARD 1029 LIST 1013 CHECK 1000 CHECK 990 CHECK 980 OR 963 MEMB 878 FNS 872 KNOWN 846 MSDATABASELST 843 REF 831 MSDATABASELST 828 NOBIND 816 MSDATABASELST 813 CALL 806 KNOWN 799 FILELST 789 FILES 781 FILES 732 CLISPWORD 723 FNS 698 LIST 691 HARD 666 CHECK 655 QUOTE 605 MSBLIP 578 MEMB 543 HARD 536 LIST 528 CHECK 517 GETHASH 485 MEMB 419 MEMB 363 MSINTERPA 342 MSBLIP 333 LIST 310 HARD 303 LIST 295 CHECK 284 INRELATION 267 MEMB 260 MEMB 252 LIST 244 HARD 231 CHECK 223 CHECK 214 NOT 193 MEMB 185 LIST 177 HARD 171 CHECK 162 APPLY 146 MEMB 135 HARD 125 LIST 118 CHECK 100 IS 59 ANY 40 INRELATION) ( 925 " => ON " 765 "is a CLISP word and is not treated like a function!" 749 "Warning: ") \MASTERSCOPEBLOCK/CHANGEI.S. D1 (L (2 REASON 1 TYPE 0 NAME)) [`VBdg@ hE@oi oi gBg'@oi @ @ oi gi (88 MSNEEDUNSAVE 81 UNION 78 GETRELATION 70 L-CASE 64 U-CASEP 60 GETRELATION 38 MSNEEDUNSAVE 30 GETRELATION 17 GETD) (84 i.s.oprs 48 DELETED 42 CHANGED 9 DEFINED 2 MSDATABASELST) ( 74 (USE I.S.OPRS) 56 (USE I.S.OPRS) 34 (i.s.oprs as functions) 26 (CALL DIRECTLY)) \MASTERSCOPEBLOCK/CHANGEMACRO D1 (L (2 REASON 1 TYPE 0 NAME)) ,`'Bgh@oi Ag @i g (41 MSNEEDUNSAVE 34 \MASTERSCOPEBLOCK/TEMPLATE 29 FILEPKGTYPE 22 GETRELATION) (37 MACRO 26 DESCRIPTION 8 DEFINED 2 MSDATABASELST) ( 18 (CALL DIRECTLY)) CHANGERECORD D1 (L (2 OLDFLG 1 RFIELDS 0 RNAME)) 6`1B.@oi Adoi H Hg` (51 MSNEEDUNSAVE 35 UNION 31 GETRELATION 16 GETRELATION) (48 MSRECORDTRANFLG 45 records 2 MSDATABASELST) ( 27 (USE FIELDS) 12 (USE RECORDS)) \MASTERSCOPEBLOCK/CHANGEVAR D1 (L (2 REASON 1 TYPE 0 NAME)) `@`@oi o (27 MSNEEDUNSAVE 20 GETRELATION) (8 COMPILE.TIME.CONSTANTS 2 MSDATABASELST) ( 24 "constants" 16 (USE FREELY)) \MASTERSCOPEBLOCK/CHECKFORCHANGED D1 (L (2 UPDATEALL 1 NOTTHISONE 0 SET) P 0 NEEDUPDATE) 2@gAh@ BbHd B h(46 \MASTERSCOPEBLOCK/MSCHECKEMPTY 42 UPDATECHANGED 31 UPDATEFN 19 \MASTERSCOPEBLOCK/MSINTERPRETSET) (6 CHECK) () \MASTERSCOPEBLOCK/CHECKPATHS D1 (L (1 VAL 0 OPTIONS)) Z0@Y H g@hZdg"dgdgdgdgdgihJgJg iI(81 \MASTERSCOPEBLOCK/MSINTERPRETSET) (77 FROM 72 CHECK 58 SEPARATE 52 MARKING 46 NOTRACE 39 AVOIDING 32 TO 25 FROM 13 FROM) () DUMPDATABASE D1 (L (0 FNLST) P 3 DUMPTABLE P 0 DUMPEDFLG)  @6o g `Jg hd [` 1@KiKg @dYK I HJZ(121 PRINT 111 DUMPDATABASE1 107 GETTABLE 93 MAPTABLE 71 MEMB 55 UPDATEFN 48 TERPRI 45 PRIN1 39 TERPRI 25 TERPRI 22 PRIN1 16 PRINT 8 UPDATECHANGED) (90 DUMPDATABASE1 68 NODUMPRELATIONS 42 %) 28 MSDATABASELST 19 %() ( 13 (READATABASE)) DUMPDATABASE1 D1 (L (1 FN 0 VALUE) F 0 DUMPEDFLG F 1 DUMPTABLE) $A!PQ ck A k @ k (33 SPACES 29 PRIN2 25 SPACES 21 PRIN2 16 SPACES 9 PRIN2) NIL () \MASTERSCOPEBLOCK/FMAPRINT D1 (L (4 SEP 3 RIGHT 2 LEFT 1 FILE 0 LST)) ;BBA Dgb@@ DA @A @bCdA h(55 PRIN1 41 PRIN2 34 PRIN1 26 PRIN2 6 PRIN1) (12 % ) () GETRELATION D1 (L (2 INVERTED 1 RELATION 0 ITEM)) ? Adg- (d@BIdlAo II H H(54 UNION 50 GETTABLE 41 ERROR 15 PARSERELATION) (9 TABLES) ( 38 "CAN'T BE INVERTED") GETTEMPLATE D1 (L (0 FN)) @i (4 SETTEMPLATE) NIL () \MASTERSCOPEBLOCK/GETVERBTABLES D1 (L (1 MODIFIER 0 ROOT)) 80@A *l #dd`h`IHhZH&J(14 SHOULDNT 7 MSVBTABLES) (34 MSDATABASELST 25 MSDATABASELST) () \MASTERSCOPEBLOCK/LISTHARD D1 (L (0 SET)) J0@@IHIhIIgJdg@gJ dH@ (65 \MASTERSCOPEBLOCK/MSHASHLIST 56 \MASTERSCOPEBLOCK/GETVERBTABLES) (51 KNOWN 39 FNS 34 IS) () MAPRELATIONA0005 D1 (L (1 MAPX 0 DUMMY) F 1 MAPFN F 2 MAPFN2 F 3 MAPZ F 4 MAPW) :RdAH h$SkAkQAT dAHlQh(36 GETRELATION 12 TESTTABLE) NIL () MAPRELATION D1 (L (0 RELATION) P 2 MAPFN2 P 1 MAPW P 0 MAPZ I 1 MAPFN) A @ IdZg h(22 MAPTABLE 7 PARSERELATION 3 NARGS) (19 MAPRELATIONA0005) () MASTERSCOPE D1 (L (1 TOPFLG 0 MASTERSCOPECOMMAND)) +@oi i oi i ddhAh (40 \MASTERSCOPEBLOCK/MSINTERPRET 26 TERPRI 22 PRIN1 14 TERPRI 10 PRIN1) NIL ( 18 ". WHO CALLS 'MASTERSCOPE" 6 "Type Masterscope commands to the exec using the . command, e.g.") \MASTERSCOPEBLOCK/MSCHECKEMPTY D1 NIL  `oi i g `gg`hI `oI ggIh XF`3 `l oooH Xo gH `oi i h(160 ERROR! 156 TERPRI 151 PRIN1 137 MASTERSCOPE 127 ASKUSER 118 \APPEND2 86 \APPEND2 83 \APPEND2 35 FILEPKGCHANGES 28 UPDATEFILES 24 TERPRI 19 PRIN1) (141 MSDBEMPTY 130 Y 99 DWIMWAIT 92 DWIMWAIT 75 %' 72 IN 60 FILELST 50 FILELST 47 %' 44 ON 39 FILELST 32 FNS 5 MSDBEMPTY) ( 147 "Sorry, no functions were found to analyze!" 124 ((Y "es ") (N "o ")) 114 (ANALYZE THE FNS) 110 "want to ." 106 (Y) 66 (OR) 15 "No functions have been analyzed!") MSCLOSEFILES D1 NIL +`HhYId  HX(35 CLOSEF 28 OPENP) (14 MSOPENFILES 2 MSOPENFILES) () MSDESCRIBE D1 (L (1 SN) I 0 FN F 12 BOLDFONT F 13 DEFAULTFONT F 14 GLOBALVARS)  p@g` Z @ @ ihJZo W @ W Jhoo @g` (@g` @g` oi A A +@A [!l-i o K o @g` @g` @g` @g` @g` o @g` @g` @g` @g` @g` o @g` @g` @g` @g` @g` A OKOo @g` @g` @g` @g` N_JJOdJO_OOh__O_O&_d\dWdg LHIIo Ho @g` @g` o `]h^ N M(668 \MASTERSCOPEBLOCK/MSDESCRIBE1 660 EVAL 651 TERPRI 641 \MASTERSCOPEBLOCK/MSDESCRIBE1 634 UNION 631 GETTABLE 618 GETTABLE 605 \MASTERSCOPEBLOCK/MSDESCRIBE1 597 \MASTERSCOPEBLOCK/MSDESCRIBE1 575 GETPROP 508 UNION 505 UNION 502 UNION 499 GETTABLE 486 GETTABLE 473 GETTABLE 460 GETTABLE 447 \MASTERSCOPEBLOCK/MSDESCRIBE1 429 UNION 426 UNION 423 UNION 420 UNION 417 GETTABLE 404 GETTABLE 391 GETTABLE 378 GETTABLE 365 GETTABLE 352 \MASTERSCOPEBLOCK/MSDESCRIBE1 345 UNION 342 UNION 339 UNION 336 UNION 333 GETTABLE 320 GETTABLE 307 GETTABLE 294 GETTABLE 281 GETTABLE 268 \MASTERSCOPEBLOCK/MSDESCRIBE1 261 UNION 258 UNION 255 UNION 252 UNION 249 GETTABLE 236 GETTABLE 223 GETTABLE 210 GETTABLE 197 GETTABLE 184 TERPRI 180 PRIN1 172 PRIN1 169 ABS 164 PRIN1 156 TAB 145 GETHASH 138 HARRAYP 131 HARRAYP 126 PRIN1 117 TESTTABLE 102 TESTTABLE 87 TESTTABLE 74 \MASTERSCOPEBLOCK/FMAPRINT 61 CHANGEFONT 55 PRIN2 50 CHANGEFONT 44 PRIN1 28 SMARTARGLIST 22 \DEFINEDP 15 GETTABLE) (644 DESCRIBELST 625 MSDATABASELST 622 FETCH 612 MSDATABASELST 609 REPLACE 572 GLOBALVAR 493 MSDATABASELST 490 REFFREE 480 MSDATABASELST 477 SETFREE 467 MSDATABASELST 464 SMASHFREE 454 MSDATABASELST 451 TESTFREE 411 MSDATABASELST 408 BIND 398 MSDATABASELST 395 REF 385 MSDATABASELST 382 SET 372 MSDATABASELST 369 SMASH 359 MSDATABASELST 356 TEST 327 MSDATABASELST 324 APPLY 314 MSDATABASELST 311 CALL 301 MSDATABASELST 298 EFFECT 288 MSDATABASELST 285 PREDICATE 275 MSDATABASELST 272 NLAMBDA 243 MSDATABASELST 240 APPLY 230 MSDATABASELST 227 CALL 217 MSDATABASELST 214 EFFECT 204 MSDATABASELST 201 PREDICATE 191 MSDATABASELST 188 NLAMBDA 111 MSDATABASELST 108 REF 96 MSDATABASELST 93 NOBIND 81 MSDATABASELST 78 CALL 9 MSDATABASELST 6 ARGS) ( 638 "fields: " 602 "globals: " 594 "uses free:" 444 "binds: " 349 "called by:" 265 "calls: " 177 "}" 161 " {line " 122 " (not analyzed)" 71 ")" 67 " " 41 "(") \MASTERSCOPEBLOCK/MSDESCRIBE1 D1 (L (1 STR 0 LST)) U@!l A k  @@ hY@ lHI @ @bg (81 PRIN1 68 PRIN2 62 TAB 51 NCHARS 46 POSITION 41 POSITION 37 LINELENGTH 32 TERPRI 28 PRIN2 15 SPACES 11 PRIN1 7 SPACES) (78 %,) () \MASTERSCOPEBLOCK/MSERASE D1 (L (0 ATOMS) F 0 MSFILETABLE F 1 MSARGTABLE) '@dihddcdcid h(30 MSSTOREDATA) (24 MSDBEMPTY 14 MSDATABASELST 10 MSCHANGEDARRAY) () \MASTERSCOPEBLOCK/MSGETBLOCKDEC D1 (L (2 FILES 1 FNSET 0 TYPE))  B`_OHO_hO_O_Og _AO@dgg H _AOdYlIA hX@g@g@!OhZ[lKdHHXJOh](@gOOOOHOHOi^'N\@@L@Ndg H M(241 UNION 235 EVAL 100 MSMEMBSET 74 UNION 70 FILECOMSLST 46 FILECOMSLST) (227 * 166 ENTRIES 118 BLOCK 112 BLKFNS 67 FNS 61 BLKFNS 43 BLOCKS 8 FILELST) () \MASTERSCOPEBLOCK/MSHASHLIST D1 (L (0 HTABLE) I 3 BADMARKS I 2 OTHERSET I 1 PREVVALUE) @g A(6 MAPTABLE) (3 MSHASHLIST1) () MSHASHLIST1 D1 (L (1 KEY 0 VAL) F 0 BADMARKS F 1 PREVVALUE F 2 OTHERSET) 3@`h*@P P@PihAQhRAR AQc(41 MSMEMBSET) (3 MSBLIP) () \MASTERSCOPEBLOCK/MSINIT D1 (L (0 DATABASE) F 5 MARKASCHANGEDFNS F 6 MSFILETABLE F 7 MSARGTABLE) `@ChgUgUc l @h`AHgIc gIcIi\L@Ldg`L Ld3 @LLi J KhZHXK&(129 MAKETABLE 105 MAKETABLE 31 HASHARRAY) (97 USERTEMPLATES 91 USERTEMPLATES 72 MSDATABASELST 62 ARGS 54 FILE 44 MSDATABASEINIT 40 MSDBEMPTY 34 MSCHANGEDARRAY 21 MSMARKCHANGED 15 MSMARKCHANGED 12 MSDATABASELST 2 MSDATABASELST) () MSINTERPA D1 (L (1 KEY 0 VAL) F 2 V F 3 OTHERSET) ;ARhSS@@H hARcSgI IiHX(45 \MASTERSCOPEBLOCK/MSINTERPRETSET) (41 MEMB) () \MASTERSCOPEBLOCK/MSINTERPRETA0007 D1 (NAME ERRORSET F 0 FN F 1 EDITCOMS) gPQ i i(12 PRINT 8 APPLY) (2 EDITF) () \MASTERSCOPEBLOCK/MSINTERPRETA0008 D1 (L (1 KEY 0 VAL) F 0 DONE F 1 TYPE F 2 SHOWSET F 3 EDIT F 4 EDITCOMS) @iAdg` yAdg` hAdg` WAdg` FAdg` 5Adg` $Adg` Ag` AQRSgT APc(152 MSSHOWUSE 138 TESTTABLE 122 TESTTABLE 105 TESTTABLE 88 TESTTABLE 71 TESTTABLE 54 TESTTABLE 37 TESTTABLE 20 TESTTABLE) (147 CHANGED 132 MSDATABASELST 129 NLAMBDA 116 MSDATABASELST 113 PREDICATE 99 MSDATABASELST 96 EFFECT 82 MSDATABASELST 79 CALL 65 MSDATABASELST 62 APPLY 48 MSDATABASELST 45 REF 31 MSDATABASELST 28 NOBIND 14 MSDATABASELST 11 CALL) () \MASTERSCOPEBLOCK/MSINTERPRET D1 (L (1 SUBROUTINE 0 COMMAND) P 19 NEEDUPDATE P 15 FN P 13 SHOWSET P 11 TYPE P 9 NEEDUPDATE P 8 DONE P 5 EDITCOMS P 4 EDIT F 22 RESETVARSLST) @@dg3dg*dg!@ X`idi Hdg H@hoo HgHi gHdgHig di dg` oi i hd XgHhhhQcHijH h(58 COPYBYTES 55 GETEOFPTR 32 INPUT 29 INFILE 23 TERPRI 18 PRIN1 8 INFILEP) (36 CLOSEF 5 MSHELPFILE) ( 14 "Sorry, HELP file not available!") MSSHOWUSEA0011 D1 (L (4 INCLISP 3 PRNT 2 SE 1 SS 0 ITEM) F 0 ANYFOUND F 1 SHOWFN) k@A bPjdi Q o CDdC hDPcBg4CP-l Cl Po Dl o h(102 PRIN1 95 LVLPRIN2 90 OUTPUT 86 PRIN1 74 LVLPRINT 69 OUTPUT 65 SPACES 37 MSFIND 28 PRIN1 20 PRIN2 15 TAB 4 MSMEMBSET) (51 SHOW) ( 99 "} " 83 " {under " 25 " : ") MSSHOWUSE D1 (L (5 EDITCOMS 4 IFCANT 3 SHOWEDIT 2 SHOWSET 1 SHOWTYPE) P 1 ANYFOUND I 0 SHOWFN) @@gCgggo Cg@ Z@Jg @g X@HAgBCh I"hoi @i oi i hCgwIdddgKgI@gogIihggoooEgEghhhgIghhhlgid i(237 PRINT 111 TERPRI 106 PRIN1 97 PRIN1 91 PRIN1 77 \MASTERSCOPEBLOCK/MSUPDATEFN1 58 GETPROP 50 LOADFNS 39 EDITLOADFNS? 26 GETDEF) (230 EDITF 212 N 208 F 195 TTY%: 189 BIND 172 IF 169 LPQ 160 F 153 BIND 146 *ANY* 135 == 117 EDIT 67 MSSHOWUSEA0011 55 EXPR 47 PROP 32 EDIT 19 CURRENT 15 ? 10 SHOW 6 FNS) ( 184 (S %#1) 180 (ORR (P) NIL) 176 (NEQ (%##) %#1) 157 (E (SETQ %#1) T) 102 "!" 87 "Can't find a definition for " 23 (NOERROR NODWIM NOCOPY)) \MASTERSCOPEBLOCK/MSSOLVE D1 (L (0 SET)) @i @@ZddgJZgJYg@g``hh@JJJhJhddhghhX`?d[ o HK0@i dI dMLh^L&N (170 CL:VALUES 162 PRINT 138 MSMEMBSET 130 MSLISTSET 117 PRIN1 109 PRIN2 4 MSLISTSET) (101 MSTHOSE 90 QUOTE 60 MSTHOSE 56 MSTHOSE 51 WHICH 43 WHICH 33 INRELATION 20 AND 7 MSTHOSE) ( 114 " -- ") \MASTERSCOPEBLOCK/MSUPDATE D1 (L (2 EACHTIME 1 FNDEF 0 FNNAME) P 6 VARS P 0 VARS F 7 COMMENTFLG F 8 ANYFOUND) `@ AgI`i8`i1AZg%JWJgAdgdgihA@A B<`i`d3 `kj` @i [`ggi Agh@iB \`d@ALlM`gLY`4gI,g"KIBW@i Ioi Koi @L h(252 MSSTOREDATA 246 PRIN1 235 PRIN1 224 PRIN2 158 ALLCALLS 145 PRIN1 128 PRIN2 84 MSPRGDWIM 6 \MASTERSCOPEBLOCK/MSNLAMBDACHECK) (208 ? 200 %. 193 MSPRINTFLG 185 ERRORS 182 MSERRORFN 162 ANALYZEUSERFNS 150 ARG 141 %. 136 %. 133 MSPRINTFLG 121 MSPRINTCNT 118 MSPRINTFLG 112 MSPRINTCNT 107 MSPRINTCNT 98 MSPRINTFLG 91 MSPRINTFLG 67 NLAMBDA 61 LAMBDA 52 DECLARATIONS%: 37 CLISP%: 24 CLISPIFYPRETTYFLG 17 DWIMIFYCOMPFLG 11 CL:LAMBDA) ( 242 ", " 231 " (CALLS ppe)") \MASTERSCOPEBLOCK/MSUPDATEFN1 D1 (L (3 DOSUBFNS 2 EACHTIME 1 DEF 0 FN)) @AB CW@g` @g` @g` @g` @g` !HhYg` 8Ig` )Ig` Iggo ZIJBi HX(163 \MASTERSCOPEBLOCK/MSUPDATEFN1 154 GETDEF 138 TESTTABLE 123 TESTTABLE 108 TESTTABLE 85 UNION 82 UNION 79 UNION 76 UNION 73 GETTABLE 60 GETTABLE 47 GETTABLE 34 GETTABLE 21 GETTABLE 5 \MASTERSCOPEBLOCK/MSUPDATE) (147 CURRENT 144 FNS 132 MSDATABASELST 129 REF 117 MSDATABASELST 114 NOBIND 102 MSDATABASELST 99 CALL 67 MSDATABASELST 64 APPLY 54 MSDATABASELST 51 CALL 41 MSDATABASELST 38 EFFECT 28 MSDATABASELST 25 PREDICATE 15 MSDATABASELST 12 NLAMBDA) ( 151 (NOCOPY NODWIM NOERROR MASTERSCOPE)) \MASTERSCOPEBLOCK/ONFILE D1 (L (2 FINDITEMS 1 TYPES 0 FILES))  ` AddAdgdgdih@`O/`HAhMd@BH_O/O_hO_O_OOd` g O AhKKhKKLgLgLgB6OHBhIdOHIhIIJLO JiOL H MhMMNdgdg𤒱*N,i'_O(O_hO_O_BOg H _OO_hO_O_OgOi OdHHXO_hO_O_Ogi H (427 UNION 423 GETRELATION 379 TESTRELATION 335 UNION 331 GETRELATION 248 UNION 244 FILECOMSLST 230 INFILECOMS? 227 FILECOMS 142 MSNOTICEFILE 136 GETRELATION 129 MEMB) (419 CONTAINS 373 CONTAINS 328 CONTAINS 274 KNOWN 268 FNS 182 FNS 174 KNOWN 168 FNS 133 CONTAINS 126 FILELST 54 MSHASHFILE 43 FILELST 28 KNOWN 22 FNS 5 MSHASHFILE) () PARSERELATION D1 (L (0 RELATION)) ?@g@g0@ dd``IHhZH&J(22 \MASTERSCOPEBLOCK/PARSERELATION1 2 \MASTERSCOPEBLOCK/MSINIT) (39 MSDATABASELST 33 MSDATABASELST 15 TABLES 8 TABLES) () \MASTERSCOPEBLOCK/PARSERELATION1 D1 (L (2 TAIL 1 MOD 0 ROOT) F 1 MSWORDS) B@AT@A g@Q gAQ !gAQ gAQ  Ag  @g dgdgdgdgqAhbbv@hbbbfdgg0dgBgBbggggBg @A BB lHdgdgdghAbbAAbb(232 \MASTERSCOPEBLOCK/PARSERELATION1 223 \MASTERSCOPEBLOCK/PARSERELATION1 215 ERROR 99 ERROR 86 MSVBTABLES 82 ERROR 71 GETHASH 59 GETHASH 47 GETHASH 37 GETHASH 23 MSVBTABLES) (254 ANDNOT 248 OR 242 AND 212 ? 207 UNION 202 OR 198 INTERSECTION 193 LDIFFERENCE 183 NOT 173 AND 167 LDIFFERENCE 161 ANDNOT 124 FOR 118 AN 112 AS 105 A 96 ? 79 ? 66 FOR 54 AS 42 V 32 S) () READATABASE D1 NIL dgdgo h@[dgi K`X/Yi` ddhIHJ Ih` oid (129 READ 125 LISPXPRINT 113 PUTHASH 104 STORETABLE 90 READ 86 PUTHASH 74 READ 60 \MASTERSCOPEBLOCK/TEMPLATE 56 READ 49 READ 36 READ 26 \MASTERSCOPEBLOCK/MSINIT 22 HELP 2 RATOM) (110 MSCHANGEDARRAY 83 MSCHANGEDARRAY 67 MSDATABASELST 43 USERTEMPLATES 30 MSDBEMPTY 12 %( 6 %[) ( 120 (CL:*** incompatible MASTERSCOPE data base) 19 (BAD DATABASE)) SETTEMPLATE D1 (L (1 TEMPLATE 0 FN) F 2 LISPXHIST) @Ad)dgo;Adi4dgA*o !dgAgAgAdA HddgHgH hhgHYAiRg@Hh I(137 UNDOSAVE 81 COPY 78 \MASTERSCOPEBLOCK/TEMPLATE 42 ERROR) (128 SETTEMPLATE 116 ! 103 CALL 94 MACRO 66 CALL 58 ! 49 MACRO 29 MACRO 9 EVAL) ( 39 "Invalid template" 16 (CALL .. EVAL)) \MASTERSCOPEBLOCK/TEMPLATE D1 (L (2 FLG 1 TEMPLATE 0 FN) F 1 FILEPKGFLG) s@` @` HihAHTAiOB%Q@gHhh `@oi g @Addg @` io ` H(111 PUTHASH 105 ERROR 94 GETHASH 71 MSMARKCHANGED 65 GETRELATION 51 MARKASCHANGED 15 GETHASH 6 GETHASH) (108 USERTEMPLATES 91 MSTEMPLATES 82 MACRO 68 FNS 55 MSDATABASELST 43 TEMPLATES 12 MSTEMPLATES 3 USERTEMPLATES) ( 102 "Invalid template" 61 (CALL DIRECTLY)) TESTRELATION D1 (L (3 INVERTED 2 ITEM2 1 RELATION 0 ITEM)) :Adg) $dB@CH@CHH H hi(45 TESTTABLE 38 GETTABLE 11 PARSERELATION) (5 TABLES) () UNSAVEFNSA0016 D1 (NAME ERRORSET F 0 FN) hPg hh(11 MARKASCHANGED) (8 FNS 3 MSDATABASELST) () UNSAVEFNS D1 (L (0 FNS) P 1 FN F 6 RESETVARSLST) ,@ ` bQH@`goi i Yg Ig I I Ii I `dgCg`Vc Zog JKdVJc V VkK JgIg` h\$Igg 9gIhid Ig :]`Mg gM` LgIhid Igg gI` HX(291 /SETATOMVAL 288 REMOVE 277 LOADDEF 266 PRINT 249 /SETATOMVAL 236 GETP 219 UNSAVEDEF 211 PRINT 197 HASDEF 181 WHEREIS 163 ERROR! 154 NLEFT 147 TAILP 125 UNSAVEFNSA0016 90 SAVEDEF 85 VIRGINFN 79 \DEFINEDP 71 EXPRP 65 GETP 56 GETP 42 TERPRI 38 PRIN1 8 \APPEND2) (285 MSNEEDUNSAVE 281 MSNEEDUNSAVE 274 ? 271 FNS 257 loading 245 NOTCOMPILEDFILES 241 NOTCOMPILEDFILES 233 FILE 226 NOTCOMPILEDFILES 216 FNS 202 unsaving 194 SAVED 191 FNS 178 FILELST 175 FNS 169 EXPRS 131 MSDATABASELST 122 INTERNAL 108 MSDATABASELST 105 MSDATABASELST 98 CHANGES 94 RECOMPILEDEFAULT 62 ADVISED 53 BROKEN 27 CHANGES 24 RECOMPILEDEFAULT 5 MSNEEDUNSAVE) ( 119 (UNSAVEFNSA0016) 34 "WARNING: you must set RECOMPILEDEFAULT to EXPRS in order to have these functions recompiled automatically") UPDATECHANGED D1 NIL `g h(11 MAPHASH 2 \MASTERSCOPEBLOCK/MSINIT) (8 UPDATECHANGED1 5 MSCHANGEDARRAY) () UPDATECHANGED1 D1 (L (1 KEY 0 VAL)) @iAdg` {Adg` jAdg` YAdg` HAdg` 7Adg` &Adg` Adg` 6Aggo bA@hi Ai oi i Ah ` (199 PUTHASH 192 \MASTERSCOPEBLOCK/MSERASE 186 TERPRI 181 PRIN1 172 PRIN1 166 \MASTERSCOPEBLOCK/MSUPDATEFN1 156 GETDEF 139 TESTTABLE 122 TESTTABLE 105 TESTTABLE 88 TESTTABLE 71 TESTTABLE 54 TESTTABLE 37 TESTTABLE 20 TESTTABLE) (196 MSCHANGEDARRAY 149 ? 146 FNS 133 MSDATABASELST 130 NLAMBDA 116 MSDATABASELST 113 PREDICATE 99 MSDATABASELST 96 EFFECT 82 MSDATABASELST 79 CALL 65 MSDATABASELST 62 APPLY 48 MSDATABASELST 45 REF 31 MSDATABASELST 28 NOBIND 14 MSDATABASELST 11 CALL) ( 177 " disappeared!" 153 (NOERROR NOCOPY MASTERSCOPE)) UPDATEFN D1 (L (2 IFCANT 1 EVENIFVALID 0 FN)) @dDl>A9@d` 0g` @g` @dg` h@gBjggo X|Bdg@oi &Bgoi @i oi i @dg` &@dg` @dg` @h ` h@H h(225 \MASTERSCOPEBLOCK/MSUPDATEFN1 218 PUTHASH 211 \MASTERSCOPEBLOCK/MSERASE 202 TESTTABLE 185 TESTTABLE 168 TESTTABLE 153 TERPRI 148 PRIN1 139 PRIN2 133 PRIN1 115 ERROR 95 GETDEF 70 TESTTABLE 55 TESTTABLE 40 TESTTABLE 26 GETHASH 15 \MASTERSCOPEBLOCK/MSINIT) (215 MSCHANGEDARRAY 196 MSDATABASELST 193 REF 179 MSDATABASELST 176 NOBIND 162 MSDATABASELST 159 CALL 122 PRINT 103 ERROR 88 ? 84 CURRENT 77 FNS 64 MSDATABASELST 61 REF 49 MSDATABASELST 46 NOBIND 34 MSDATABASELST 31 CALL 23 MSCHANGEDARRAY) ( 144 " can't be analyzed!" 129 "Sorry, the function " 111 "can't be analyzed " 92 (NOERROR NOCOPY MASTERSCOPE)) \MASTERSCOPEBLOCK/VERBNOTICELIST D1 (L (0 VPART) F 2 MS.VERB.TO.NOTICED) p@dgdgdgih@ @ @@IHR5oi @i ki @oi oi i (109 ERROR! 106 TERPRI 101 PRIN1 92 PRIN1 79 SPACES 73 PRIN1 66 PRIN1 40 UNION 37 \MASTERSCOPEBLOCK/VERBNOTICELIST 31 \MASTERSCOPEBLOCK/VERBNOTICELIST) (17 ANDNOT 11 AND 5 OR) ( 97 "!" 88 "" 62 "can't SHOW or EDIT where things ") STORETABLE D1 (P 1 Z P 0 OLDREL I 2 VALUE I 1 TABLST I 0 KEY) H@A @BA A1BdI@A HdIBI@A h(62 SUBTABLE 37 ADDTABLE 17 PUTTABLE 6 GETTABLE) NIL () EQMEMBHASH D1 (L (2 H 1 V 0 X)) A@B (8 MEMB 5 GETHASH) NIL () (PRETTYCOMPRINT MASTERSCOPECOMS) (RPAQQ MASTERSCOPECOMS ((COMS * MSDATABASECOMS) (COMS * MSAUXCOMS) (COMS * MSDBCOMS) (COMS * MSCHECKBLOCKSCOMS) (COMS * MSPATHSCOMS) (COMS (FNS MSFIND) (VARS MSBLIP) (COMS (* SCRATCHASH) ( INITVARS (MSCRATCHASH)) (DECLARE%: DONTCOPY (MACROS SCRATCHASH)))) (COMS (* marking changed) (FNS MSMARKCHANGED CHANGEMACRO CHANGEVAR CHANGEI.S. CHANGERECORD MSNEEDUNSAVE UNSAVEFNS) (ADDVARS ( COMPILE.TIME.CONSTANTS)) (VARS (RECORDCHANGEFN (QUOTE CHANGERECORD))) (INITVARS (CHECKUNSAVEFLG T) ( MSNEEDUNSAVE))) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS * PARSERRECORDS) (MACROS GETWORDTYPE)) (COMS (* interactive routines) (VARS * (LIST (LIST (QUOTE MASTERSCOPEDATE) (SUBSTRING (DATE) 1 9)))) ( ADDVARS (HISTORYCOMS %.)) (FNS %. MASTERSCOPE) (* Interpreting commands) (FNS MSINTERPRETSET MSINTERPA MSGETBLOCKDEC LISTHARD MSMEMBSET MSLISTSET MSHASHLIST MSHASHLIST1 CHECKPATHS ONFILE) (FNS MSINTERPRET VERBNOTICELIST MSOUTPUT MSCHECKEMPTY CHECKFORCHANGED MSSOLVE) (DECLARE%: DONTCOPY (RECORDS GETHASH INRELATION PATHOPTIONS))) (DECLARE%: DONTCOPY (COMS (P (MAPC (QUOTE (GETRELQ TESTRELQ SCRATCHASH)) ( FUNCTION (LAMBDA (X) (PUTHASH X (QUOTE MACRO) USERTEMPLATES))))) (BLOCKS (NIL %. MSMARKCHANGE1 MSFIND (LOCALVARS . T)) (MSSTOREDATA MSSTOREDATA MSCOLLECTDATA (LOCALFREEVARS FNDATA) (NOLINKFNS . T)) ( MASTERSCOPEBLOCK MSINTERPRETSET CHANGEI.S. CHANGEMACRO CHANGERECORD CHANGEVAR CHECKFORCHANGED CHECKPATHS DUMPDATABASE DUMPDATABASE1 FMAPRINT GETRELATION GETTEMPLATE GETVERBTABLES LISTHARD MAPRELATION MASTERSCOPE MSCHECKEMPTY MSCLOSEFILES MSDESCRIBE MSDESCRIBE1 MSERASE MSGETBLOCKDEC MSHASHLIST MSHASHLIST1 MSINIT MSINTERPA MSINTERPRET MSLISTSET MSMARKCHANGED MSMEMBSET MSNEEDUNSAVE MSNLAMBDACHECK MSNOTICEFILE MSOUTPUT MSPRINTHELPFILE MSSHOWUSE MSSOLVE MSUPDATE MSUPDATEFN1 ONFILE PARSERELATION PARSERELATION1 READATABASE SETTEMPLATE TEMPLATE TESTRELATION UNSAVEFNS UPDATECHANGED UPDATECHANGED1 UPDATEFN VERBNOTICELIST (ENTRIES CHANGERECORD DUMPDATABASE DUMPDATABASE1 GETRELATION GETTEMPLATE MAPRELATION MASTERSCOPE MSCLOSEFILES MSHASHLIST1 MSINTERPA MSMARKCHANGED MSMEMBSET MSLISTSET MSNEEDUNSAVE MSNOTICEFILE MSSHOWUSE PARSERELATION READATABASE SETTEMPLATE TESTRELATION UNSAVEFNS UPDATECHANGED UPDATECHANGED1 UPDATEFN MSLISTSET MSDESCRIBE) (RETFNS) (SPECVARS ANYFOUND BADMARKS FNDATA NEEDUPDATE OTHERSET PREVVALUE SHOWFN V VARS) (NOLINKFNS . T))) (GLOBALVARS CHECKUNSAVEFLG CLISPCHARRAY CLISPIFYPRETTYFLG DWIMIFYCOMPFLG DWIMWAIT FILELINELENGTH FILELST FILERDTBL LISPXHISTORY MASTERSCOPEDATE MSBLIP MSCHANGEDARRAY MSDATABASEINIT NODUMPRELATIONS MSDBEMPTY MSERRORFN MSFILELST MSHELPFILE MSNEEDUNSAVE MSOPENFILES MSPRINTCNT MSPRINTFLG MSRECORDTRANFLG MSTEMPLATES MSTHOSE NOTCOMPILEDFILES RECOMPILEDEFAULT TABLE.TO.NOTICED USERTEMPLATES MSDATABASELST EDITQUIETFLG MSHASHFILE ANALYZEUSERFNS) (DECLARE%: EVAL@COMPILE (P (CLISPDEC (QUOTE FAST)))) (FILES (LOADCOMP) MSANALYZE))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA -- %.) ( NLAML) (LAMA))))) (RPAQQ MSDATABASECOMS ((FNS UPDATEFN MSNOTICEFILE MSSHOWUSE MSUPDATEFN1 MSUPDATE MSNLAMBDACHECK MSCOLLECTDATA) (FNS UPDATECHANGED UPDATECHANGED1) (VARS TABLE.TO.NOTICED) (FNS MSCLOSEFILES) (VARS ( MSFILELST) (MSOPENFILES)) (VARS (MSPRINTFLG (QUOTE %.)) (MSPRINTCNT 0)) (ADDVARS (MSHASHFILE) ( ANALYZEUSERFNS)))) (RPAQQ TABLE.TO.NOTICED ((BIND (- (- (- (- (+ BIND ARG) REF) SMASH) SET) TEST)) (REFFREE (- (- (- REFFREE SETFREE) SMASHFREE) TESTFREE)) (REF (- (- (- REF SET) SMASH) TEST)) (PREDICATE (- PREDICATE CALL)) (EFFECT (- (- EFFECT CALL) PREDICATE)) (CALL (- CALL NLAMBDA)) (0 TYPE) (APPLY (+ APPLY STACK)) (ARGS ARG))) (RPAQQ MSFILELST NIL) (RPAQQ MSOPENFILES NIL) (RPAQQ MSPRINTFLG %.) (RPAQQ MSPRINTCNT 0) (ADDTOVAR MSHASHFILE) (ADDTOVAR ANALYZEUSERFNS) (RPAQQ MSAUXCOMS ((* things which are not in the "main stream" of MASTERSCOPE) (COMS (* Describe command) (FNS MSDESCRIBE MSDESCRIBE1 FMAPRINT) (ADDVARS (DESCRIBELST)) (GLOBALVARS DESCRIBELST)) (COMS (* Print help file) (FNS MSPRINTHELPFILE) (VARS MSHELPFILE)) (COMS (* templates - export TEMPLATE GETTEMPLATE SETTEMPLATE) (FNS TEMPLATE GETTEMPLATE SETTEMPLATE) (FILEPKGCOMS TEMPLATES)))) (ADDTOVAR DESCRIBELST) (RPAQQ MSHELPFILE MASTERSCOPE.SYNTAX) (PUTDEF (QUOTE TEMPLATES) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (P * (MAPCAR (QUOTE X) (FUNCTION ( LAMBDA (FN) (LIST (QUOTE SETTEMPLATE) (KWOTE FN) (KWOTE (GETTEMPLATE FN)))))))) CONTENTS NILL) (TYPE DESCRIPTION "masterscope templates")))) (RPAQQ MSDBCOMS ((* functions for manipulating the data base) (FNS MSMARKCHANGE1 MSINIT GETVERBTABLES MSSTOREDATA STORETABLE) (ADDVARS (MSCHANGEDARRAY) (MSDATABASELST)) (INITVARS (MSDBEMPTY T)) (VARS MSDATABASEINIT NODUMPRELATIONS) (FNS PARSERELATION PARSERELATION1 GETRELATION MAPRELATION TESTRELATION ) (COMS (* table lookup functions) (FNS ADDHASH SUBHASH MAKEHASH MSREHASH EQMEMBHASH) (P (MAPC (QUOTE ((GETHASH GETTABLE) (GETHASH TESTTABLE) (PUTHASH PUTTABLE) (ADDHASH ADDTABLE) (SUBHASH SUBTABLE) ( MAPHASH MAPTABLE) (MAKEHASH MAKETABLE) (EQMEMBHASH EQMEMBTABLE))) (FUNCTION (LAMBDA (X) (MOVD? (CAR X) (CADR X)))))) (FNS MSVBTABLES) (DECLARE%: DONTCOPY (MACROS GETRELQ TESTRELQ)) (BLOCKS (NIL ADDHASH SUBHASH MAKEHASH MSREHASH MSVBTABLES (LOCALVARS . T)))) (COMS (* erase function) (FNS MSERASE)) (COMS (* dump data base) (FNS DUMPDATABASE DUMPDATABASE1 READATABASE) (VARS DATABASECOMS)) (ADDVARS ( GAINSPACEFORMS (MSDATABASELST "erase current Masterscope database" (%. ERASE)))))) (ADDTOVAR MSCHANGEDARRAY) (ADDTOVAR MSDATABASELST) (RPAQ? MSDBEMPTY T) (RPAQQ MSDATABASEINIT ((CALL 25 . 50) (BIND 10 . 10) (NLAMBDA 10 . 10) (NOBIND 10) (RECORD 20 . 10) ( CREATE 2 . 2) (FETCH 10 . 10) (REPLACE 10 . 10) (REFFREE 10 . 1) (REF 10 . 25) (SETFREE 1 . 1) (SET 20 . 30) (SMASHFREE 1 . 1) (SMASH 1 . 1) (PROP 1 . 1) (TEST 1 . 1) (TESTFREE 1 . 1) (PREDICATE 10 . 10) (EFFECT 10 . 10) (CLISP 10 . 10) (SPECVARS 10 . 10) (LOCALVARS 10 . 10) (APPLY 10 . 10) (ERROR 10 . 10 ) (LOCALFREEVARS 10 . 10) (CONTAINS 10 . 10) (FILE 10) (ARGS 10) (USERTEMPLATES NIL . T) (0 10 . 10))) (RPAQQ NODUMPRELATIONS (CONTAINS FILE)) (MAPC (QUOTE ((GETHASH GETTABLE) (GETHASH TESTTABLE) (PUTHASH PUTTABLE) (ADDHASH ADDTABLE) (SUBHASH SUBTABLE) (MAPHASH MAPTABLE) (MAKEHASH MAKETABLE) (EQMEMBHASH EQMEMBTABLE))) (FUNCTION (LAMBDA (X) ( MOVD? (CAR X) (CADR X))))) (RPAQQ DATABASECOMS ((E (DUMPDATABASE)))) (ADDTOVAR GAINSPACEFORMS (MSDATABASELST "erase current Masterscope database" (%. ERASE))) (RPAQQ MSCHECKBLOCKSCOMS ((* blocks checker) (FNS MSCHECKBLOCKS MSCHECKBLOCK MSCHECKFNINBLOCK MSCHECKBLOCKBASIC MSCHECKBOUNDFREE GLOBALVARP PRINTERROR MSCHECKVARS1 UNECCSPEC NECCSPEC SPECVARP SHORTLST DOERROR) (BLOCKS (MSCHECKBLOCKS MSCHECKBLOCKS MSCHECKBLOCK MSCHECKFNINBLOCK MSCHECKBLOCKBASIC MSCHECKBOUNDFREE PRINTERROR MSCHECKVARS1 UNECCSPEC NECCSPEC SPECVARP SHORTLST DOERROR (LOCALFREEVARS SEEN BLKFNS V ERRORS SFLG LF BLKAPPLYCALLERS U LF1 SHOULDBESPECVARS) (NOLINKFNS . T) (SPECVARS SPECVARS LOCALVARS RETFNS BLKAPPLYFNS BLKLIBRARY NOLINKFNS LINKFNS LOCALFREEVARS DONTCOMPILEFNS ENTRIES) (GLOBALVARS SYSLOCALVARS SYSSPECVARS FILELST MSCRATCHASH) GLOBALVARP)))) (RPAQQ MSPATHSCOMS ((* PATHS) (FNS MSPATHS MSPATHS1 MSPATHS2 MSONPATH MSPATHS4 DASHES DOTABS BELOWMARKER MSPATHSPRINTFN) (BLOCKS (MSPATHSBLOCK (ENTRIES MSPATHS MSONPATH MSPATHS2) MSPATHS MSPATHS1 MSPATHS2 MSONPATH MSPATHS4 DASHES DOTABS BELOWMARKER MSPATHSPRINTFN (LOCALFREEVARS TABS NAMED LINENUM LL BELOWCNT MARKING SEEN INVERTED TO NOTRACE AVOIDING SEPARATE) (GLOBALVARS MSBLIP MSCRATCHASH) ( NOLINKFNS . T))))) (RPAQQ MSBLIP "sysout and inform Masinter@PARC") (RPAQ? MSCRATCHASH) (ADDTOVAR COMPILE.TIME.CONSTANTS) (RPAQQ RECORDCHANGEFN CHANGERECORD) (RPAQ? CHECKUNSAVEFLG T) (RPAQ? MSNEEDUNSAVE) (RPAQ MASTERSCOPEDATE " 5-Dec-86") (ADDTOVAR HISTORYCOMS %.) (PRETTYCOMPRINT MASTERSCOPECOMS) (RPAQQ MASTERSCOPECOMS ((COMS * MSDATABASECOMS) (COMS * MSAUXCOMS) (COMS * MSDBCOMS) (COMS * MSCHECKBLOCKSCOMS) (COMS * MSPATHSCOMS) (COMS (FNS MSFIND) (VARS MSBLIP) (COMS (* SCRATCHASH) ( INITVARS (MSCRATCHASH)) (DECLARE%: DONTCOPY (MACROS SCRATCHASH)))) (COMS (* marking changed) (FNS MSMARKCHANGED CHANGEMACRO CHANGEVAR CHANGEI.S. CHANGERECORD MSNEEDUNSAVE UNSAVEFNS) (ADDVARS ( COMPILE.TIME.CONSTANTS)) (VARS (RECORDCHANGEFN (QUOTE CHANGERECORD))) (INITVARS (CHECKUNSAVEFLG T) ( MSNEEDUNSAVE))) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS * PARSERRECORDS) (MACROS GETWORDTYPE)) (COMS (* interactive routines) (VARS * (LIST (LIST (QUOTE MASTERSCOPEDATE) (SUBSTRING (DATE) 1 9)))) ( ADDVARS (HISTORYCOMS %.)) (FNS %. MASTERSCOPE) (* Interpreting commands) (FNS MSINTERPRETSET MSINTERPA MSGETBLOCKDEC LISTHARD MSMEMBSET MSLISTSET MSHASHLIST MSHASHLIST1 CHECKPATHS ONFILE) (FNS MSINTERPRET VERBNOTICELIST MSOUTPUT MSCHECKEMPTY CHECKFORCHANGED MSSOLVE) (DECLARE%: DONTCOPY (RECORDS GETHASH INRELATION PATHOPTIONS))) (DECLARE%: DONTCOPY (COMS (P (MAPC (QUOTE (GETRELQ TESTRELQ SCRATCHASH)) ( FUNCTION (LAMBDA (X) (PUTHASH X (QUOTE MACRO) USERTEMPLATES))))) (BLOCKS (NIL %. MSMARKCHANGE1 MSFIND (LOCALVARS . T)) (MSSTOREDATA MSSTOREDATA MSCOLLECTDATA (LOCALFREEVARS FNDATA) (NOLINKFNS . T)) ( MASTERSCOPEBLOCK MSINTERPRETSET CHANGEI.S. CHANGEMACRO CHANGERECORD CHANGEVAR CHECKFORCHANGED CHECKPATHS DUMPDATABASE DUMPDATABASE1 FMAPRINT GETRELATION GETTEMPLATE GETVERBTABLES LISTHARD MAPRELATION MASTERSCOPE MSCHECKEMPTY MSCLOSEFILES MSDESCRIBE MSDESCRIBE1 MSERASE MSGETBLOCKDEC MSHASHLIST MSHASHLIST1 MSINIT MSINTERPA MSINTERPRET MSLISTSET MSMARKCHANGED MSMEMBSET MSNEEDUNSAVE MSNLAMBDACHECK MSNOTICEFILE MSOUTPUT MSPRINTHELPFILE MSSHOWUSE MSSOLVE MSUPDATE MSUPDATEFN1 ONFILE PARSERELATION PARSERELATION1 READATABASE SETTEMPLATE TEMPLATE TESTRELATION UNSAVEFNS UPDATECHANGED UPDATECHANGED1 UPDATEFN VERBNOTICELIST (ENTRIES CHANGERECORD DUMPDATABASE DUMPDATABASE1 GETRELATION GETTEMPLATE MAPRELATION MASTERSCOPE MSCLOSEFILES MSHASHLIST1 MSINTERPA MSMARKCHANGED MSMEMBSET MSLISTSET MSNEEDUNSAVE MSNOTICEFILE MSSHOWUSE PARSERELATION READATABASE SETTEMPLATE TESTRELATION UNSAVEFNS UPDATECHANGED UPDATECHANGED1 UPDATEFN MSLISTSET MSDESCRIBE) (RETFNS) (SPECVARS ANYFOUND BADMARKS FNDATA NEEDUPDATE OTHERSET PREVVALUE SHOWFN V VARS) (NOLINKFNS . T))) (GLOBALVARS CHECKUNSAVEFLG CLISPCHARRAY CLISPIFYPRETTYFLG DWIMIFYCOMPFLG DWIMWAIT FILELINELENGTH FILELST FILERDTBL LISPXHISTORY MASTERSCOPEDATE MSBLIP MSCHANGEDARRAY MSDATABASEINIT NODUMPRELATIONS MSDBEMPTY MSERRORFN MSFILELST MSHELPFILE MSNEEDUNSAVE MSOPENFILES MSPRINTCNT MSPRINTFLG MSRECORDTRANFLG MSTEMPLATES MSTHOSE NOTCOMPILEDFILES RECOMPILEDEFAULT TABLE.TO.NOTICED USERTEMPLATES MSDATABASELST EDITQUIETFLG MSHASHFILE ANALYZEUSERFNS) (DECLARE%: EVAL@COMPILE (P (CLISPDEC (QUOTE FAST)))) (FILES (LOADCOMP) MSANALYZE))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA %.) (NLAML) (LAMA))))) (PUTPROPS MASTERSCOPE COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986)) NIL