(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "27-Nov-2023 01:03:33" ("compiled on " {DSK}loadups-3005>RDSYS.;1) "19-Aug-2021 12:07:24" brecompiled ALL in "Lisp 19-Aug-2021 ..." dated "19-Aug-2021 12:07:27") (FILECREATED "27-Nov-2023 01:03:33" {DSK}loadups-3005>RDSYS.;1) VREADPAGEMAP :D8 (P 6 FP P 5 J P 3 VP P 2 I P 0 D) Cojصjojصjnk ojصjojصjnojl k oj nlkjojصjojصjnJIK JkԺKl Իljojl kML6onصjonصjnMN MkԽNkԾnjJI:onJ XnojH J JkZh(312 VREADPAGEMAPBLOCK 300 SETVMPTR 279 VGETBASE0 239 MAPVMPAGE 188 VGETBASE0 157 VREADPAGEMAPBLOCK 100 SETVMPTR 88 MAPVMPAGE 81 VGETBASE0 37 MAPVMPAGE) NIL ( 291 327680 268 1310720 218 1310720 203 1310720 178 1310720 132 327680 119 327680 93 327680 71 1310720 55 327680 42 327680 20 1310720 7 1310720) VREADPAGEMAPBLOCK :D8 (P 1 P P 0 B I 0 VP) 1@l dj&` ` YjHIk Hkظkٰ(37 MAPVMPAGE) (22 VMEMFILE 15 VMEMFILE) () VCHECKIFPAGE :D8 NIL iojl nSoi oi oi ni oi ojl i i h(100 TERPRI 94 PRIN1 88 VGETBASE0 73 PRIN1 62 PRIN1 53 PRIN1 42 PRIN1 31 PRIN1 14 VGETBASE0) NIL ( 78 1310720 67 ", but \InterfacePage says " 47 "= " 36 "Interface page key" 25 "Warning: " 4 1310720) V\LOCKEDPAGEP :D8 (I 1 TEMP I 0 VP) *k@l onp@j jhh(31 VGETBASE0 9 LLSH) NIL ( 14 1310720) V\LOOKUPPAGEMAP :D8 (P 0 PRIMENTRY I 0 VP) 5on@ HnjojH@l (50 VGETBASE0 20 VGETBASE0) NIL ( 36 327680 4 1310720) VCHECKPAGEMAP :D8 (P 11 RPTINDEX P 9 RP P 8 VP P 7 FP P 6 FPBASE P 5 RPTR P 4 CHAINLOCKED P 3 CHAINOCCUPIED P 2 NUMLOCKED P 1 NUMOCCUPIED P 0 *PRINT-BASE* F 12 VREALPAGETABLE F 13 VRPTSIZE) 1 ljdddU Wkk OOnW]Mj n_jIKPIi oi Ki oi Ji oi Li oi i nWOO]k NIkԹMk _Ml _OO 'OojO^j coi O`i oi Oi oi Oi oi Nj i O JkԺMj j9oi Oi oi O`i oGOojl9 k?oi Oi oi Oi oi i Ok_%nWOO]k KkԻMj jLkԼ(538 VGETBASE0 521 VGETBASE0 491 TERPRI 484 PRIN1 472 PRIN1 463 PRIN1 451 PRIN1 442 PRIN1 426 VGETBASE0 401 PRIN1 386 PRIN1 374 PRIN1 365 PRIN1 342 VGETBASE0 326 V\LOCKEDPAGEP 316 \PRINTVP 310 \GETBASEFIXP 302 PRIN1 290 PRIN1 281 PRIN1 269 \PRINTVP 260 PRIN1 248 PRIN1 233 PRIN1 219 \GETBASEFIXP 196 VCHECKFPTOVP1 185 VGETBASE0 173 VGETBASE0 156 VGETBASE0 135 TERPRI 129 PRIN1 118 PRIN1 111 PRIN1 100 PRIN1 93 PRIN1 82 PRIN1 75 PRIN1 64 PRIN1 40 VGETBASE0 13 VCHECKFPTOVP) (394 \RPOFFSET 241 \RPOFFSET) ( 478 ", which is not in the locked page area" 457 " is locked, but living in FP " 436 "VP " 416 1310720 407 " should be locked but isn't." 380 ", living in RP " 359 "VP " 296 "; but FP Map says that FP contains " 275 " lives in FP " 254 " says VP " 227 "RPT for RP " 207 131072 123 " pages on chain are locked somehow." 105 " pages are permanently locked; " 87 " are on page chain. " 69 " occupied pages, but only ") VCHECKFPTOVP :D8 (P 2 FPBASE P 1 FP) GojlR kojkIHhJj nIJj IkԹJkغ(58 VCHECKFPTOVP1 53 \GETBASEFIXP 40 VGETBASE0 13 \GETBASEFIXP) NIL ( 19 131072 4 1310720) VCHECKFPTOVP1 :D8 (P 0 FP2 I 2 RPTINDEX I 1 VP I 0 FP) _A H@Poi oi @i oi Ai oi Hi i ih(89 TERPRI 82 PRIN1 74 PRIN1 63 \PRINTVP 56 PRIN1 44 PRIN1 36 PRIN1 24 PRIN1 5 V\LOOKUPPAGEMAP) NIL ( 68 "; but PageMap says that page is in FP " 50 " contains VP " 30 " says FP " 18 "FP map") V\SHOWPAGETABLE :D8 (P 8 LASTONE P 7 FIRSTONE P 6 STATE P 5 VP P 4 FLAGS P 3 RP P 2 RPTR P 1 OUTSTREAM P 0 *PRINT-BASE* I 1 FILE I 0 MODE F 9 VREALPAGETABLE F 10 VRPTSIZE) ^ lAg WjToI I @dgJj n[j KkԻWKh WKKZk @MNK_O"oI OI I h_K_MoK`I Jk nonJk osoMI kI MI lhI oJl I lI Jj j!M oI oI I h(342 TERPRI 335 PRIN1 323 PRIN1 311 V\LOCKEDPAGEP 293 VGETBASE0 284 SPACES 275 PRINTNUM 269 VGETBASE0 254 TAB 244 \PRINTVP 236 SPACES 228 PRINTNUM 207 VGETBASE0 183 VGETBASE0 174 PRINTNUM 145 TERPRI 138 PRIN1 129 PRIN1 101 VGETBASE0 82 \ILLEGAL.ARG 55 VGETBASE0 36 TERPRI 29 PRIN1 12 GETSTREAM) (167 \RPOFFSET 43 CHAIN 7 OUTPUT) ( 329 "Locked " 317 "Temp" 260 (FIX 6 8) 221 (FIX 8 8) 214 " Unavailable" 193 " Empty" 161 (FIX 7 8) 123 "ditto thru " 23 " RP VP FilePage Status") V\PRINTFPTOVP :D8 (P 10 NEXTTYPE P 9 NEXTLOCKED P 8 TYPE P 7 LOCKEDP P 6 NEXTVP P 5 FIRSTVP P 4 FIRSTFP P 3 NEXTFP P 2 LASTVP P 1 *PRINT-BASE* P 0 BASE I 4 VPRAWFLG I 3 STREAM I 2 TYPEFLG I 1 NWORDS I 0 FIRSTPAGE)  Cg b@kbAojlR boj@klm@k jAhKkԻAjm^HkXj ^dn _BN_Ol _~Ndldl ogdl dl oUdl dl oCdldlo1dlo$dkodlolo_NnJnNJkOOOOjJL$KkC l hC JnoiC oC L DMC MC oC DJC JC OgC Ol hC OC hC N]LKkټNO_O_AmbY(453 TERPRI 444 PRIN1 435 TAB 421 PRIN1 406 \PRINTVP 398 PRIN1 388 PRIN1 376 \PRINTVP 368 PRIN1 353 PRIN1 341 PRIN1 320 TAB 310 PRIN1 131 VTYPENAME 105 V\LOCKEDPAGEP 90 VGETBASE0 35 \GETBASEFIXP 10 GETSTREAM) (415 * 5 OUTPUT) ( 382 "-" 347 "-" 333 "empty" 256 "GC Overflow table" 245 "GC Main table" 232 "Stack" 220 "\FPTOVP" 207 "Property lists" 189 "Value cells" 171 "Definitions" 153 "Pnames" 43 131072 26 1310720) VRAIDCOMMAND :D8 (P 5 PAGE P 4 VA P 3 D P 2 A P 1 ATM P 0 CMD F 6 FRAME# F 7 RAIDIX F 8 .I2 F 9 .I7 F 10 VPRINTLEVEL F 11 ALINKS?) Qi hdooi Xdggdgi g Hdg g HdgiW g Hdgo ~g oo XHdgl l 6gW i Hdg(oi Iid gHdgH gid i c HdgCVjc oi oVkc i oi i V agZVVkoi i @lo@k LK"oLj jhLl\i @lb@HhAdi Z(694 READC 676 TERPRI 663 VSHOWSTACKBLOCK1 638 VGETBASE0 616 VGETBASE0 587 VGETBASE0 560 PRINTNUM 552 PRIN1 541 VSHOWSTACKBLOCK1 519 VGETBASE0 504 VGETBASE0 487 VSHOWSTACKBLOCK1 465 VGETBASE0 433 VGETBASE0 409 VGETBASE0 393 PRIN2 388 V\UNCOPY 383 VGETBASEPTR0 375 VGETBASEPTR0 343 VGETBASE0 328 VSHOWSTACKBLOCK1 322 VGETBASE0 314 VGETBASE0 289 VGETBASE0 270 VGETBASE0 243 VGETBASE0 223 VGETBASE0 198 VGETBASE0 165 VGETBASE0 131 VGETBASE0 115 VSHOWSTACKBLOCK1 89 VGETBASE0 73 VSHOWSTACKBLOCK1 64 VGETBASE0 31 VGETBASE0 14 VGETBASE0) NIL ( 629 65536 607 65536 578 65536 568 "Basic frame" 547 " with IVar = " 533 "Residual BF" 510 65536 495 65536 481 "Garbage" 456 65536 424 65536 399 65536 365 65536 355 65536 334 65536 304 65536 280 65536 275 65536 258 65536 231 65536 213 65536 189 65536 156 65536 151 "Frame extn = " 122 65536 109 "guard block" 80 65536 55 65536 50 "free block" 22 65536 4 1310720) VSHOWSTACKBLOCK1 :D8 (I 2 GOODFLG I 1 STR I 0 PTR F 0 .I7) "P@ k Bo A (31 PRIN1 24 PRIN1 12 SPACES 6 PRINTNUM) NIL ( 19 "[bad] ") VPRINCOPY :D8 (I 0 X F 0 VPRINTLEVEL) @PP id (16 PRINT 9 V\UNCOPY) NIL () VNOSUCHATOM :D8 (I 0 ATM) &oi @i i o (35 ERROR 25 TERPRI 18 PRIN1 10 PRIN1) NIL ( 30 "No such atom: " 4 "No such atom: ") V\BACKTRACE :D8 (P 5 BLINK P 4 ARGNAME P 3 NAME P 2 NPVARS P 1 NARGS P 0 .I7 I 9 RADIX I 8 CNT I 7 PRINTFN I 6 ALINKS I 5 JUNK I 4 LOCALS I 3 VARS I 2 NAMES I 1 EPOS I 0 IPOS)  GlbglGhQG#oGh oh Gkb@ Eo Ho@k kj@lَo@l ] Mo@j kjo@lo@l G o H@ o KkG@G CDo@k kj@lَo@l o@j kjo@lo@l GDgi BKkG@GDgi BKkGA@NFo@k m-o@k kjo@ko@l l bj1i(478 VGETBASE0 449 VGETBASE0 430 VGETBASE0 398 V\PRINTFRAME 380 TERPRI 365 V\PRINTBF 349 VGETBASEPTR0 317 VGETBASE0 303 VGETBASE0 278 VGETBASE0 254 V\PRINTFRAME 238 PRIN1 227 PRINTNUM 219 PRIN1 208 TERPRI 202 V\PRINTBF 195 VGETBASEPTR0 163 VGETBASE0 147 TERPRI 141 PRINTNUM 135 VGETBASE0 110 VGETBASE0 94 PRIN1 83 TERPRI 77 TERPRI 66 V\STKNAME 52 PRIN1 40 PRINTNUM) (391 LOCALS 358 LOCALS 12 FIX) ( 468 65536 459 65536 440 65536 421 65536 339 65536 329 65536 308 65536 293 65536 269 65536 233 ", frame name= " 214 "Frame xtn at " 185 65536 175 65536 154 65536 125 65536 101 65536 89 "Basic frame at " 46 ": " 32 (FIX 3)) V\STKNAME :D8 (P 1 BFLINK P 0 NAME I 0 POS) o@j kjo@lo@l l Hdgrojo@k kj@lَo@l oIk IoIk oIj kkl (178 VGETBASEPTR0 161 VGETBASE0 145 VGETBASE0 130 VGETBASE0 113 VGETBASE0 88 VGETBASE0 53 VGETBASEPTR0 45 VGETBASEPTR0 13 VGETBASE0) (63 \INTERPRETER) ( 152 65536 136 65536 121 65536 103 65536 79 65536 72 65536 35 65536 25 65536 4 65536) V\PRINTBF :D8 (P 3 NM P 2 J P 1 I I 3 VARSONLY I 2 PRINTFN I 1 NMT I 0 BL) E@o@k o@j kko@k jJH~C@IC@ o@j kjo o@j lj.oh o@j lh kh CI ACvjJ [Ci5g[-Cl K k ojI kBIlԹJkZI oh h IlԹh(312 TERPRI 305 PRIN1 293 V\PRINTSTK 270 VGETBASEPTR0 255 SPACES 248 PRIN2 241 SPACES 217 V\SCANFORNTENTRY 205 TERPRI 191 V\PRINTSTK 182 TERPRI 176 SPACES 168 PRIN1 159 VGETBASE0 144 PRIN1 126 VGETBASE0 111 PRIN1 94 VGETBASE0 80 V\PRINTSTK 50 VGETBASE0 30 VGETBASE0 14 VGETBASE0) (229 *local*) ( 299 "[padding]" 261 65536 150 65536 138 "usecnt= " 117 65536 106 "residual " 85 65536 41 65536 21 65536 5 65536) V\PRINTFRAME :D8 (P 8 J P 4 NLOCALS P 3 TMP P 2 FT P 1 I P 0 NMT I 2 VARSONLY I 1 PRINTFN I 0 FRAME)  o@j kjo@lo@l j@l o@l l dnnkklCB@ o o@j kjo o@j kjo o@j kjo o@j kjo o@j l]j)o kh Mh oh o@k kjo o@k o @l o@l o @l o@l o @l o@j kjo@lo@l o @l o@k kjo@l o Hl \@l jOJIKBI LO}HoO [Bio[ oIj j/Bl K k oIj kABKh oBHoO [oh Kh oh oIj kjLoI^k Nj صj[dko+mojصjooooh h IlԹOk_BUo@l JIAI oIj joIj kAIlԹh(1031 TERPRI 1021 VGETBASEPTR0 998 VGETBASE0 983 V\PRINTSTK 971 VGETBASE0 936 TERPRI 929 PRIN1 863 VGETBASE0 853 VGETBASE0 832 VGETBASE0 817 PRIN1 805 PRIN2 797 PRIN1 781 V\SCANFORNTENTRY 753 PRIN1 734 VGETBASEPTR0 719 SPACES 712 PRIN2 705 SPACES 687 VGETBASE0 653 V\SCANFORNTENTRY 632 V\PRINTSTK 604 VGETBASE0 594 TERPRI 588 PRIN1 577 VGETBASE0 557 VGETBASE0 542 V\PRINTSTK 532 TERPRI 526 PRIN1 515 VGETBASEPTR0 483 VGETBASE0 468 V\PRINTSTK 458 TERPRI 452 PRIN1 441 VGETBASE0 425 V\PRINTSTK 415 TERPRI 409 PRIN1 398 VGETBASEPTR0 382 V\PRINTSTK 372 TERPRI 366 PRIN1 355 VGETBASE0 340 PRIN1 325 VGETBASE0 310 PRIN1 298 PRIN1 290 SPACES 282 PRIN1 264 VGETBASE0 249 PRIN1 233 VGETBASE0 218 PRIN1 201 VGETBASE0 186 PRIN1 168 VGETBASE0 153 PRIN1 133 VGETBASE0 118 PRIN1 107 V\PRINTSTK 73 VGETBASE0 65 VGETBASEPTR0 45 VGETBASEPTR0 13 VGETBASE0) NIL ( 1012 65536 989 65536 961 65536 923 "[padding]" 917 " not looked up]" 911 " top value]" 904 " non-stack binding]" 890 786432 880 " on stack]" 843 65536 823 65536 811 " " 791 "[fvar " 773 -1073741824 759 " [unbound]" 725 65536 678 65536 668 "local" 645 -2147483648 583 "[blink, clink]" 567 65536 548 65536 521 "[nametable]" 505 65536 495 65536 474 65536 447 "[next, pc]" 431 65536 404 "[fn header]" 388 65536 361 " alink]" 346 65536 335 "X, " 316 65536 304 ", " 277 "USE=" 255 65536 244 "N, " 224 65536 213 "V, " 192 65536 181 "C, " 159 65536 148 "F, " 124 65536 113 "[" 55 65536 35 65536 25 65536 4 65536) V\SCANFORNTENTRY :D8 (P 2 NM P 1 NT2 P 0 NT1 I 1 NTENTRY I 0 NMT) 9ld@l @HZhA@I jJ HlԸIlԹ(42 VATOM 32 \GETBASEFIXP 11 VGETBASE0) NIL () V\PRINTSTK :D8 (I 0 I F 0 .I7) CP@ o Poj@ Poj@k k (64 SPACES 58 PRINTNUM 53 VGETBASE0 36 PRINTNUM 31 VGETBASE0 16 PRIN1 6 PRINTNUM) NIL ( 42 65536 22 65536 11 ": ") V\CHECKARRAYBLOCK :D8 (P 5 ROVER P 4 FBL P 1 TRAILER P 0 ERROR I 2 ONFREELIST I 1 FREE I 0 BASE F 6 VFREEBLOCKBUCKETS) 6@@j nUo@j kjhAho@dk kZJYj nUoy@k Ik o`@j kjhAhoFBl@k @l l @@l l @o@H HV@k dll[KLj ] oX%M@Mi Ml ]Lj hh(299 VGETBASEPTR0 290 VGETBASEPTR0 280 V\CHECKARRAYBLOCK 257 VGETBASEPTR0 234 INTEGERLENGTH 229 VGETBASE0 218 ERROR 202 VGETBASEPTR0 194 VGETBASEPTR0 181 VGETBASEPTR0 173 VGETBASEPTR0 159 VGETBASE0 124 VGETBASE0 107 VGETBASE0 99 VGETBASE0 76 VGETBASE0 62 VGETBASE0 34 VGETBASE0 10 VGETBASE0) NIL ( 265 "Free block's bucket empty" 210 "ARRAYBLOCK links fouled" 140 "ARRAYBLOCK Trailer INUSE bit set wrong" 114 "ARRAYBLOCK Header and Trailer length don't match" 89 "ARRAYBLOCK Trailer password wrong" 50 "ARRAYBLOCK INUSE bit set wrong" 23 "ARRAYBLOCK Password wrong") V\PARSEARRAYSPACE :D8 (I 0 FN F 0 VArrayFrLst2 F 1 VArrayFrLst) 8Poj@ojP @ojQ @ojQ (53 V\PARSEARRAYSPACE1 38 V\PARSEARRAYSPACE1 24 V\PARSEARRAYSPACE1) NIL ( 45 3014656 30 4194304 16 3014656 5 4194304) V\PARSEARRAYSPACE1 :D8 (P 0 ROVER I 2 END I 1 START I 0 FN) wAHdj kjhhHj kjhh Hl @+Hdk Hj kjhHj ll@BHdk YIXh(107 VGETBASE0 87 VGETBASE0 73 VGETBASE0 65 VGETBASE0 52 V\CHECKARRAYBLOCK 47 VGETBASEPTR0 28 VGETBASE0 12 VGETBASE0) NIL () VPRINTCODE :D8 (P 57 N P 56 I P 54 I P 52 NVALS P 51 NNILS P 50 N P 49 N P 48 STK P 47 LEVADJ P 46 LEN P 45 FN P 44 B5 P 43 B4 P 42 B3 P 41 B2 P 40 B1 P 39 B P 38 LEVEL P 37 CODELOC P 36 I P 35 *PRINT-BASE* P 10 IVARS P 9 FVARS P 8 PVARS P 7 OP# P 6 TEMP P 5 TAG P 4 STARTPC P 3 NTSIZE P 2 I6 P 1 I4 P 0 CODEBASE I 6 FN.IS.CODEBASE I 5 PC I 4 FIRSTBYTE I 3 OUTF I 2 RADIX I 1 LVFLG I 0 FN F 58 \USER-SUBR-LIST) :BlbF@.@ &@d3@@g' @o gBlllBhgBlllBh  "B#j$lOHIOHC oC JHl kjHOHlHOH HOHk__dl kjOOlO C OHdjo loOHdloloOHdljHl joC oC Hl kjhC oC Hl lql $oC Hl C QOHdl ooC Hl C oC Hl lC C OHl_HWHl [olK Hl \dlKdjl^[dloNK 0l,C oC HN C C C oC C LAj0OL.g g ` ` EaDDOJIOJC oC AOJ` OLsNOLNO`OJ` joC \OJOJEj#oC IEC oC oC C hb \N_LOJ` _`OLlhC IOLC l hC HOJdk_J_(_&dl kjAO&O(l8HOJdk_J__dl kjOOlO ]Mdgdg.OLOLHjHOJlHOJlk_LO`_`dgOLO`O`_`_LdgOLO`O`_`k_Ldgh_LdgAOLOLHOJk_ _dl kjOO lO k_LHg>OLGOLHlOJ_$_"dl kjO"O$lO$ k_LOLM_^OJM_J~dO^_^g0OLkHl kjHOJlHOJ _LO^dg0OLHl kjHOJlHOJ _LgO^dgh_LfgO^dgOLm_LI3COLO^_L8O( _N ]_\IONC O\djBIHOJdk_J_,_*dl kjO*O,lO, _PC O\k?IHOJdk_J_0_.dl kjO.O0lO0 _RC O\dlBIHOJdk_J_4_2dl kjO2O4lO4 _TC O\l?IHOJdk_J_8_6dl kjO6O8lO8 _VC O\l?IHOJdk_J_<_:dl kjO:O oC OLOLORk_L_@OPO@O@O>MdgIl(hC Wth_D_BoC OLBOLORk_L6_DOPODODOBl(hC MOPk C C OLO^O^dgOLkOP_LgOLOP_LO^gO^dgh_LygO^dgOLm_L]3XOLO^_LM(3617 TERPRI 3610 PRIN1 3603 NTH 3592 TAB 3542 PRIN1 3519 TAB 3458 PRIN1 3432 TAB 3329 PRIN2 3316 V\TYPENAMEFROMNUMBER 3308 PRIN1 3286 PRIN2 3280 VATOM 3260 TAB 3250 PRIN1 3238 PRIN1 3229 PRIN1 3204 PRIN2 3198 V\UNCOPY 3177 TAB 3157 PRIN2 3151 VATOM 3131 TAB 3106 PUTHASH 3091 PUTHASH 3049 PRINTNUM 3029 PRIN1 2954 PRIN2 2945 PRIN1 2933 PRIN1 2924 PRIN1 2912 PRIN1 2893 SPACES 2867 PRIN1 2846 PRIN2 2837 PRIN1 2825 PRIN1 2816 PRIN1 2804 PRIN1 2785 SPACES 2738 TAB 2713 PRIN2 2707 VATOM 2699 TAB 2660 PUTHASH 2645 PUTHASH 2603 PRINTNUM 2583 PRIN1 2540 PRIN2 2527 TAB 2507 PRIN2 2494 TAB 2471 PRIN2 2462 TAB 2440 PUTHASH 2425 PUTHASH 2383 PRINTNUM 2363 PRIN1 2327 PRIN2 2310 PRIN1 2289 PRIN1 2277 PRIN1 2246 TAB 2226 PRIN2 2209 PRIN1 2188 PRIN1 2176 PRIN1 2145 TAB 2122 PRIN2 2105 PRIN1 2084 PRIN1 2072 PRIN1 2041 TAB 2016 TERPRI 1970 PRIN1 1960 TAB 1950 PRINTNUM 1942 V\GETBASEBYTE 1914 VGETBASE0 1882 PRINTNUM 1874 V\GETBASEBYTE 1846 VGETBASE0 1814 PRINTNUM 1806 V\GETBASEBYTE 1778 VGETBASE0 1744 PRINTNUM 1736 V\GETBASEBYTE 1708 VGETBASE0 1677 PRINTNUM 1669 V\GETBASEBYTE 1641 VGETBASE0 1608 PRINTNUM 1592 \FINDOP 1585 V\GETBASEBYTE 1500 V\GETBASEBYTE 1473 VGETBASE0 1443 V\GETBASEBYTE 1416 VGETBASE0 1356 V\GETBASEBYTE 1328 VGETBASE0 1287 V\GETBASEBYTE 1259 VGETBASE0 1071 \FINDOP 1066 V\GETBASEBYTE 1038 VGETBASE0 989 VGETBASE0 965 TAB 955 PRINTNUM 945 TAB 929 GETHASH 905 TERPRI 898 PRIN1 886 PRIN1 874 PRINTNUM 865 PRIN1 839 PRIN1 825 GETHASH 795 GETHASH 777 PRIN1 765 PRINTNUM 742 CLRHASH 731 CLRHASH 720 SETUPHASHARRAY 709 SETUPHASHARRAY 687 TERPRI 680 PRIN1 668 TERPRI 661 TERPRI 654 PRIN2 648 VGETBASEPTR0 638 PRIN1 626 TERPRI 613 VPRINTCODENT 575 VGETBASE0 566 VPRINTCODENT 551 VGETBASE0 528 TERPRI 521 PRIN1 512 VGETBASE0 502 PRIN1 490 PRIN1 483 VGETBASE0 473 PRIN1 440 PRIN2 434 V\UNCOPY 429 VGETBASEPTR0 419 PRIN1 394 VGETBASE0 384 PRIN1 372 PRIN1 353 VGETBASE0 343 PRIN1 331 PRIN1 309 VGETBASE0 235 PRINTNUM 228 V\GETBASEBYTE 200 VGETBASE0 180 V\GETBASEBYTE 153 VGETBASE0 142 PRIN1 130 PRINTNUM 55 ERROR 42 V\GET-COMPILED-CODE-BASE 17 V\GET-COMPILED-CODE-BASE) (3711 NCJUMP 3701 CJUMP 3687 UNWIND 3677 JUMP 3658 POP.N 3638 FNX 3506 MISCN 3438 \INITSUBRS 3420 SUBRCALL 3406 RETURN 3374 DUNBIND 3345 UNBIND 3323 ? 3294 TYPEP 3214 FNX 3165 GCONST 3118 ATOM 3101 \PRINTCODE.STKSTATE 3086 \PRINTCODE.LEVEL 3072 JUMP 3063 NCJUMP 2992 JUMPXX 2918 pvar 2861 ; 2810 pvar 2723 BIND 2670 FN 2655 \PRINTCODE.STKSTATE 2640 \PRINTCODE.LEVEL 2626 JUMP 2617 NCJUMP 2550 JUMPX 2515 SICX 2481 SNIC 2450 SIC 2435 \PRINTCODE.STKSTATE 2420 \PRINTCODE.LEVEL 2406 JUMP 2397 NCJUMP 2337 JUMP 2283 fvar 2234 FVAR 2182 pvar 2132 PVAR 2078 ivar 2029 IVAR 2007 -X- 1547 NCJUMP 1537 CJUMP 1522 UNWIND 1512 JUMP 1458 POP.N 1401 FNX 1299 MISCN 1228 SUBRCALL 1213 RETURN 1181 DUNBIND 1151 UNBIND 1098 BIND 1087 -X- 924 \PRINTCODE.STKSTATE 820 \PRINTCODE.STKSTATE 790 \PRINTCODE.LEVEL 737 \PRINTCODE.STKSTATE 726 \PRINTCODE.LEVEL 715 \PRINTCODE.STKSTATE 704 \PRINTCODE.LEVEL 80 FIX 60 FIX 36 CODE) ( 3536 "?" 3452 "?" 3335 ")" 3302 "(" 3244 ")" 3223 "(" 3023 "->" 3012 -65536 2939 "]" 2906 "[" 2831 "]" 2798 "[" 2577 "->" 2357 "->" 2316 "]" 2271 "[" 2215 "]" 2170 "[" 2111 "]" 2066 "[" 892 "------------------------------" 880 " not found)" 859 "(PC " 833 "*" 771 ": " 674 "----" 632 "Info: " 605 "Local args: " 557 "name table: " 496 " fvaroffset: " 467 " nlocals: " 455 " ntsize" 413 " frame name: " 378 " argtype: " 337 " byteswapped: " 325 "[CLOSUREP]" 288 " startpc" 276 " pv" 260 " na" 248 " stkmin" 136 ": " 50 "not compiled code") VPRINTCODENT :D8 (P 18 I P 16 NUMBER P 15 I P 13 NUMBER P 12 I P 10 NT2 P 9 NT1 P 1 TAG P 0 NAME I 2 START2 I 1 START1 I 0 STR F 19 OUTF F 20 CODEBASE F 21 I4 F 22 FVARS F 23 IVARS F 24 PVARS) 3ABAb@W& W& AB BOhW*OW& oW& lj OO?W*W(OOػZdl kjJKlK W& Ok_lW& W*OW& oW& W(jW(OlW(OW(OkؼdjLlLW(lOؽdjMlMW(lOؾdjNlN Xj ljOO+OW(OO_djOlO_Ok_OlkW& jljO$O"+O W(OO$_djOlO_ O$k_$O ndjIHhW.c.g)nIHhW0c0gIHhW,c,gW& oW& IW& oW& HW& W& Ol_Ol_(541 TERPRI 533 PRIN2 524 PRIN1 511 PRIN1 502 PRIN1 489 PRIN1 350 SPACES 271 VATOM 174 PRIN1 161 PRINTNUM 149 SPACES 130 PRINTNUM 123 V\GETBASEBYTE 98 VGETBASE0 64 PRIN1 51 PRINTNUM 28 TERPRI 20 PRIN1) (482 FVAR 465 PVAR 441 IVAR) ( 517 ": " 495 " " 167 ": " 57 ": ") VBROKENDEF :D8 (P 6 OP P 5 NEWCA P 4 FIRSTBYTE P 3 SIZE P 2 AFTER P 1 BEFORE P 0 CA I 1 WHEN I 0 DEF) @ QHl HiZ7Ml kjMLlML ^dgMdg𒿰Hg@MLg  Odl kjOOlOO LkNԼr(159 V\PUTBASEBYTE 129 VGETBASE0 115 V\CAR.UFN 110 \FINDOP 66 \FINDOP 61 V\GETBASEBYTE 36 VGETBASE0 17 VGETBASE0 5 V\GET-COMPILED-CODE-BASE) (105 \RETURN 95 RETURN 85 GCONST 75 -X-) () V\CAR.UFN :D8 (I 0 X) B@ +@j j@j j @j @ho@ (63 LISPERROR 47 VGETBASEPTR0 38 VGETBASEPTR0 31 VGETBASEPTR0 15 VGETBASE0 5 VLISTP) NIL ( 57 "ARG NOT LIST") V\CDR.UFN :D8 (P 0 Q I 0 X) {@ e@j Hdlhl@j@jnHlHj@j @j@jnHj @o@ (120 LISPERROR 105 VGETBASEPTR0 77 V\CDR.UFN 72 VGETBASEPTR0 15 VGETBASE0 5 VLISTP) NIL ( 114 "ARG NOT LIST") V\COPY :D8 (P 2 VAL P 1 V P 0 R I 0 X) +@ dgdg@i dg,@ @  HH IHXIdgdg`j@@o"oj@no@oj@lYdjj@nj@n Ik@n Idg@ dg@ dg"lJj@ Jk@ Jgo@@o (296 ERROR 262 VPUTBASE0 250 VPUTBASE0 222 %%COPY-STRING-TO-ARRAY 207 %%COPY-ONED-ARRAY 190 VPUTBASE0 177 VPUTBASE0 71 V\COPY 58 V\COPY 52 LAST 46 REVERSE 29 VATOMNUMBER 5 TYPENAME) (282 CHARACTER 269 CHARACTER 229 FLOATP 214 STRINGP 198 ONED-ARRAY 95 SMALLP 87 FIXP 36 VLISTP 19 NEW-ATOM 11 LITATOM) ( 291 "can't be copied to remote file" 276 458752 143 917504 135 65536 121 983040 113 -65537) V\UNCOPY :D8 (P 18 I P 16 ECASE0192 P 15 ECASE0191 P 12 LOCAL-BASE P 11 LOCAL-ARRAY P 10 NCELLS P 9 TYPENUMBER P 8 OFFSET P 7 BASE P 6 SIZE P 5 STR P 4 I P 3 LENGTH P 2 OFFST P 1 PTR I 2 CDRLVL I 1 CARLVL I 0 X) @ dk%@jl@jn@jnodl"lXd@j H@k dl/jll jXd@j H@k dl@jn dl@l kj@ @j @l kj@ @l @l kK ]Kdj"MLIJ LkԼJkԺkٰMdl l@jndl@l @j @l @l lTOOdlCjblDj[Odl&kPlVjIOdl6j>jj8Odlj-lj&OdljljgOo k@ @ NOOO dlCljlDlbO dl&l VlVl NO dl6l BjkAl @JM 2O'Al  Od  OONhd$NO$g_i_ƾg_i_JdnZdl@K ӺKkر2 @JM OeOOOO_ O_" O_& OdO$ O"dO( O&dO Og_i_Od __'(372 V\CDR.UFN 345 V\CDR.UFN 332 V\CDR.UFN 319 V\CDR.UFN 304 V\CDR.UFN 292 V\CDR.UFN 280 V\CDR.UFN 257 VLOOKUP-SYMBOL 249 V\CAR.UFN 235 NTHCHARCODE 158 V\CDR.UFN 147 VGETBASEPTR0 132 VLOOKUP-SYMBOL 124 VGETBASEPTR0 109 VLOOKUP-SYMBOL 101 VGETBASEPTR0 90 VGETBASEPTR0 29 NTHCHARCODE 7 \GETBASEFIXP) (356 :INHERITED 202 :INTERNAL 188 :EXTERNAL) () VPACKAGE.NAME :D8 (I 0 RMPKG) @dl (15 V\UNCOPY 10 VGETBASEPTR0) NIL () V\MKATOM :D8 (P 11 CHAR# P 9 REPROBE P 8 FIRSTBYTE P 7 FIRSTCHAR P 6 PNBASE P 5 ATM# P 4 HASHENT P 3 HASH P 2 FATCHARSEENP P 1 I I 4 NONNUMERICP I 3 FATP I 2 LEN I 1 OFFST I 0 BASE) C-ABkAIH@I lI iIkYhhhq Bjjl_J@A _l_ABkAk OO'Kdn[dl@O ӻOk_ojK \j)Lk] @jdMKO OKkl?_ӻ@ABCJ (202 VNOSUCHATOM 161 VATOM 147 VGETBASE0 121 NTHCHARCODE 68 NTHCHARCODE 24 VGETBASE0) NIL ( 138 1376256) VGETTOPVAL :D8 (I 0 X) @l j (14 VGETBASEPTR0 7 V\ATOMCELL) NIL () VGETPROPLIST :D8 (I 0 ATM) @l j (14 VGETBASEPTR0 7 V\ATOMCELL) NIL () VSETTOPVAL :D8 (I 1 VAL I 0 ATM) >@A"oA iAi oA @l jA (59 VPUTBASEPTR0 54 V\COPY 46 V\ATOMCELL 37 LISPERROR 16 LISPERROR) NIL ( 31 "ATTEMPT TO SET NIL OR T" 10 "ATTEMPT TO SET NIL OR T") VGETDEFN :D8 (I 0 A) @l j (14 VGETBASEPTR0 7 V\ATOMCELL) NIL () V\ATOMCELL :D8 (P 2 OFFSET P 1 LOC P 0 ATOMNO I 1 N I 0 X) x@ H3