(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Mar-2021 11:17:53" ("compiled on " {DSK}larry>ilisp>med>sources>ACODE.;6) "12-Mar-2021 10:18:55" brecompiled changes%: PRINTCODENT in "Medley Full Sysout 12-Mar-2021 ..." dated "12-Mar-2021 10:18:58") (FILECREATED "12-Mar-2021 11:17:48" {DSK}larry>ilisp>med>sources>ACODE.;6 71741 changes to%: ( FNS PRINTCODENT) previous date%: "12-Mar-2021 09:50:45" {DSK}larry>ilisp>med>sources>ACODE.;4) CALLSCCODE :D8 (L (2 FNAPPLY 1 OPTION 0 DEF) P 1 IGNOREFNS F 51 COMPILER::*HOST-ARCHITECTURE* F 52 IGNOREFNS) #3@ @ @o Wh*Ag$H_ldO_*_(j_lj__OO*OHO(O_djOlO_Ok_O_d3 djOOn_j_&lj_$_"O$O"*O&HO*O$_ djO lO _&O$k_$O&lndgdggg_AgAgOOlBOgOdKK[OdJJZO(l_(O*l_*Hq2HOVdk_V_,djO,lO, __djHOVdk_V_.djO.lO._XOdkHOVdk_V_0djO0lO0_ZOdlHOVdk_V_2djO2lO2_\OdlHOVdk_V_4djO4lO4_^OdlHOVdk_V_6djO6lO6_`Odg"AgAgAdghdg'dgdgdgdggWf+OXOZO\O^_8d3 djO8O8gWf'OXOZO\_:d3 djO:O:OXOZ_d3 \djO>QO>GgWf#OZO\O^_@d3 1djO@&O@OZO\_Bd3 djOBOBn_AgAdgB_ROglORdgCgWfOXOZO\O^OXOZO\_bdOb TObILObhdgdg2Adg𓿱&gAgB_JgWf'OXOZO\O^_Dd3 \djODQODGgWf#OXOZO\_Fd3 1djOF&OFOXOZ_Hd3 djOHOHnglOJgWf'OXOZO\O^_Ld3 \djOLQOLGgWf#OXOZO\_Nd3 1djON&ONOXOZ_Pd3 djOPOPndLL\gOdI _b'OIObAB _TAi%OTJ AiOdMMOTN OTK OTJ OTL OTM iiJL N M K J L h(1562 REVERSE 1556 REVERSE 1550 REVERSE 1544 REVERSE 1538 REVERSE 1531 \CALLSCCODE/RUNION 1517 \CALLSCCODE/RUNION 1506 \CALLSCCODE/RUNION 1492 \CALLSCCODE/RUNION 1479 \CALLSCCODE/RUNION 1467 \CALLSCCODE/RUNION 1431 \CALLSCCODE/RUNION 1412 CALLSCCODE 1394 \SUBFNDEF 1026 \CODEBLOCKP 376 \FINDOP 26 ERROR 13 \CODEBLOCKP 5 \GET-COMPILED-CODE-BASE) (1374 VARAPPLY 1285 :3-BYTE 1238 :4-BYTE 1224 GLOBALS 1150 :3-BYTE 1103 :4-BYTE 1089 APPLY 1081 VARAPPLY 1070 FNAPPLY 1057 GVAR_ 1049 GVAR 1017 COMPILED-CLOSURE 984 :4-BYTE 975 GCONST 960 CALLED 943 APPLY 934 FNAPPLY 856 :3-BYTE 809 :4-BYTE 798 FNX 717 :3-BYTE 666 :4-BYTE 655 FN4 647 FN3 638 FN2 629 FN1 620 FN0 607 APPLY 598 VARAPPLY 589 FNAPPLY 579 -X- 296 BOUND 277 APPLY 269 VARAPPLY 260 USEDFREE 253 BOUND 245 PVARCODE 237 IVARCODE 43 FNAPPLY) ( 21 "not compiled code") \CALLSCCODE/RUNION :D8 (L (1 L2 0 L1)) @HAdAAbHXNIL NIL () CHANGECCODE :D8 (L (2 FN 1 OLDREF 0 NEWREF) P 14 \INTERRUPTABLE P 2 ALL-CODE-BASES) o B dYAdHHIA b@AIoAB Ad_OOOd@d3@o@ OdIK@ OdjOlOOIKk@l OdjOlOOIlK@ OdjOlOOIlK@l OdjOlOOxOdIL@ OdjOlOOILk@l OdjOlOOIlL@ OdjOlOOIlL@l OdjOlOOxOdIM@ OdjOlOOIMk@l OdjOlOOIlM@ OdjOlOOIlM@l OdjOlOOxOd_@IdjOlOIOkؾdjNlNIlO_djOlOIlO_djOlOIO@ OdjOlOOIOk@ OdjOlOOIlO@l OdjOlOO08A(113 ERROR 64 ERROR 35 \CHANGECCODE/CCCSCAN 13 \GET-COMPILED-CODE-BASE) NIL ( 107 "Can't changename a symbol to a non-symbol in compiled code" 56 "Inconsistent reference map" 4 "refmap") \CHANGECCODE/CCCSUBFN? :D8 (L (0 X) F 1 ALL-CODE-BASES F 2 SUBMAPS F 3 OLDREF) N@d@ @ d @ HdQHQcRHS ch(71 \NCONC2 66 \CHANGECCODE/CCCSCAN 42 \CODEBLOCKP 35 \GET-COMPILED-CODE-BASE 28 \SUBFNDEF 14 \GET-COMPILED-CODE-BASE) (21 LITATOM 6 COMPILED-CLOSURE) () \CHANGECCODE/CCCSCAN :D8 (L (0 DEF) P 4 SUBMAPS I 1 OLDREF) @H_Ad3@l_HdjOlOHOk_djOlOHlO_djOlOHlO_djOlO_d3 djOOn_HdjOlAOMOlԱcO ONk_NNdgHMIJKhLdgdgHOl_$_"djO$lO$O"O$k_djOlOO"lO$_djOlOO"lO$_ djO lO _Ad3@OdA OlJO3 OdjOыOnсO dgHOl_._,djO.lO.O,O.k_&djO&lO&O,lO._(djO(lO(O,lO._*djO*lO*_Ad3@OdAOlIO3 OdjOыOnсO 0g&HOl_8_6djO8lO8O6O8k_0djO0lO0O6lO8_2djO2lO2O6lO8_4djO4lO4_dAOlKO (759 \CHANGECCODE/CCCSUBFN? 614 \CHANGECCODE/CCCSUBFN? 430 \CHANGECCODE/CCCSUBFN? 385 EQP 191 \FINDOP) (623 GCONST 440 ATOM 251 FNX 243 FN 220 -X-) () PRINTCODE :D8 (L (6 FN.IS.CODEBASE 5 PC 4 FIRSTBYTE 2 RADIX 1 LVFLG 0 FN) P 37 *PRINT-BASE* P 10 IVARS P 9 FVARS P 8 PVARS P 2 I6 P 1 I4 P 0 CODEBASE I 3 OUTF F 49 \USER-SUBR-LIST) d1BlbF@0@ (@dd3@@g' @o gBlllBhgBlllBh @$B%j_lO:IOC oC JHjHOlHOHOk_djOlOC OdjoloOdloloOdlCHjoC oC HjhC oC H!Yl oC HC COdl o.l0oC HC oC HC C OlԱH[olK H\dlKdjl^[dloNK -l)C oC HNC C C oC C LAj0ON.g g ` ` EaDDOLIOLC oC AOL` ONsNONNO`OL` joC \OLOLEj#oC IEC oC oC C hb \N_NOL` _`ONlhC IONC l hC HOLdk_L_ djO lHOLdk_L_djOlO ]Mdgdg.ONONHjHOLlHOLlk_NO`_`dgONO`O`_`_NdgONO`O`_`k_Nndgh_N`dg(ON]ONHOLk_djOlOk_N1g'ON0ONHlOL_djOlOk_NONM_^OLM_LdO^_^gONkHjHOLlHOL_NO^dgONHjHOLlHOL_NgO^dgh_NgO^dgONm_No3iONO^_N^O _P ]_\IOPC O\dj+IHOLdk_L_"djO"lO"_RC O\k(IHOLdk_L_$djO$lO$_TC O\dl+IHOLdk_L_&djO&lO&_VC O\l(IHOLdk_L_(djO(lO(_XC O\l(IHOLdk_L_*djO*lO*_ZC lhC MC M_M_^OMM]dgC h_g_l(hC O\jOPOقORO7oC gC O\jOPOقORC oC  Mdg`l(hC O\jOPOقORO7oC gC O\jOPOقORC oC g_l(hC O\jOPOقORO7oC gC O\jOPOقORC oAC d3 djO>O>nC g"l(hC OROTOVOXC Mdg^oC ORC oC l(hC OTOVOXOZ_@d3 djO@O@nC Dg+oC OR gC o MdgONO`O`_`_NgONO`O`_`k_NMdgh_NgNl(hC `h_D_B oC ONONOTk_N_DORODODOBMdgIl(hC Wbh_H_FoC ONBONOTk_N6_HOROHOHOFl(hC MORk C C ONO^|O^dgONkOR_NdgONOR_NSO^gO^dgh_N9gO^dgONm_N3ONO^_N (3303 TERPRI 3296 PRIN1 3289 NTH 3278 TAB 3228 PRIN1 3205 TAB 3144 PRIN1 3118 TAB 3015 PRIN2 3002 \TYPENAMEFROMNUMBER 2994 PRIN1 2972 PRIN2 2926 TAB 2916 PRIN1 2904 PRIN1 2895 PRIN1 2870 PRIN2 2850 TAB 2830 PRIN2 2784 TAB 2761 PUTHASH 2746 PUTHASH 2702 PRINTNUM 2682 PRIN1 2609 PRIN2 2600 PRIN1 2588 PRIN1 2579 PRIN1 2567 PRIN1 2548 SPACES 2519 PRIN1 2499 PRIN2 2490 PRIN1 2478 PRIN1 2469 PRIN1 2457 PRIN1 2438 SPACES 2385 TAB 2360 PRIN2 2328 TAB 2291 PUTHASH 2276 PUTHASH 2232 PRINTNUM 2212 PRIN1 2169 PRIN2 2156 TAB 2136 PRIN2 2123 TAB 2100 PRIN2 2091 TAB 2071 PUTHASH 2056 PUTHASH 2012 PRINTNUM 1992 PRIN1 1956 PRIN2 1939 PRIN1 1918 PRIN1 1906 PRIN1 1875 TAB 1855 PRIN2 1838 PRIN1 1817 PRIN1 1805 PRIN1 1774 TAB 1751 PRIN2 1734 PRIN1 1713 PRIN1 1701 PRIN1 1670 TAB 1645 TERPRI 1599 PRIN1 1589 TAB 1579 PRINTNUM 1534 PRINTNUM 1489 PRINTNUM 1442 PRINTNUM 1398 PRINTNUM 1352 PRINTNUM 1336 \FINDOP 907 \FINDOP 843 TAB 833 PRINTNUM 823 TAB 807 GETHASH 783 TERPRI 776 PRIN1 764 PRIN1 752 PRINTNUM 743 PRIN1 717 PRIN1 703 GETHASH 673 GETHASH 655 PRIN1 643 PRINTNUM 620 CLRHASH 609 CLRHASH 598 SETUPHASHARRAY 587 SETUPHASHARRAY 565 TERPRI 558 PRIN1 546 TERPRI 539 TERPRI 532 PRIN2 519 PRIN1 507 TERPRI 494 PRINTCODENT 453 PRINTCODENT 425 TERPRI 418 PRIN1 407 PRIN1 395 PRIN1 384 PRIN1 351 PRIN2 341 PRIN1 318 PRIN1 306 PRIN1 291 PRIN1 279 PRIN1 196 PRINTNUM 144 PRIN1 132 PRINTNUM 57 ERROR 44 \GET-COMPILED-CODE-BASE 17 \GET-COMPILED-CODE-BASE) (3397 NCJUMP 3387 CJUMP 3373 UNWIND 3363 JUMP 3344 POP.N 3324 FNX 3192 MISCN 3124 \INITSUBRS 3106 SUBRCALL 3092 RETURN 3060 DUNBIND 3031 UNBIND 3009 ? 2980 TYPEP 2880 FNX 2838 GCONST 2771 ATOM 2756 \PRINTCODE.STKSTATE 2741 \PRINTCODE.LEVEL 2727 JUMP 2718 NCJUMP 2645 JUMPXX 2573 pvar 2513 ; 2463 pvar 2370 BIND 2299 FN 2286 \PRINTCODE.STKSTATE 2271 \PRINTCODE.LEVEL 2257 JUMP 2248 NCJUMP 2179 JUMPX 2144 SICX 2110 SNIC 2079 SIC 2066 \PRINTCODE.STKSTATE 2051 \PRINTCODE.LEVEL 2037 JUMP 2028 NCJUMP 1966 JUMP 1912 fvar 1863 FVAR 1811 pvar 1761 PVAR 1707 ivar 1658 IVAR 1636 -X- 1295 NCJUMP 1285 CJUMP 1271 UNWIND 1261 JUMP 1226 POP.N 1187 FNX 1108 MISCN 1062 SUBRCALL 1048 RETURN 1017 DUNBIND 987 UNBIND 934 BIND 923 -X- 802 \PRINTCODE.STKSTATE 698 \PRINTCODE.STKSTATE 668 \PRINTCODE.LEVEL 615 \PRINTCODE.STKSTATE 604 \PRINTCODE.LEVEL 593 \PRINTCODE.STKSTATE 582 \PRINTCODE.LEVEL 82 FIX 62 FIX 38 CODE) ( 3222 "?" 3138 "?" 3021 ")" 2988 "(" 2910 ")" 2889 "(" 2676 "->" 2665 -65536 2594 "]" 2561 "[" 2484 "]" 2451 "[" 2206 "->" 1986 "->" 1945 "]" 1900 "[" 1844 "]" 1799 "[" 1740 "]" 1695 "[" 770 "------------------------------" 758 " not found)" 737 "(PC " 711 "*" 649 ": " 552 "----" 513 "Info: " 486 "Local args: " 444 "name table: " 401 " fvaroffset: " 378 " nlocals: " 366 " ntsize" 335 " frame name: " 312 " argtype: " 285 " byteswapped: " 273 "[CLOSUREP]" 249 " startpc" 237 " pv" 221 " na" 209 " stkmin" 138 ": " 52 "not compiled code") PRINTCODENT :D8 (L (2 START2 1 START1 0 STR) F 19 OUTF F 20 CODEBASE F 21 I4 F 22 FVARS F 23 IVARS F 24 PVARS) *@ABAb@W& W& ABBJhW*JW& oW& ljNM&W*W(JNؼdjLlLW& Nk^lW& W*KW& oW& W(jW(JlW(JW(Jk_djOlOW(lJ_djOlOW(lJ_djOlO_d3 djOOnXj_lj__OO*OW(KO_djOlO_Ok_OlkW& j_$lj_"_ O"O *O$W(KO"_djOlO_$O"k_"O$ndjIHhW.c.g)nIHhW0c0gIHhW,c,gW& oW& IW& oW& HW& W& JlԺKlԻ(538 TERPRI 530 PRIN2 521 PRIN1 508 PRIN1 499 PRIN1 486 PRIN1 347 SPACES 144 PRIN1 131 PRINTNUM 120 SPACES 104 PRINTNUM 64 PRIN1 51 PRINTNUM 31 TERPRI 23 PRIN1) (479 FVAR 462 PVAR 438 IVAR) ( 514 ": " 492 " " 137 ": " 57 ": ") \SUBFNDEF :D8 (L (0 X)) K@d3@D@m lA7mmIH@I Zl0Jl9I iIkYhh@ (72 \GET-COMPILED-DEFINITION 38 NTHCHARCODE 14 NTHCHARCODE) NIL () \CODEBLOCKP :D8 (L (0 PTR)) @HjZl.@hk@mиl@lH UH nUKHlBHjh8HdkYIX &H nU`HlXjH!lh@(85 \VALIDADDRESSP 38 \VALIDADDRESSP) (102 \DTDSpaceBase) () \MAP-CODE-POINTERS :D8 (L (1 MAPFN 0 CODEBLOCK)) @Hj@mь`Hl!lo@ @Q@djHlH HkԸIdghgZA@djHlH@HkغdjJlJ@lHػdjKlK@lHؼdjLlL@HlMHIԸs(72 \FINDOP 45 ERROR) (95 GCONST 86 -X- 21 \DTDSpaceBase) ( 39 "ARG NOT Compiled Code Block") \MAP-CODE-LITERALS :D8 (L (1 MAPFN 0 CODEBLOCK)) @Hj@mь`Hl!lo@ @l_A_jljLK M@OLغdjJlJLk\M^d3 djNNnѵ@djHl@OglOOl԰H HIkԸIIdghdgdgA_@Hl__djOlOOOk_djOlOOlO_djOlOOlO_djOlO_d3 djOOn@HlglO dgA_,@Hl_(_&djO(lO(O&O(k_ djO lO O&lO(_"djO"lO"O&lO(_$djO$lO$_*d3 djO*O*n@HlglO,bgXA_:@Hl_2_0djO2lO2O0O2k_.djO.lO.@Hl_8_6djO8lO8O6O8k_4djO4lO4@HlglO:(173 \FINDOP 45 ERROR) (678 POINTER 552 GCONST 538 ATOM 385 ATOM 370 FN 217 FNX 209 FN 199 -X- 153 ATOM 21 \DTDSpaceBase) ( 39 "ARG NOT Compiled Code Block") \COPYCODEBLOCKA0001 :D8 (L (0 PTR)) @NIL NIL () \COPYCODEBLOCK :D8 (L (3 NEWFN 2 NWORDS 1 OLDCA 0 NEWCA) P 1 \INTERRUPTABLE P 0 \INTERRUPTABLE) ?@AB@g C$@dnCn@lkCC@@(17 \MAP-CODE-POINTERS) (12 \COPYCODEBLOCKA0001) () \COPYFNHEADER :D8 (L (0 FNHD) P 2 \INTERRUPTABLE) 2@lHdjlXdH YI@HĿIjII(27 \ALLOC.CODE.BLOCK) NIL () \RECLAIMCODEBLOCKA0001 :D8 (L (0 PTR) F 0 CODEBASE) @P@NIL NIL () \RECLAIMCODEBLOCK :D8 (I 0 CODEBASE F 0 SI::*CLOSURE-CACHE*) 2`@P @Ph i@@j@g h(46 \MAP-CODE-POINTERS 22 XCL::PUT-IMPLICIT-KEY-HASH 13 XCL::GET-IMPLICIT-KEY-HASH) (41 \RECLAIMCODEBLOCKA0001 4 SI::*CLOSURE-CACHE-ENABLED*) () LLBREAK :D8 (L (1 WHEN 0 FN)) 0@dg @ @ Y@o g@` @g XIi @gH @l I IA dJ @(123 /PUTD 112 BROKENDEF 105 NCREATE2 96 /PUTPROP 84 /PUTD 76 PACK* 71 GENSYM 60 /SETATOMVAL 42 ERROR 29 \GET-COMPILED-DEFINITION 22 XCL:UNBREAK-FUNCTION 14 GETPROP) (90 BROKEN 66 L 54 BROKENFNS 48 BROKENFNS 9 BROKEN) ( 37 "is not compiled code") BROKENDEF :D8 (L (1 WHEN 0 DEF) P 11 \INTERRUPTABLE) @  H\AdgiY%dgiZAdgiYZl  H IljKLlkkm IHjMjL MLg OdjOlOOMLkg OdjO lO O"MLlg O$djO&lO&O(HLMLlKL Ll\HjMjK MJ$hMdjLlL _dgMdgQMLkԾdjNlNMLl__djOlOOOk_djOlO/g'MLg O*djO,lO,O.LkO\N(422 \FINDOP 300 \FINDOP 268 \MOVEBYTES 250 \MOVEBYTES 209 \FINDOP 169 \FINDOP 130 \FINDOP 117 \MOVEBYTES 100 \ALLOC.CODE.BLOCK 71 \#BLOCKDATACELLS 61 \LISPERROR 5 \GET-COMPILED-CODE-BASE) (417 \RETURN 407 RETURN 320 GCONST 310 -X- 204 POP 164 RAID 125 %'NIL 47 BOTH 32 AFTER 19 BEFORE) () PRINTOPCODES :D8 (L (0 SINGLE)) {oh l hd oh lhd oh l"hd oh l+hd oh l7hd oh h h @ ` hdHY&oIh oh Ih oIh l H Hgxlhd Hgh l#hd Hgh l,hd Hgh l7hd Hoh 'h(366 TERPRI 360 PRIN1 339 TAB 329 PRIN1 309 TAB 299 PRIN1 280 TAB 270 PRIN1 252 TAB 231 PRIN1 222 TAB 214 PRINTNUM 201 PRIN1 191 PRIN1 179 PRINTNUM 150 \FINDOP 134 TERPRI 127 TERPRI 120 PRIN1 108 TAB 98 PRIN1 86 TAB 76 PRIN1 64 TAB 54 PRIN1 42 TAB 32 PRIN1 20 TAB 10 PRIN1) (323 ? 293 ? 264 ? 240 unused 142 \OPCODES) ( 354 "" 207 (FIX 3 8) 185 "-" 171 (FIX 3 8) 114 "UFN table entry" 92 "stk effect" 70 "format" 48 "len-1" 26 "name" 4 " #") (PRETTYCOMPRINT ACODECOMS) (RPAQQ ACODECOMS ((COMS (* ; "Printing compiled code") (FNS PRINTCODE PRINTCODENT) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS PCVAR PRINJUMP NEXTBYTE PRINTCODEHEADERDECODE) (GLOBALVARS \INITSUBRS \PRINTCODE.LEVEL \PRINTCODE.STKSTATE))) (COMS (* ; "Analyzing compiled code") (FNS CALLSCCODE RUNION) (FNS CHANGECCODE CCCSUBFN? \SUBFNDEF CCCSCAN \CODEBLOCKP) (FNS \MAP-CODE-POINTERS \MAP-CODE-LITERALS) (BLOCKS (CALLSCCODE CALLSCCODE RUNION) (CHANGECCODE CHANGECCODE CCCSUBFN? CCCSCAN)) (* ;; "MACROS/OPTIMIZERS for getting and setting symbol entries in a compiled-code block. These are parameterized to allow for 2-, 3-, and 4-byte symbol representations." ) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS REFMAP) (MACROS CODEBASELT CODEBASELT2 CODEBASESETA CODEBASESETA2 CODEBASELT3 CODEBASELT4 CODEBASESETA3 CODEBASESETA4) (OPTIMIZERS CODEBASESETATOM CODEBASEGETATOM CODEBASEGETNAME BYTESPERCODEATOM BIG-VMEM-HOST) (FILES (LOADCOMP) LLGC LLCODE LLBASIC MODARITH RENAMEMACROS)) (ADDVARS (IGNOREFNS))) (COMS (* ; "Maintaining ref count consistency in code") (FNS \COPYCODEBLOCK \COPYFNHEADER \RECLAIMCODEBLOCK)) (COMS (* ; "Low-level break") (FNS LLBREAK BROKENDEF)) (COMS (* ; "for TELERAID") (DECLARE%: DONTCOPY (ADDVARS (RDCOMS (FNS PRINTCODE PRINTCODENT BROKENDEF)) (EXPANDMACROFNS NEXTBYTE PCVAR PRINJUMP CODEBASELT CODEBASELT2 CODEBASESETA CODEBASESETA2 PRINTCODEHEADERDECODE)))) (COMS (* ; "reference to opcodes symbolically") (FNS PRINTOPCODES) ( GLOBALVARS \OPCODES)) (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)))) (ADDTOVAR IGNOREFNS) (PUTPROPS ACODE COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1995 2017 2021)) NIL