(FILECREATED "16-Jul-86 23:23:04" ("compiled on " {ERIS}SOURCES>ACODE.;22) "15-Jul-86 20:06:40" brecompiled changes: PRINTCODE PRINTCODENT CALLSCCODE CHANGECCODE CCCSUBFN? \SUBFNDEF CCCSCAN LLBREAK BROKENDEF in "Xerox Lisp 15-Jul-86 ..." dated "15-Jul-86 20:18:34") (FILECREATED "16-Jul-86 23:22:17" {ERIS}SOURCES>ACODE.;22 41645 changes to: (FNS CALLSCCODE CCCSUBFN? BROKENDEF PRINTCODE PRINTCODENT CHANGECCODE CCCSCAN LLBREAK \ALLOC.CODE.BLOCK \SUBFNDEF) ( VARS ACODECOMS) (MACROS NEXTBYTE CODEBASESETA2 CODEBASELT2 CODEBASESETA CODEBASELT) previous date: "30-Jun-86 17:36:26" {ERIS}SOURCES>ACODE.;21) CALLSCCODE D1 (L (2 FNAPPLY 1 OPTION 0 DEF) F 22Q IGNOREFNS) K@ @o  H_AgHlNl__jHOHOk_\Ag OHOdjdlgglB$HOdjdlOdJJZOdIIYOl_Ol_OQHOdk__ __"j HOdk__O"k HOdk__O"l HOdk__ OdgAgAdghdgdgdgdgdgjOOdg%jOO _Adg[OglBEdgdg;Adg𓿱,gjOOglBjOOdKK[gOdW$ AiRA _AiOI OM OJ OI OK OL OdLL~iIK M L J I K h(1102Q REVERSE 1076Q REVERSE 1072Q REVERSE 1066Q REVERSE 1062Q REVERSE 1055Q \CALLSCCODE/RUNION 1021Q \CALLSCCODE/RUNION 1010Q \CALLSCCODE/RUNION 774Q \CALLSCCODE/RUNION 761Q \CALLSCCODE/RUNION 747Q \CALLSCCODE/RUNION 734Q \CALLSCCODE/RUNION 714Q CALLSCCODE 676Q \SUBFNDEF 257Q \FINDOP 15Q ERROR 3 \GET-COMPILED-CODE-BASE) (653Q VARAPPLY 610Q GLOBALS 572Q VARAPPLY 561Q FNAPPLY 550Q GVAR_ 542Q GVAR 525Q CALLED 514Q FNAPPLY 470Q FNX 452Q FN4 444Q FN3 436Q FN2 427Q FN1 420Q FN0 405Q VARAPPLY 376Q FNAPPLY 366Q -X- 140Q USEDFREE 133Q BOUND 105Q VARAPPLY 31Q FNAPPLY) ( 12Q "not compiled code") \CALLSCCODE/RUNION D1 (L (1 L2 0 L1)) @HAdAAbHXNIL NIL () CHANGECCODE D1 (L (2 FN 1 OLDREF 0 NEWREF) P 12Q \INTERRUPTABLE) 1 oaB d"YAdHHIA b@AIoAB Ad^NNNd@lo@ N&dIJ@ OOOǿOOkOlN&dIK@ OOOǿOOkOlN&dIL@ OOOǿOOkOlN3d @IM@ǿIMk@ OOOǿOOkOlA(141Q ERROR 67Q ERROR 35Q \CHANGECCODE/CCCSCAN 12Q \GET-COMPILED-CODE-BASE) (313Q LITATOM 235Q LITATOM 160Q LITATOM) ( 135Q "Can't changename a symbol to a non-symbol in compiled code" 61Q "Inconsistent reference map" 3 "refmap") \CHANGECCODE/CCCSUBFN? D1 (L (0 X) F 2 SUBMAPS F 3 OLDREF) 6@ d bRHh R@S cY@IiHX(40Q \NCONC2 35Q \CHANGECCODE/CCCSCAN 11Q \GET-COMPILED-CODE-BASE 3 \SUBFNDEF) NIL () \CHANGECCODE/CCCSCAN D1 (L (0 DEF) P 4 SUBMAPS I 1 OLDREF) .@H_All_jHOHOk_6HO ONk_NNdg HMIJKhLAOMOl԰dgdg@HOl__OOOk_AlOAOlJjO udg8AldHOl__OOOkACOlI8g0HOlHOl__OOOk_A OlK(261Q \CHANGECCODE/CCCSUBFN? 56Q \FINDOP) (365Q GCONST 341Q LITATOM 271Q ATOM 237Q LITATOM 164Q FNX 156Q FN 111Q -X-) () PRINTCODE D1 (L (6 FN.IS.CODEBASE 5 PC 4 FIRSTBYTE 2 RADIX 1 LVFLG 0 FN) P 12Q IVARS P 11Q FVARS P 10Q PVARS P 2 I6 P 1 I4 P 0 CODEBASE I 3 OUTF) )BlbF@$@ @dlg' @o glBhglBh0oC JHC oC IHdnnkC oC IHdnnkC oC IH\C oC H!C oC HC oC IH[C oC IHC C j_lO1IOC oC JHOHOkC C Ol԰olK LKdjll^[loNK C oC C LAjrO,g g ` ` ENDDO*UIO*C oC AO*` O,\NhO,NO:O*` VoC KO*O*EjoC IEC oC oC C hb |N_,O*` _:O,lhC IO,C l hC HO*dk_*_. ]_6IO.C O6djIHO*dk_*_0C O6kIHO*dk_*_2C O6lIHO*dk_*_4C lhC MC M_M_8O3MM]dg&C hHO*dk_* ]MdgdgO,}O,HO*lk_,O:_:ZdgO,[O:O:_:_,CdgO,BO:O:_:k_,(dgh_,gO,O,HO*kk_,O,M_8O*M_*dO8_8gO,kHO*_,O8dgO,HO*_,gh_,O8gO8dgO,m_,3O,O8_,_gQl(hC O6jO.OقO0O-oC gC O6jO.OقO0C o]C XMdgRl(hC O6jO.OقO0O-oC gC O6jO.OقO0C oC gQl(hC O6jO.OقO0O-oC gC O6jO.OقO0C oC MdgZO.Ol_oC IOO*O6k_C O,wOO8gO8gO,O,k` OO:` Kgl(hC O0C 4Mdgl(hC O0nC gl(hC O0O2C MdgalO0O0nفO0_oC IOO*O6k_C O,OO8gO8gO,O,k` OO:` gO0O2_.l(hC jO.ѱrMdgl(hC O0O0l_&_$O2O$O2O$O&k__OO?kC OO#oC gC OC oC C Ok_gC O2dO$k_"_ O"O ?kC O"O#oC gC O"C oC C O"k_"O,O&k_,O:_:gdO0O2O0loj_(oC IO(O*O6k_(C O,MO(O8gO8gO,O,k` O(O:` !Mdgl(hC jO0O2C gl(hC O0O2O4C Mdg/oC O0C oC l(hC jO2O4ѱg!oC O0 gC oMdgO,|O:O:_:_,ngO,eO:O:_:k_,UMdgh_,Hg)l(hC `O0k C O,'O,O2k_,Ml(hC MO0k C C O,O8O8dgO,kO0_,gO,O0_,O8dgh_,gO8dgO,m_,3{O,O8_,p(4277Q TERPRI 4272Q PRIN1 4265Q NTH 4254Q TAB 4221Q PRIN2 4214Q NTH 4201Q TAB 4054Q PRIN1 4043Q \TYPENAMEFROMNUMBER 4035Q PRIN1 4003Q TAB 3773Q PRIN1 3762Q PRIN1 3753Q PRIN1 3727Q PRIN2 3711Q TAB 3671Q PRIN2 3654Q TAB 3631Q PUTHASH 3616Q PUTHASH 3552Q PRINTNUM 3530Q PRIN1 3425Q PRIN2 3416Q PRIN1 3405Q PRIN1 3376Q PRIN1 3366Q PRIN1 3346Q SPACES 3313Q PRIN1 3273Q PRIN2 3264Q PRIN1 3253Q PRIN1 3244Q PRIN1 3234Q PRIN1 3214Q SPACES 3131Q TAB 3077Q TAB 3046Q PUTHASH 3033Q PUTHASH 2767Q PRINTNUM 2745Q PRIN1 2677Q PRIN2 2664Q TAB 2644Q PRIN2 2631Q TAB 2606Q PRIN2 2577Q TAB 2557Q PUTHASH 2544Q PUTHASH 2500Q PRINTNUM 2456Q PRIN1 2417Q PRIN2 2401Q PRIN1 2356Q PRIN1 2346Q PRIN1 2312Q TAB 2272Q PRIN2 2254Q PRIN1 2231Q PRIN1 2221Q PRIN1 2165Q TAB 2142Q PRIN2 2124Q PRIN1 2101Q PRIN1 2071Q PRIN1 2035Q TAB 1401Q \FINDOP 1362Q TERPRI 1301Q PRIN1 1271Q TAB 1261Q PRINTNUM 1230Q PRINTNUM 1200Q PRINTNUM 1146Q PRINTNUM 1130Q \FINDOP 1110Q TAB 1100Q PRINTNUM 1070Q TAB 1053Q GETHASH 1027Q TERPRI 1022Q PRIN1 1011Q PRIN1 1000Q PRINTNUM 771Q PRIN1 742Q PRIN1 727Q GETHASH 700Q GETHASH 662Q PRIN1 651Q PRINTNUM 624Q CLRHASH 615Q CLRHASH 606Q SETUPHASHARRAY 577Q SETUPHASHARRAY 555Q TERPRI 550Q PRIN1 537Q TERPRI 532Q PRINTCODENT 472Q PRINTCODENT 447Q TERPRI 442Q PRINTNUM 420Q PRIN1 407Q PRINTNUM 365Q TERPRI 360Q PRINTNUM 346Q PRIN1 335Q PRINTNUM 323Q PRIN1 312Q PRIN1 302Q PRIN1 271Q PRIN1 260Q PRIN1 247Q PRINTNUM 235Q PRIN1 224Q PRINTNUM 177Q PRIN1 166Q PRINTNUM 141Q PRIN1 130Q PRINTNUM 117Q PRIN1 55Q ERROR 43Q \GET-COMPILED-CODE-BASE 17Q \GET-COMPILED-CODE-BASE) (4412Q NCJUMP 4402Q CJUMP 4366Q JUMP 4344Q POP.N 4322Q FNX 4205Q \INITSUBRS 4167Q SUBRCALL 4154Q RETURN 4121Q DUNBIND 4071Q UNBIND 4050Q ? 4022Q TYPEP 3737Q FNX 3677Q GCONST 3641Q ATOM 3626Q \PRINTCODE.STKSTATE 3613Q \PRINTCODE.LEVEL 3577Q JUMP 3570Q NCJUMP 3467Q JUMPXX 3372Q pvar 3307Q ; 3240Q pvar 3114Q BIND 3054Q FN 3043Q \PRINTCODE.STKSTATE 3030Q \PRINTCODE.LEVEL 3014Q JUMP 3005Q NCJUMP 2707Q JUMPX 2652Q SICX 2616Q SNIC 2565Q SIC 2554Q \PRINTCODE.STKSTATE 2541Q \PRINTCODE.LEVEL 2525Q JUMP 2516Q NCJUMP 2427Q JUMP 2352Q fvar 2300Q FVAR 2225Q pvar 2152Q PVAR 2075Q ivar 2023Q IVAR 1756Q NCJUMP 1746Q CJUMP 1731Q JUMP 1707Q POP.N 1661Q FNX 1567Q SUBRCALL 1554Q RETURN 1521Q DUNBIND 1470Q UNBIND 1426Q BIND 1417Q -X- 1350Q -X- 1050Q \PRINTCODE.STKSTATE 724Q \PRINTCODE.STKSTATE 675Q \PRINTCODE.LEVEL 621Q \PRINTCODE.STKSTATE 612Q \PRINTCODE.LEVEL 603Q \PRINTCODE.STKSTATE 574Q \PRINTCODE.LEVEL 72Q FIX 60Q FIX 37Q CODE) ( 4061Q ")" 4031Q "(" 3767Q ")" 3747Q "(" 3524Q "->" 3511Q -200000Q 3412Q "]" 3362Q "[" 3260Q "]" 3230Q "[" 2741Q "->" 2452Q "->" 2406Q "]" 2342Q "[" 2261Q "]" 2215Q "[" 2131Q "]" 2065Q "[" 1016Q "------------------------------" 1005Q " not found)" 765Q "(PC " 736Q "*" 656Q ": " 544Q "----" 524Q "Local args: " 463Q "name table: " 414Q ": " 342Q " nlocals: " 317Q " ntsize: " 276Q " framename: " 254Q " argtype: " 231Q " startpc: " 173Q " pv: " 135Q " na: " 113Q " stkmin: " 52Q "not compiled code") PRINTCODENT D1 (L (2 START2 1 START1 0 STR) F 4 OUTF F 5 CODEBASE F 6 I4 F 7 I6 F 10Q FVARS F 11Q IVARS F 12Q PVARS) @ABAb@T T ABBJhVJT oT WUJUJkT lT VKT oT WUKUKkT jUJUJkXlUKk¹lT UKdjIHhWcg#lIHhWcgIHhWcgT oT IT oT HT T JlԺKlԻ)(346Q TERPRI 341Q PRIN1 333Q PRIN1 322Q PRIN1 314Q PRIN1 303Q PRIN1 204Q SPACES 150Q PRINTNUM 127Q PRIN1 116Q PRINTNUM 107Q SPACES 100Q PRINTNUM 57Q PRIN1 46Q PRINTNUM 26Q TERPRI 21Q PRIN1) (277Q FVAR 260Q PVAR 234Q IVAR) ( 327Q ": " 310Q " " 123Q ": " 53Q ": ") WHOCALLS D1 (L (1 USAGE) P 1 VAL P 0 CALLTYPE I 0 CALLEE) %AgAgAgggg I(41Q MAPATOMS) (36Q WHOCALLS1 30Q FNAPPLY 24Q VARAPPLY 17Q VARS 11Q VAR 3 USES) () WHOCALLS1A0001 D1 (L (1 FLG 0 CALLED) F 0 CALLEE F 1 FN F 2 VAL) )P@P @PQi oi QRcg (46Q RETFROM 33Q PRIN1 22Q PRIN1 7 MEMB) (43Q WHOCALLS1) ( 27Q ", ") WHOCALLS1 D1 (I 0 FN F 0 CALLTYPE) @ @Pg (20Q BLOCK 15Q CALLSCCODE 3 CCODEP) (12Q WHOCALLS1A0001) () \SUBFNDEF D1 (L (0 X)) E@l>@m lA3mmIH@I Zl0Jl9I iIkYhh@ (102Q \GET-COMPILED-DEFINITION 42Q NTHCHARCODE 14Q NTHCHARCODE) NIL () LLBREAK D1 (L (1 WHEN 0 FN)) _0@dg @g @ Y@o g@` @g XIi @gH @l I IA dJ @(133Q /PUTD 122Q BROKENDEF 115Q NCREATE2 106Q /PUTPROP 76Q /PUTD 70Q PACK* 65Q GENSYM 56Q /SETATOMVAL 42Q ERROR 30Q \GET-COMPILED-DEFINITION 23Q RESTORE 12Q GETPROP) (102Q BROKEN 62Q L 52Q BROKENFNS 46Q BROKENFNS 20Q BROKEN 7 BROKEN) ( 37Q "is not compiled code") BROKENDEF D1 (L (2 WHEN 1 CA 0 DEF)) @ aHBdgiYgiZBBdgiYZl H IljKLllm IGHjMjL MLg ǿMLkg ǿMLlg ǿHLMLlKL Ll\HjMjK JhML ^dgMgMLg ǿLNk\(307Q \FINDOP 257Q \FINDOP 243Q \MOVEBYTES 223Q \MOVEBYTES 202Q \FINDOP 164Q \FINDOP 147Q \FINDOP 136Q \MOVEBYTES 121Q \ALLOC.CODE.BLOCK 67Q \#BLOCKDATACELLS 62Q \LISPERROR 3 \GET-COMPILED-CODE-BASE) (304Q \RETURN 275Q RETURN 266Q -X- 177Q POP 161Q RAID 144Q 'NIL 46Q BOTH 31Q AFTER 17Q BEFORE) () PRINTOPCODES D1 (L (0 SINGLE))  o l o l o l" o l+ o l7 o h h @` hdHYoI o I oI l H HgUl Hg l# Hg l, Hg l7 Ho ah(400Q TERPRI 374Q PRIN1 353Q TAB 345Q PRIN1 326Q TAB 320Q PRIN1 302Q TAB 274Q PRIN1 257Q TAB 240Q PRIN1 231Q TAB 223Q PRINTNUM 212Q PRIN1 203Q PRIN1 173Q PRINTNUM 142Q \FINDOP 126Q TERPRI 121Q TERPRI 114Q PRIN1 104Q TAB 76Q PRIN1 66Q TAB 60Q PRIN1 50Q TAB 42Q PRIN1 32Q TAB 24Q PRIN1 14Q TAB 6 PRIN1) (342Q ? 315Q ? 271Q ? 247Q unused 134Q \OPCODES) ( 371Q "" 217Q (FIX 3 10Q) 200Q "-" 166Q (FIX 3 10Q) 111Q "UFN table entry" 73Q "stk effect" 55Q "format" 37Q "len-1" 21Q "name" 3 " #") (PRETTYCOMPRINT ACODECOMS) (RPAQQ ACODECOMS ((COMS (* Printing compiled code) (FNS PRINTCODE PRINTCODENT) (DECLARE: DONTCOPY ( MACROS PCVAR PRINJUMP NEXTBYTE) (GLOBALVARS \INITSUBRS \PRINTCODE.LEVEL \PRINTCODE.STKSTATE))) (COMS ( * Analyzing compiled code) (FNS CALLSCCODE RUNION WHOCALLS WHOCALLS1) (FNS CHANGECCODE CCCSUBFN? \SUBFNDEF CCCSCAN) (BLOCKS (CALLSCCODE CALLSCCODE RUNION) (CHANGECCODE CHANGECCODE CCCSUBFN? CCCSCAN)) (DECLARE: DONTCOPY (RECORDS REFMAP) (MACROS CODEBASELT CODEBASELT2 CODEBASESETA CODEBASESETA2)) ( ADDVARS (IGNOREFNS))) (COMS (* Low-level break) (FNS LLBREAK BROKENDEF)) (COMS (* for TELERAID) ( DECLARE: DONTCOPY (ADDVARS (RDCOMS (FNS PRINTCODE PRINTCODENT BROKENDEF) (MACROS PCVAR) (MACROS CODEBASELT CODEBASELT2 CODEBASESETA CODEBASESETA2)) (EXPANDMACROFNS NEXTBYTE PCVAR PRINJUMP CODEBASELT CODEBASELT2 CODEBASESETA CODEBASESETA2)))) (COMS (* reference to opcodes symbolically) (FNS PRINTOPCODES) (GLOBALVARS \OPCODES)) (DECLARE: EVAL@COMPILE DONTCOPY (LOCALVARS . T)))) (ADDTOVAR IGNOREFNS) (PUTPROPS ACODE COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL