(FILECREATED "24-Sep-86 11:08:09" ("compiled on " {ERIS}SOURCES>LLDATATYPE.;70) "16-Sep-86 11:57:30" in "Xerox Lisp 16-Sep-86 ..." dated "16-Sep-86 12:29:41") (FILECREATED "23-Sep-86 19:41:16" {ERIS}SOURCES>LLDATATYPE.;70 86790 changes to: (VARS LLDATATYPECOMS) previous date: "22-Sep-86 12:13:44" {ERIS}SOURCES>LLDATATYPE.;69) (RPAQQ LLDATATYPECOMS ((COMS (* ; "Storage management") (FNS NTYPX \TYPEMASK.UFN \TYPEP.UFN \ALLOCMDSPAGE \ALLOCPAGEBLOCK \ALLOCVIRTUALPAGEBLOCK \MAPMDS \CHECKFORSTORAGEFULL \DOSTORAGEFULLINTERRUPT \SET.STORAGE.STATE \SETTYPEMASK \ADVANCE.STORAGE.STATE \NEW2PAGE \MAKEMDSENTRY \INITMDSPAGE \ASSIGNDATATYPE1 \RESOLVE.TYPENUMBER \ASSIGN.DATATYPE \TYPENUMBERFROMNAME CREATECELL \CREATECELL) (INITVARS (CROSSCOMPILING) (ASSIGNDATATYPE.ASKUSERWAIT 300) (\STORAGEFULLSTATE) ( \STORAGEFULL)) (GLOBALVARS CROSSCOMPILING \STORAGEFULLSTATE \STORAGEFULL \SYSTEMCACHEVARS \NxtArrayPage) (SPECVARS ASSIGNDATATYPE.ASKUSERWAIT)) (COMS (* ; "fetch and replace") (FNS FETCHFIELD REPLACEFIELD BOXCOUNT CONSCOUNT \DTEST \TYPECHECK \DTEST.UFN \INSTANCE-P \TYPECHECK.UFN GETDESCRIPTORS GETSUPERTYPE GETFIELDSPECS NCREATE NCREATE2 REPLACEFIELDVAL PUTBASEPTRX /REPLACEFIELD TYPENAME \TYPENAMEFROMNUMBER \BLOCKDATAP USERDATATYPES DATATYPEP DATATYPES) (P (MOVD? (QUOTE FETCHFIELD) (QUOTE FFETCHFIELD) NIL T) (MOVD? (QUOTE REPLACEFIELD) (QUOTE FREPLACEFIELD) NIL T) (MOVD? (QUOTE REPLACEFIELDVAL) (QUOTE FREPLACEFIELDVAL) NIL T))) (COMS (* ; "STORAGE") (FNS STORAGE STORAGE.LEFT \STORAGE.TYPE \STLINP \STMDSTYPE \STORAGE.HUNKTYPE) (DECLARE: DONTCOPY (RECORDS HUNKSTAT)) (INITVARS ( STORAGE.ARRAYSIZES (QUOTE (4 16 64 256 1024 4096 16384 NIL))))) (DECLARE: (EXPORT (OPTIMIZERS PUTBASEPTRX) (CONSTANTS \SMALLP \FIXP \FLOATP \LITATOM \LISTP \ARRAYP \STRINGP \STACKP \VMEMPAGEP \STREAM) (VARS \BUILT-IN-SYSTEM-TYPES)) DONTCOPY (EXPORT (RECORDS DTD) (MACROS \GETDTD \TYPEMASK.UFN) (CONSTANTS \GUARDSTORAGEFULL \GUARD1STORAGEFULL) (GLOBALVARS \NxtMDSPage \LeastMDSPage \SecondArrayPage \SecondMDSPage \MDSFREELISTPAGE \MaxSysTypeNum \MaxTypeNumber \STORAGEFULL \INTERRUPTSTATE \PENDINGINTERRUPT)) (CONSTANTS * STORAGEFULLSTATES) (VARS DTDECLS)) (COMS (* ; "for MAKEINIT") (FNS CREATEMDSTYPETABLE INITDATATYPES INITDATATYPENAMES) (DECLARE: DONTCOPY (ADDVARS ( INITVALUES (\NxtMDSPage \FirstMDSPage) (\LeastMDSPage \FirstMDSPage) (\SecondMDSPage \DefaultSecondMDSPage) (\SecondArrayPage \DefaultSecondArrayPage) (\MDSFREELISTPAGE) (\MaxSysTypeNum 0 ) (\MaxTypeNumber)) (INEWCOMS (FNS NTYPX \ALLOCMDSPAGE \MAKEMDSENTRY \INITMDSPAGE \ASSIGNDATATYPE1 \TYPENUMBERFROMNAME \CREATECELL \NEW2PAGE) (FNS CREATEMDSTYPETABLE INITDATATYPES INITDATATYPENAMES) ( VARS \BUILT-IN-SYSTEM-TYPES)) (RDCOMS (FNS NTYPX TYPENAME \TYPENAMEFROMNUMBER)) (RDVALS ( \MaxTypeNumber)) (RD.SUBFNS (\ARRAYTYPENAME LAMBDA (X) (QUOTE ARRAYP))) (EXPANDMACROFNS \GETDTD PUTBASEPTRX REPLACEFIELD FETCHFIELD \GETBITS \PUTBITS \TESTBITS GETBASEBITS PUTBASEBITS FFETCHFIELD FREPLACEFIELD FREPLACEFIELDVAL REPLACEFIELDVAL NCREATE) (MKI.SUBFNS (\GCDISABLED . NILL) (CREATECELL . I.\CREATECELL) (\CHECKFORSTORAGEFULL . NILL))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS CREATEMDSTYPETABLE INITDATATYPES INITDATATYPENAMES)))) (LOCALVARS . T) (PROP FILETYPE LLDATATYPE) ( DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) DTDECLARE)))) NTYPX D1 (L (0 X)) `@@lNIL (2 \MDSTypeTable) () \TYPEMASK.UFN D1 (L (1 N 0 X)) A`@@j@hNIL (3 \MDSTypeTable) () \TYPEP.UFN D1 (L (1 N 0 X)) @A@NIL NIL () \ALLOCMDSPAGE D1 (L (0 TYP)) `@`X-`XlH[KlY n H@ IZJlYdlo`h (126Q \MP.ERROR 61Q \MAKEMDSENTRY 53Q \NEWPAGE 44Q \NEWPAGE 13Q \CHECKFORSTORAGEFULL) (134Q \MDSFREELISTPAGE 122Q \MDSFREELISTPAGE 116Q \MDSFREELISTPAGE 26Q \NxtMDSPage 17Q \NxtMDSPage 5 \MDSFREELISTPAGE) ( 113Q "MDS Free Page link bad. ^N to continue") \ALLOCPAGEBLOCK D1 (L (0 NPAGES) P 0 \INTERRUPTABLE) * @ Y @IkLJK LkԼKnлI(31Q \NEWPAGE 6 \ALLOCVIRTUALPAGEBLOCK) NIL () \ALLOCVIRTUALPAGEBLOCK D1 (L (0 NPAGES) P 0 \INTERRUPTABLE) 0`l`l@kmbYIl^`l&`lS`l`l@Y@Il-I`Il`Y@`I@`nAIZJl(53Q \SET.STORAGE.STATE) (172Q \InterfacePage 166Q \SecondArrayPage 154Q \SecondMDSPage 146Q \SecondArrayPage 141Q \NxtMDSPage 130Q \NxtArrayPage 122Q \SecondMDSPage 101Q \SecondMDSPage 73Q \SecondArrayPage 63Q \STORAGEFULLSTATE 46Q \STORAGEFULLSTATE 41Q \NxtMDSPage 13Q \NxtMDSPage 5 \NxtArrayPage) () \MAPMDS D1 (L (1 FN 0 TYPE)) s@@3 @ b`lkjjBIdHhjn@nIj`d```ML&M[KlZ@@JjJkMkAMl]IkY(11Q \TYPENUMBERFROMNAME) (100Q \NxtMDSPage 74Q \LeastMDSPage 66Q \LeastMDSPage 62Q \NxtMDSPage 17Q \STORAGEFULLSTATE) () \CHECKFORSTORAGEFULL D1 (L (0 NPAGES) P 0 \INTERRUPTABLE)  l``lY@`dkdlNjIlo Il@`djjlo `i`k`ihdl9@Ij``lhI`l ` 2il,```l i@il``h(345Q SHOULDNT 313Q \ADVANCE.STORAGE.STATE 257Q \ADVANCE.ARRAY.SEGMENTS 250Q \ADVANCE.STORAGE.STATE 164Q \DORECLAIM 130Q \MP.ERROR 70Q \MP.ERROR 40Q \SET.STORAGE.STATE) (333Q \NxtArrayPage 330Q \SecondMDSPage 306Q \NxtMDSPage 303Q \SecondMDSPage 276Q \NxtMDSPage 273Q \LeastMDSPage 254Q \SecondArrayPage 242Q \LeastMDSPage 237Q \NxtArrayPage 221Q \NxtMDSPage 216Q \SecondMDSPage 212Q \LeastMDSPage 207Q \NxtArrayPage 160Q \PENDINGINTERRUPT 147Q \INTERRUPTSTATE 143Q \STORAGEFULL 135Q \STORAGEFULL 116Q \STORAGEFULL 104Q \STORAGEFULL 33Q \STORAGEFULLSTATE 12Q \NxtArrayPage 7 \NxtMDSPage) ( 125Q "Space getting VERY full. Please save and reload a.s.a.p. Type control-N to continue now." 65Q "Storage completely full") \DOSTORAGEFULLINTERRUPT D1 (P 0 HELPFLAG) `j`jdhgol h(33Q \LISPERROR) (17Q BREAK! 2 \INTERRUPTSTATE) ( 26Q "save your work & reload a.s.a.p.") \SET.STORAGE.STATE D1 NIL /`dlhl`=jhilkg`NIL (53Q \SYSTEMCACHEVARS 47Q \SYSTEMCACHEVARS 44Q \STORAGEFULLSTATE 41Q \STORAGEFULLSTATE 21Q \InterfacePage 2 \MACHINETYPE) () \SETTYPEMASKA0001 D1 (L (0 PAGE) F 3 BITS) `@b`@SHIJJNIL (11Q \MDSTypeTable 2 \MDSTypeTable) () \SETTYPEMASK D1 (L (0 NTYPX) I 1 BITS) `@dA@g h(26Q \MAPMDS) (23Q \SETTYPEMASKA0001 2 \DTDSpaceBase) () \ADVANCE.STORAGE.STATE D1 (L (0 FLG)) @`nAg` (24Q DREMOVE) (27Q \SYSTEMCACHEVARS 21Q \SYSTEMCACHEVARS 16Q \STORAGEFULLSTATE 6 \InterfacePage 3 \STORAGEFULLSTATE) () \NEW2PAGE D1 (L (0 BASE)) @ n (12Q \NEWPAGE 3 \NEWPAGE) NIL () \MAKEMDSENTRY D1 (L (1 V 0 VP)) `@`AnAHIJJNIL (7 \GCDISABLED 2 \MDSTypeTable) () \INITMDSPAGE D1 (L (2 PREV 1 SIZE 0 BASE)) TnAQHjHAnAlnknIk]L%jKA[J@B@bAb@HbMk԰BNIL NIL () \ASSIGNDATATYPE1A0001 D1 (L (0 PAGE) F 0 NEWTYPEENTRY F 1 FOUNDSOME) @P ic(4 \MAKEMDSENTRY) NIL () \ASSIGNDATATYPE1 D1 (L (5 SUPERTYPE 4 PTRFIELDS 3 SPECS 2 SIZE 1 DESCRIPTORS 0 NAME) P 10Q FOUNDSOME P 7 NEWTYPEENTRY P 6 \INTERRUPTABLE) v @ E.jBH`HкDJ#BJJAJIH Eo JjJ`i/`,l`gggBoo@h gHH`i[o@ B`lHK@l" HK`k`LнnMllMli K[LJmHg O`m8JhJhMJlĿMMk MOMo@ JhLMZ@Bj&JBJA JC JDJIJHHK (563Q VALUES 533Q COPY 523Q COPY 453Q PACK* 361Q \MAPMDS 333Q \NEWPAGE 250Q \LISPERROR 217Q ERROR 167Q ASKUSER 77Q ERROR 65Q \TYPENUMBERFROMNAME 3 \TYPENUMBERFROMNAME) (500Q LITATOM 456Q LITATOM 376Q \MaxTypeNumber 370Q \MaxTypeNumber 356Q \ASSIGNDATATYPE1A0001 277Q \DTDSpaceBase 273Q \MaxTypeNumber 266Q \MaxTypeNumber 232Q \MaxTypeNumber 202Q \MaxSysTypeNum 172Q Y 145Q N 141Q Y 134Q Y 131Q CROSSCOMPILING 122Q CROSSCOMPILING 113Q CROSSCOMPILING 22Q \DTDSpaceBase) ( 447Q "Obsolete-" 213Q "ILLEGAL DATA TYPE" 160Q "OK to deallocate DATATYPE " 153Q "OK TO REDECLARE DATATYPE " 74Q ":INCLUDEd datatype but not currently declared") \RESOLVE.TYPENUMBER D1 (L (0 TYPENAME)) @ddl @hj  (30Q \ILLEGAL.ARG 24Q \ASSIGNDATATYPE1 14Q \TYPENUMBERFROMNAME) NIL () \ASSIGN.DATATYPE D1 (L (3 OFFSET 2 FIELDSPECS 1 DLIST 0 TYPENAME)) K@d @ACBAAH I  \dgdghiLJ KhZHXK&(33Q SETTOPVAL 30Q ASSIGNDATATYPE 6 \TYPEGLOBALVARIABLE) (53Q FULLPOINTER 45Q POINTER) () \TYPENUMBERFROMNAME D1 (L (0 TYPE)) ,@)`kIH@`IIIkYhNIL (26Q \DTDSpaceBase 22Q LITATOM 5 \MaxTypeNumber) () CREATECELL D1 (L (0 TYP)) @ (3 \CREATECELL) NIL () \CREATECELL D1 (L (0 TYP) P 5 \INTERRUPTABLE) @lo `@AHjo@ HY[HIHl [kӺKJJjKdkHkټILjIdkLĿI``k `kIHd HH @(236Q \INITMDSPAGE 225Q \ALLOCMDSPAGE 214Q \DORECLAIM 51Q ERROR 46Q \TYPENAMEFROMNUMBER 13Q RAID) (210Q \RECLAIM.COUNTDOWN 204Q \RECLAIM.COUNTDOWN 177Q \RECLAIM.COUNTDOWN 170Q \RECLAIM.COUNTDOWN 163Q \RECLAIM.COUNTDOWN 17Q \DTDSpaceBase) ( 42Q "Attempt to CREATE a type not declared yet" 10Q "CREATECELL \LISTP") (RPAQ? CROSSCOMPILING) (RPAQ? ASSIGNDATATYPE.ASKUSERWAIT 300) (RPAQ? \STORAGEFULLSTATE) (RPAQ? \STORAGEFULL) FETCHFIELD D1 (L (1 DATUM 0 DESCRIPTOR))  @@2HAH b@dgdgdgdgAIdgAIAI dgAIAIgAIAI@IZdgAKJ J dg3AKJ J J dkLk kkL kkdgAKJ J AKgAKJ jh@l (407Q \LISPERROR 373Q BitFieldShiftedMask 344Q BitFieldMask 337Q LRSH 334Q BitFieldShift 304Q LLSH 273Q LLSH 262Q BitFieldWidth 254Q BitFieldMask 247Q LRSH 244Q BitFieldShift 220Q BitFieldMask 213Q LRSH 210Q BitFieldShift 111Q MAKEFLOATNUMBER 16Q \DTEST) (357Q FLAGBITS 316Q LONGBITS 226Q SIGNEDBITS 172Q BITS 140Q SWAPPEDFIXP 116Q FIXP 71Q FLOATP 54Q FULLXPOINTER 46Q FULLPOINTER 40Q XPOINTER 31Q POINTER) () REPLACEFIELD D1 (L (2 NEWVALUE 1 DATUM 0 DESCRIPTOR) P 10Q \INTERRUPTABLE) ! @@@SJAJ bIgIdgAHBBgAHkBlAHkBBIdgAHBBgAHB OOOOIdgAHB BgAHB BIdg=AHAHI \I [ nBLK  OOOOK LdgjAHAHI \I [ nBkI kLK  OOOOK L]kI k kMkI kkMdg4AHAHI \I [ nBnjLK BnighBdlB_BdkKjBj_Bn_BӾAHAHI \I [ nOLK AHkNBlB bBd`oi bl by@l (1036Q \LISPERROR 1023Q \LISPERROR 1012Q \LISPERROR 766Q \FIXP.FROM.FLOATP 740Q LLSH 723Q LLSH 717Q BitFieldShift 711Q BitFieldMask 573Q LLSH 551Q LLSH 545Q BitFieldShift 537Q BitFieldMask 502Q LLSH 477Q BitFieldWidth 464Q LLSH 457Q BitFieldWidth 446Q LRSH 421Q LLSH 410Q LLSH 405Q BitFieldWidth 371Q LLSH 365Q BitFieldShift 357Q BitFieldMask 330Q LRSH 303Q LLSH 267Q LLSH 263Q BitFieldShift 255Q BitFieldMask 225Q \PUTSWAPPEDFIXP 207Q \PUTFIXP 22Q \DTEST) (1000Q BIGNUMTYPE# 606Q LONGBITS 516Q FLAGBITS 337Q SIGNEDBITS 235Q BITS 214Q SWAPPEDFIXP 175Q FIXP 135Q FLOATP 117Q FULLXPOINTER 56Q XPOINTER 40Q FULLPOINTER 31Q POINTER) ( 1006Q "ARG NOT FIXP") BOXCOUNT D1 (L (1 N 0 TYPE) P 1 \INTERRUPTABLE) 8`@dl Hl H A3Hl A Hj (57Q \PUTBASEFIXP 35Q \GETBASEFIXP 17Q \TYPENUMBERFROMNAME) (2 \DTDSpaceBase) () CONSCOUNT D1 (L (0 N)) l@ (5 BOXCOUNT) NIL () \DTEST D1 (L (1 TYPE 0 OBJ)) @A (10Q \DTEST.UFN) (4 LITATOM) () \TYPECHECK D1 (L (1 TYPE 0 OBJ)) @A (10Q \DTEST.UFN) (4 LITATOM) () \DTEST.UFN D1 (L (1 TYPEN 0 OBJ)) @!`HA@`HXjjAdg@ dg@@mg dgdgdggdgdgdggh dg(@` @l3 @d g@dg@ dgbh@dl@@dk j@j@n@ӺIJ@l l@ b@d`oi bl bdg@l dg@l dg@l dg@l& dg@l' dg@l go @ojA i (610Q \LISPERROR 604Q CONCAT 570Q ERROR 553Q \LISPERROR 535Q \LISPERROR 517Q \LISPERROR 501Q \LISPERROR 463Q \LISPERROR 445Q \LISPERROR 424Q \LISPERROR 413Q \LISPERROR 367Q \FIXP.FROM.FLOATP 356Q \LISPERROR 260Q \COERCEFONTDESC 233Q TYPENAME 215Q \LISPERROR 167Q \GETSTREAM 103Q STKNTHNAME 62Q \FLOAT) (557Q \DISPLAYDATA 542Q ARRAYP 524Q TERMTABLEP 506Q READTABLEP 470Q STACKP 452Q LITATOM 434Q LISTP 401Q BIGNUMTYPE# 265Q SMALLP 251Q FONTDESCRIPTOR 236Q HARRAYP 221Q HARRAYP 205Q SYSHASHARRAY 174Q HARRAYP 161Q OUTPUT 153Q BOUT 145Q \BOUT 137Q \BOUTS 131Q INPUT 123Q BIN 115Q \BIN 107Q \BINS 100Q \DTEST.UFN 67Q STREAM 53Q FLOATP 27Q \DTDSpaceBase 7 \DTDSpaceBase) ( 576Q "ARG NOT " 565Q "ARG NOT DISPLAY STREAM" 407Q "ARG NOT FIXP") \INSTANCE-P D1 (L (1 TYPE 0 OBJECT)) -A@H`Ii`IYjhNIL (34Q \DTDSpaceBase 15Q \DTDSpaceBase 3 LITATOM) () \TYPECHECK.UFN D1 (L (1 TYPEN 0 OBJ)) U`@A@ojA i @`HA@`HXj@ojA i (122Q \LISPERROR 116Q CONCAT 35Q \LISPERROR 31Q CONCAT) (66Q \DTDSpaceBase 46Q \DTDSpaceBase 2 \DTDSpaceBase) ( 110Q "ARG NOT " 23Q "ARG NOT ") GETDESCRIPTORS D1 (L (0 TYPENAME)) `@dl d(14Q \TYPENUMBERFROMNAME) (2 \DTDSpaceBase) () GETSUPERTYPE D1 (L (0 TYPENAME)) !@ H`HYjI h(34Q \TYPENAMEFROMNUMBER 3 \TYPENUMBERFROMNAME) (14Q \DTDSpaceBase) () GETFIELDSPECS D1 (L (0 TYPENAME)) `@dl d (32Q COPY 14Q \TYPENUMBERFROMNAME) (2 \DTDSpaceBase) () NCREATE D1 (L (1 OLDOBJ 0 TYPE)) @ A (7 NCREATE2 3 \TYPENUMBERFROMNAME) NIL () NCREATE2 D1 (L (1 OLDOBJ 0 NTYPX) P 3 \INTERRUPTABLE) 4`@@A@IAHĿHdIJINIL (2 \DTDSpaceBase) () REPLACEFIELDVAL D1 (L (2 NEWVALUE 1 DATUM 0 DESCRIPTOR)) @AB A(5 REPLACEFIELD) NIL () PUTBASEPTRX D1 (L (2 NEWVALUE 1 OFFSET 0 DATUM) P 0 \INTERRUPTABLE) @A@AnB@AkBBNIL NIL () /REPLACEFIELD D1 (L (2 NEWVALUE 1 DATUM 0 DESCRIPTOR) F 0 LISPXHIST) Pg@A@A h @AB (33Q REPLACEFIELD 24Q UNDOSAVE 14Q FETCHFIELD) (5 /REPLACEFIELD) () TYPENAME D1 (L (0 DATUM)) @Hl@ j`H(15Q \ARRAYTYPENAME) (22Q \DTDSpaceBase) () \TYPENAMEFROMNUMBER D1 (L (0 N)) @`kj`@NIL (15Q \DTDSpaceBase 3 \MaxTypeNumber) () \BLOCKDATAP D1 (L (0 X)) )@Hj@j l@h`HPjhNIL (31Q \DTDSpaceBase) () USERDATATYPES D1 NIL i (3 DATATYPES) NIL () DATATYPEP D1 (L (0 DATATYPESPEC)) w@d.`@HPjhhXjHYdOghGIlh@dg6dg/`kIHj`I@I iIkYh@NIL (130Q \DTDSpaceBase 113Q \MaxTypeNumber 104Q HARRAYP 75Q CCODEP 52Q **DEALLOC** 11Q \DTDSpaceBase) () DATATYPES D1 (L (0 USERSFLG)) 1`@`k؀k2IdHJ K Lh[IkYL&(30Q DATATYPEP) (7 \MaxSysTypeNum 2 \MaxTypeNumber) () (MOVD? (QUOTE FETCHFIELD) (QUOTE FFETCHFIELD) NIL T) (MOVD? (QUOTE REPLACEFIELD) (QUOTE FREPLACEFIELD) NIL T) (MOVD? (QUOTE REPLACEFIELDVAL) (QUOTE FREPLACEFIELDVAL) NIL T) STORAGE D1 (L (1 PAGETHRESHOLD 0 TYPES) P 5 HUNKSTATS)  llllj2IH!jddddhK Lh[IkYL&J4o l o l o l- o l7 o h l o h @`k__OdOAKA h o l oJK h h o h l o l2 o h l o l4 o h o l oJ l2 o h o Kjjoi)@! OOJA  O_hO_O_Od3 !jOOd`oO ji^ _h`OPji_OLJA LJA Ok_o l o`dldl`n``؇`n l2 o o h Kjj,o l oK l2 o h o`lln iNh(1247Q \SHOW.ARRAY.FREELISTS 1236Q \STLINP 1203Q TERPRI 1176Q PRIN1 1166Q TAB 1160Q PRINTNUM 1147Q TAB 1141Q PRIN1 1122Q TERPRI 1115Q PRINTNUM 1111Q STORAGE.LEFT 1101Q PRIN1 1071Q TAB 1063Q PRINTNUM 1004Q TAB 776Q PRIN1 755Q \STORAGE.TYPE 744Q \STORAGE.TYPE 702Q \TYPENUMBERFROMNAME 670Q ERROR 577Q \STORAGE.HUNKTYPE 530Q PRIN1 520Q TERPRI 513Q PRIN1 503Q TAB 475Q PRINTNUM 464Q TAB 456Q PRIN1 446Q TERPRI 441Q PRIN1 431Q TAB 423Q PRIN1 413Q TAB 405Q TERPRI 400Q PRIN1 370Q TAB 362Q PRIN1 352Q TAB 344Q TERPRI 337Q PRIN1 327Q TERPRI 322Q TERPRI 315Q PRINTNUM 302Q TAB 274Q PRIN1 264Q TERPRI 257Q \STORAGE.HUNKTYPE 216Q TERPRI 211Q PRIN1 201Q TAB 173Q TERPRI 166Q PRIN1 156Q TAB 150Q PRIN1 140Q TAB 132Q PRIN1 122Q TAB 114Q PRIN1 104Q TAB 76Q PRIN1) (1213Q \AtomFrLst 1054Q \NxtArrayPage 1045Q \SecondArrayPage 1042Q \NxtArrayPage 1033Q \LeastMDSPage 1014Q \STORAGEFULLSTATE 713Q \DTDSpaceBase 654Q \MaxTypeNumber 230Q \MaxTypeNumber) ( 1210Q "Litatoms" 1173Q "/" 1154Q (FIX 10Q) 1136Q "ArrayBlocks (chunked)" 1106Q (FIX 6) 1076Q "--" 1011Q (FIX 10Q) 773Q "" 663Q "Not a type number" 546Q " (variable)" 525Q "ArrayBlocks" 510Q "\" 471Q (FIX 10Q) 453Q "Datatypes (incl. LISTP etc.)" 436Q "Pages" 420Q "Pages" 375Q "Remaining" 357Q "Allocated" 334Q "Data Spaces Summary" 307Q (FIX 5) 271Q "TOTAL" 206Q "pages [items]" 163Q "Total alloc" 145Q "In use" 127Q "Free items" 111Q "Assigned" 73Q "Type") STORAGE.LEFT D1 NIL `l````dl``l؏l``l؀j`jHIkԹHZJlXIlH`kj`l`n-YHI`dkIl`l`ojn`lldnh(7 \SET.STORAGE.STATE) (243Q \AtomFrLst 225Q \NxtArrayPage 217Q \NxtMDSPage 200Q \STORAGEFULLSTATE 164Q \SecondArrayPage 156Q \SecondMDSPage 146Q \STORAGEFULLSTATE 75Q \MDSFREELISTPAGE 64Q \LeastMDSPage 61Q \NxtMDSPage 45Q \SecondArrayPage 42Q \SecondMDSPage 31Q \STORAGEFULLSTATE 25Q \NxtArrayPage 22Q \NxtMDSPage 16Q \SecondMDSPage 2 \STORAGEFULLSTATE) ( 232Q 11520.0) \STORAGE.TYPEA0001 D1 (F 0 ALLOCMDS) PkcNIL NIL () \STORAGE.TYPE D1 (L (3 PAGETHRESHOLD 2 TOTALALLOCMDS 1 FREE 0 TYPE) P 0 ALLOCMDS F 15Q HUNKSTATS) 4 j `@_jOZOPjhOYJgJdgglIjnI]@g Hl^OPjWOak _dNBNNCkAjd @l(` _Ol_&AOO_OO_AkOHM[A\OPj:OOKOOAOOLOd@ JdgoNKAL@ h(460Q \STMDSTYPE 454Q BOXCOUNT 423Q BOXCOUNT 223Q \PUTBASEFIXP 162Q NTH 130Q \MAPMDS) (435Q LISTP 234Q \LISTPDTD 216Q FIXP 125Q \STORAGE.TYPEA0001 77Q LISTP 67Q SMALLP 55Q LITATOM 6 \DTDSpaceBase) ( 444Q "LISTP ~") \STLINP D1 (L (2 TOT 1 ALLOC 0 STR)) &@ l oA l2 oBA h (43Q TERPRI 37Q PRINTNUM 25Q TAB 20Q PRINTNUM 10Q TAB 3 PRIN1) NIL ( 31Q (FIX 10Q) 14Q (FIX 10Q)) \STMDSTYPE D1 (L (5 BOXCOUNT 4 INUSE 3 FREE 2 ALLOC 1 NPAGESALLOCATED 0 NAME)) F@ l oA oB l oC l+ oD l8 oE h (103Q TERPRI 77Q PRINTNUM 67Q TAB 62Q PRINTNUM 52Q TAB 45Q PRINTNUM 35Q TAB 30Q PRINTNUM 20Q PRINTNUM 10Q TAB 3 PRIN1) NIL ( 73Q (FIX 12Q) 56Q (FIX 10Q) 41Q (FIX 10Q) 24Q (FIX 10Q) 14Q (FIX 5)) \STORAGE.HUNKTYPE D1 (L (1 PAGETHRESHOLD 0 TOTAL) F 3 HUNKSTATS) J0o=dSJk Y@HHj$AAHJHIIII h(101Q \STMDSTYPE 23Q NTH) NIL ( 6 ((0 UNBOXEDHUNK) (1 PTRHUNK) (2 CODEHUNK))) (RPAQ? STORAGE.ARRAYSIZES (QUOTE (4 16 64 256 1024 4096 16384 NIL))) optimize-PUTBASEPTRX D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 10Q (OPENLAMBDA (DATUM OFFSET NEWVALUE) (UNINTERRUPTABLY (\PUTBASEBYTE DATUM (ADD1 (LLSH OFFSET 1)) (LOGAND (\HILOC NEWVALUE) 377Q)) (\PUTBASE DATUM (ADD1 OFFSET) (\LOLOC NEWVALUE)) NEWVALUE))) (PUTPROP (QUOTE PUTBASEPTRX) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE PUTBASEPTRX) ( QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-PUTBASEPTRX)))) (RPAQQ \SMALLP 1) (RPAQQ \FIXP 2) (RPAQQ \FLOATP 3) (RPAQQ \LITATOM 4) (RPAQQ \LISTP 5) (RPAQQ \ARRAYP 6) (RPAQQ \STRINGP 7) (RPAQQ \STACKP 8) (RPAQQ \VMEMPAGEP 10) (RPAQQ \STREAM 11) (CONSTANTS \SMALLP \FIXP \FLOATP \LITATOM \LISTP \ARRAYP \STRINGP \STACKP \VMEMPAGEP \STREAM) (RPAQQ \BUILT-IN-SYSTEM-TYPES ((SMALLP) (FIXP 2) (FLOATP 2) (LITATOM) (LISTP 4 0 2) (ARRAYP 4 0) ( STRINGP 4 0) (STACKP 2) (CHARACTER) (VMEMPAGEP 256) (STREAM) (BITMAP) (COMPILED-CLOSURE 4 0 2) ( ONED-ARRAY) (TWOD-ARRAY) (GENERAL-ARRAY))) CREATEMDSTYPETABLE D1 NIL `lhi  jndj`HnHkԸkٰllh@dljLLj-LL #jLlKKlKIn Kl\ԻljLLj.LL $jLlKKlKnn Kl\Ի`lhi ``n (313Q \MAKEMDSENTRY 272Q CREATEPAGES 245Q \MAKEMDSENTRY 212Q \FZEROP 146Q \MAKEMDSENTRY 114Q \FZEROP 11Q CREATEPAGES) (302Q \MISCSTATS 275Q \MISCSTATS 263Q \MISCSTATS 31Q \MDSTypeTable 2 \MDSTypeTable) () INITDATATYPES D1 (F 5 INITIALDTDCONTENTS) U `khi `nHkllk Uk"Ig `lPHh`J\JKdgdgdgihnjKdgdgdgdgihnjKdgdgihn jKnjKKLKIJkԺT(45Q CREATEPAGES 17Q CREATEPAGES 3 LENGTH) (244Q FIXP 236Q SMALLP 213Q LITATOM 205Q FLOATP 177Q FIXP 170Q SMALLP 145Q FLOATP 137Q FIXP 131Q SMALLP 113Q \DTDSpaceBase 104Q \MaxSysTypeNum 101Q \MaxTypeNumber 67Q \DTDSpaceBase 62Q \LISTPDTD 22Q \DTDSpaceBase 11Q \DTDSpaceBase) () INITDATATYPENAMES D1 (F 4 INITIALDTDCONTENTS) 4Tk"Hh`I[JKJ HIkԹ(46Q COPY) (33Q LITATOM 17Q \DTDSpaceBase) () (PUTPROPS LLDATATYPE FILETYPE COMPILE-FILE) (PUTPROPS LLDATATYPE COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL