(FILECREATED "29-Sep-86 12:27:58" ("compiled on " {ERIS}SOURCES>LLDATATYPE.;74) "27-Sep-86 00:33:58" in "Xerox Lisp 27-Sep-86 ..." dated "27-Sep-86 00:51:47") (FILECREATED "26-Sep-86 18:48:49" {ERIS}SOURCES>LLDATATYPE.;74 88696 changes to: (FNS TYPENAMEP \INSTANCE-P COMPILEDTYPENAMEP \ASSIGNDATATYPE1 \TYPECHECK.UFN \INSTANCEP.UFN) (OPTIMIZERS TYPENAMEP \INSTANCE-P PUTBASEPTRX) (VARS LLDATATYPECOMS) previous date: "26-Sep-86 14:42:48" {ERIS}SOURCES>LLDATATYPE.;73) (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 \INSTANCEP.UFN \INSTANCE-P \TYPECHECK.UFN GETDESCRIPTORS GETSUPERTYPE GETFIELDSPECS NCREATE NCREATE2 REPLACEFIELDVAL PUTBASEPTRX /REPLACEFIELD TYPENAME TYPENAMEP \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)) (DECLARE: (EXPORT (OPTIMIZERS TYPENAMEP \INSTANCE-P)))) (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)) `@Òá@ÓãØâÐÈnÿåNIL (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)) fP`Xµ-¿`XlÙ¿H\ãLlÿåáÑY nÐ ¿H@ IZãJlÿåáÑYÉ[d²‘h€i²lo`h¿¿°¦K°É(133Q \MP.ERROR 61Q \MAKEMDSENTRY 53Q \NEWPAGE 44Q \NEWPAGE 13Q \CHECKFORSTORAGEFULL) (142Q \MDSFREELISTPAGE 127Q \MDSFREELISTPAGE 123Q \MDSFREELISTPAGE 26Q \NxtMDSPage 17Q \NxtMDSPage 5 \MDSFREELISTPAGE) ( 120Q "MDS Free Page link bad. ^N to continue") \ALLOCPAGEBLOCK D1 (L (0 NPAGES) P 0 \INTERRUPTABLE) * @ Y´ @Ik¼LJó³K ¿LkÔ¼KnÐ»°ìI(31Q \NEWPAGE 6 \ALLOCVIRTUALPAGEBLOCK) NIL () \ALLOCVIRTUALPAGEBLOCK D1 (L (0 NPAGES) P 0 \INTERRUPTABLE) 0`l€Ø`lØ@kØmþåbÙYñ‘h€i˜IlÙ°^`µlð³&`lð´S`l€Ø`lØ@ÙYýñ´@IlÙ°-I`ñ˜IlÙ°`Y@Ø`ýñ´I@Ø¿`nÿÿÍA¿IZãJlÿåáÑ(57Q \SET.STORAGE.STATE) (176Q \InterfacePage 172Q \SecondArrayPage 160Q \SecondMDSPage 152Q \SecondArrayPage 145Q \NxtMDSPage 134Q \NxtArrayPage 126Q \SecondMDSPage 105Q \SecondMDSPage 77Q \SecondArrayPage 67Q \STORAGEFULLSTATE 52Q \STORAGEFULLSTATE 45Q \NxtMDSPage 13Q \NxtMDSPage 5 \NxtArrayPage) () \MAPMDS D1 (L (1 FN 0 TYPE)) s@š@3 ¦@ b¿`lð‘k€jjBIdHó‘hjð“n@‚nÿýIjð`d`ñ—¿`‚`½¼MLó³&M[ãKlÿåáÑZ@ð©@¬Jjð¨Jkð¤MkA¿MlÔ]°ÚIkÔY°¬(11Q \TYPENUMBERFROMNAME) (100Q \NxtMDSPage 74Q \LeastMDSPage 66Q \LeastMDSPage 62Q \NxtMDSPage 17Q \STORAGEFULLSTATE) () \CHECKFORSTORAGEFULL D1 (L (0 NPAGES) P 0 \INTERRUPTABLE) õ l€``ÙlØYñ¦@´‚±Ù`µdkð¥dlð²V¿jIñ›lo ¿°öIl@ñ‘h€i²`djð³¿j¿lo °`‘h€i²i¿`kÏ`¿i¿hdlð²:@µIjñ‘h€i²,`¿`¿lŒIñ²`¿l ¿` µ6ilð²0``ñœ`l i@µil€Ø``Ùýñ‘h€i²îh(362Q SHOULDNT 324Q \ADVANCE.STORAGE.STATE 270Q \ADVANCE.ARRAY.SEGMENTS 261Q \ADVANCE.STORAGE.STATE 174Q \DORECLAIM 134Q \MP.ERROR 70Q \MP.ERROR 40Q \SET.STORAGE.STATE) (344Q \NxtArrayPage 341Q \SecondMDSPage 317Q \NxtMDSPage 314Q \SecondMDSPage 307Q \NxtMDSPage 304Q \LeastMDSPage 265Q \SecondArrayPage 253Q \LeastMDSPage 250Q \NxtArrayPage 235Q \NxtMDSPage 232Q \SecondMDSPage 226Q \LeastMDSPage 223Q \NxtArrayPage 170Q \PENDINGINTERRUPT 157Q \INTERRUPTSTATE 153Q \STORAGEFULL 141Q \STORAGEFULL 122Q \STORAGEFULL 110Q \STORAGEFULL 33Q \STORAGEFULLSTATE 12Q \NxtArrayPage 7 \NxtMDSPage) ( 131Q "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Ï`¿jdðhðgol h(33Q \LISPERROR) (17Q BREAK! 2 \INTERRUPTSTATE) ( 26Q "save your work & reload a.s.a.p.") \SET.STORAGE.STATE D1 NIL /`dlð’¿hŽlð™`È=jðhð€i’l€kg`¿NIL (53Q \SYSTEMCACHEVARS 47Q \SYSTEMCACHEVARS 44Q \STORAGEFULLSTATE 41Q \STORAGEFULLSTATE 21Q \InterfacePage 2 \MACHINETYPE) () \SETTYPEMASKA0001 D1 (L (0 PAGE) F 3 BITS) `@âb`@ÐÈSäHIÐJÍJNIL (11Q \MDSTypeTable 2 \MDSTypeTable) () \SETTYPEMASK D1 (L (0 NTYPX) I 1 BITS) `@ààààÐdÈAäÍ@g h(26Q \MAPMDS) (23Q \SETTYPEMASKA0001 2 \DTDSpaceBase) () \ADVANCE.STORAGE.STATE D1 (L (0 FLG)) @`nÿÿÍAg` (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)) `@â`•An€ä€AHIÐJÍJNIL (7 \GCDISABLED 2 \MDSTypeTable) () \INITMDSPAGE D1 (L (2 PREV 1 SIZE 0 BASE)) TnAÜQHjð³HAâýñœnAñ–l¹n„k¹nºI¼k]Ló³%j»KAÔ[Jñ®@BÎ¿@bAÐb¿°ì@HÐb¿MkÔ°Ú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) … @ Eµ.jBH¢±„`HààààÐºDJÉô²#BJÈô²JA¿JIÍH µÒEo °ÈJÈjð³J`ið³/`²,l`gð“g‚gB”oƒo@hgð¡HH`ñ’i[‡o@ ¿B‘h€i’±ë`nÿðšH‘K–@l" ¿H”K¢±ž`kÔ¼`LààààÐ½nMÓlÿålØñ‘h€i˜MlÐi ¿K²aLJÈoåäHg ¿O‘h€iš`mÿÔ°8Jh¿Jh¿MJlÄ¿MÉ¿MkÏ ¿MOÍ¿Mo@ ÓÍ¿JhÎ‹L¸MZ@ÓÍ¿Bjð³&JBÍ¿JA ¿JC ¿JD¿JIÍ¿JHÍ¿HK h(600Q VALUES 550Q COPY 540Q COPY 470Q PACK* 372Q \MAPMDS 342Q \NEWPAGE 253Q \LISPERROR 217Q ERROR 167Q ASKUSER 77Q ERROR 65Q \TYPENUMBERFROMNAME 3 \TYPENUMBERFROMNAME) (515Q LITATOM 473Q LITATOM 413Q \MaxTypeNumber 405Q \MaxTypeNumber 367Q \ASSIGNDATATYPE1A0001 302Q \DTDSpaceBase 276Q \MaxTypeNumber 271Q \MaxTypeNumber 234Q \MaxTypeNumber 202Q \MaxSysTypeNum 172Q Y 145Q N 141Q Y 134Q Y 131Q CROSSCOMPILING 122Q CROSSCOMPILING 113Q CROSSCOMPILING 22Q \DTDSpaceBase) ( 464Q "Obsolete-" 356Q -4000Q 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)) @d²dlð› µ@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 \dgð¥dgð’¿h¿i«L»JµKhZ¹HX°ÍK&º°ø(33Q SETTOPVAL 30Q ASSIGNDATATYPE 6 \TYPEGLOBALVARIABLE) (53Q FULLPOINTER 45Q POINTER) () \TYPENUMBERFROMNAME D1 (L (0 TYPE)) ,@´)`kIHó³@Ó`IààààÐÈð‘IIkÔY°ähNIL (26Q \DTDSpaceBase 22Q LITATOM 5 \MaxTypeNumber) () CREATECELL D1 (L (0 TYP)) @ (3 \CREATECELL) NIL () \CREATECELL D1 (L (0 TYP) P 5 \INTERRUPTABLE) ¥@lð—o ¿`@ààààÐAHÈjðo@ ¿°îHÉY²[HIÉÎHl Ð[ÈkÐÓºKJÍ¿Jjð˜KdÈkØÍ¿HÈkÙ¼ILÐjÍ¿IdkÐLÄ¿I¿`²`kñ´`kÙ†¿IHdÈ HÈHÉÎ@(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)) @@2H—AH b¿@dgð³dgð«dgð¥dgð–¿AIÐÉdgðž¿AIÐÈAIÐÈ dgðœ¿AIÐÈAIÐÈõgð›AIÐÈAIÐÈõ@I»Zdgð²¿AKÐÈJ J ådgð²3¿AKÐÈJ J åJ ¼dkLkÙ kÙñ™kL kÙÙkÙdgð²¿AKÐÈJ J åAKÐÈõgðŸAKÐÈJ åjðhð@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) )@@@SJ—AJ b¿Igð§Idgð˜¿AHÐBBgð²AHàkØBÒlÿåÇAHkØÐBÓÍBIdgð˜¿AHÐBÎBgð²AHBíOOÐOÎ¿OíIdgð™¿AHÐB Bgð˜AHÐB BIdgð²=¿AHAHÐÈI \I [ nÿÿæåBLåK äOOÐOÍ¿OK Lådgð²j¿AHAHÐÈI \I [ nÿÿæåBkI kÙLååK äOOÐOÍ¿OK Lå]kI kÙ kÙñŸMkI kÙÙkÙMdgð²4¿AHÐAHÐÈI \I [ nÿÿæåB“nÿÿ€jLåK äÍB´uigð¢±˜h^_¿Bdlð›¿BÈ_¿BÈ°dkð²O¿jBñ‘h€i•j_¿B‡nÿÿ_¿BÓ¾AHÐAHÐÈI \I [ nÿÿæåOLåK äÍ¿AHkØÐNÍBlð—B b°’BdÃž¿Boib±ÿ~l b±ÿt@l (1046Q \LISPERROR 1033Q \LISPERROR 1021Q \LISPERROR 775Q \FIXP.FROM.FLOATP 747Q LLSH 732Q LLSH 726Q BitFieldShift 720Q 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) (1006Q BIGNUM 606Q LONGBITS 516Q FLAGBITS 337Q SIGNEDBITS 235Q BITS 214Q SWAPPEDFIXP 175Q FIXP 135Q FLOATP 117Q FULLXPOINTER 56Q XPOINTER 40Q FULLPOINTER 31Q POINTER) ( 1015Q "ARG NOT FIXP") BOXCOUNT D1 (L (1 N 0 TYPE) P 1 \INTERRUPTABLE) 8`@d§µl‚ ààààÐHl HÈØA3ŸHl 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)) Œ@!`HààààÐÈAð‘@`HààààÐÈXjð²âjAÑdgð•¿@ dgð²@@mÿg dgð«dgð¥dgð•¿g°dgð«dgð¥dgð”¿g¿h dgð²$@µ`µ @l3 ²ô@dÃ²í¿@dgð•¿@ dgð²g¿hYº@dlð™¿@È¹@È°dkð²$¿j@ñ‘h€i“j¹@…nÿÿ¹@ÓºIJõµ@l lð—@ b°¿@dÃ¿@oib°«l b°¢dgð—¿@l dgð—¿@l dgð—¿@l dgð—¿@l& dgð—¿@l' dgð—¿@l gð—o @ojAÑ i(611Q \LISPERROR 605Q CONCAT 571Q ERROR 554Q \LISPERROR 536Q \LISPERROR 520Q \LISPERROR 502Q \LISPERROR 464Q \LISPERROR 446Q \LISPERROR 425Q \LISPERROR 414Q \LISPERROR 370Q \FIXP.FROM.FLOATP 357Q \LISPERROR 254Q \COERCEFONTDESC 215Q \LISPERROR 167Q \GETSTREAM 103Q STKNTHNAME 62Q \FLOAT) (560Q \DISPLAYDATA 543Q ARRAYP 525Q TERMTABLEP 507Q READTABLEP 471Q STACKP 453Q LITATOM 435Q LISTP 401Q BIGNUM 261Q SMALLP 245Q FONTDESCRIPTOR 233Q 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) ( 577Q "ARG NOT " 566Q "ARG NOT DISPLAY STREAM" 410Q "ARG NOT FIXP") \INSTANCEP.UFN D1 (L (1 TYPEN 0 OBJ)) (@`HààààÐÈAð‘i`HààààÐÈXjð²âhNIL (27Q \DTDSpaceBase 7 \DTDSpaceBase) () \INSTANCE-P D1 (L (1 TYPE 0 OBJECT)) @AÓ (10Q \INSTANCEP.UFN) (4 LITATOM) () \TYPECHECK.UFN D1 (L (1 TYPEN 0 OBJ)) 6@`HààààÐÈAð‘@`HààààÐÈXjð²â@ojAÑ i(63Q \LISPERROR 57Q CONCAT) (27Q \DTDSpaceBase 7 \DTDSpaceBase) ( 51Q "ARG NOT ") GETDESCRIPTORS D1 (L (0 TYPENAME)) `@dlð• d¡ààààÐÉ(14Q \TYPENUMBERFROMNAME) (2 \DTDSpaceBase) () GETSUPERTYPE D1 (L (0 TYPENAME)) !@ H´`HààààÐÈYjð¤I 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ÈÄ¿HÉ‹dºIJÐÉ¿µóINIL (2 \DTDSpaceBase) () REPLACEFIELDVAL D1 (L (2 NEWVALUE 1 DATUM 0 DESCRIPTOR)) @ABA(5 REPLACEFIELD) NIL () PUTBASEPTRX D1 (L (2 NEWVALUE 1 OFFSET 0 DATUM) P 0 \INTERRUPTABLE) @AÐ@AÐÈnÿåBÒäÍ@AkØÐBÓÍBNIL NIL () /REPLACEFIELD D1 (L (2 NEWVALUE 1 DATUM 0 DESCRIPTOR) F 0 LISPXHIST) P²g@A@A h ¿@AB(33Q REPLACEFIELD 24Q UNDOSAVE 14Q FETCHFIELD) (5 /REPLACEFIELD) () TYPENAME D1 (L (0 DATUM)) @Hlð”@ j`HààààÐÈÑ(15Q \ARRAYTYPENAME) (22Q \DTDSpaceBase) () TYPENAMEP D1 (L (1 TYPE 0 DATUM)) @AÓ (10Q \INSTANCEP.UFN) (4 LITATOM) () \TYPENAMEFROMNUMBER D1 (L (0 N)) @`kØýñ´j`@ààààÐÈÑNIL (15Q \DTDSpaceBase 3 \MaxTypeNumber) () \BLOCKDATAP D1 (L (0 X)) +@HjðŸ@jð´l@Òñ‘hi`HààààÐÊPjðhðNIL (33Q \DTDSpaceBase) () USERDATATYPES D1 NIL i (3 DATATYPES) NIL () DATATYPEP D1 (L (0 DATATYPESPEC)) {@d².¿`@ààààÐHÊPjð¡h€i´\jHÈÑYd²Sgðhð´KIlð‘h€i‘h@dgð³6dgð³/¿`kIHó³j`IààààÐÈÑ@ð”Iµi†IkÔY°ãh´@NIL (134Q \DTDSpaceBase 117Q \MaxTypeNumber 110Q HARRAYP 101Q CCODEP 52Q **DEALLOC** 11Q \DTDSpaceBase) () DATATYPES D1 (L (0 USERSFLG)) 5`@•`kØ€kBIdHó‘J ]‘h€i©M¼Kµ Lh[ºIkÔY°ãL&»°÷(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) optimize-TYPENAMEP D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) :@Hgð²(Hlð²ggjgHhHhgNIL (67Q IGNOREMACRO 43Q ATOM 37Q INSTANCEP 34Q OPCODES 13Q QUOTE) () (PUTPROP (QUOTE TYPENAMEP) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE TYPENAMEP) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-TYPENAMEP)))) optimize-\INSTANCE-P D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) :@Hgð²(Hlð²ggjgHhHhgNIL (67Q IGNOREMACRO 43Q ATOM 37Q INSTANCEP 34Q OPCODES 13Q QUOTE) () (PUTPROP (QUOTE \INSTANCE-P) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE \INSTANCE-P) ( QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-\INSTANCE-P)))) STORAGE D1 (L (1 PAGETHRESHOLD 0 TYPES) P 5 HUNKSTATS) µllllj2IHó³!jddddh¼Kµ Lh[ºIkÔY°äL&»°÷J4o ¿l ¿o ¿l ¿o ¿l- ¿o ¿l7 ¿o ¿h ¿l ¿o ¿h @µ‚±Ô`k_¿_¿OdOó¢±@¿KA ¿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 ¿KjØjð¢±—h±”ið’±ÿ,@!OµO•JA ¿±-¦O_¿hˆO_¿O_¿Od3 ²!¿jOñ¨Od`ñš¿oO Žjði^ˆ _‘h€i³«`OààààÐÊPjð£i_¿OLJA¿°ŒLJA¿OkÔ_±þ®i”oƒo ¿l ¿o`dlð¥dlð²¿`nÙ``ÙØ‡¿`nÙ ¿l2 ¿o ¿o ¿h ¿KjØjð‘h€i²,o ¿l ¿oK ¿l2 ¿o ¿h ¿o`lØâââââââlÚn¿i¾N´h(1261Q \SHOW.ARRAY.FREELISTS 1250Q \STLINP 1215Q TERPRI 1210Q PRIN1 1200Q TAB 1172Q PRINTNUM 1161Q TAB 1153Q PRIN1 1130Q TERPRI 1123Q PRINTNUM 1117Q STORAGE.LEFT 1107Q PRIN1 1077Q TAB 1071Q PRINTNUM 1012Q TAB 1004Q PRIN1 754Q \STORAGE.TYPE 743Q \STORAGE.TYPE 677Q \TYPENUMBERFROMNAME 665Q ERROR 574Q \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) (1225Q \AtomFrLst 1062Q \NxtArrayPage 1053Q \SecondArrayPage 1050Q \NxtArrayPage 1041Q \LeastMDSPage 1022Q \STORAGEFULLSTATE 712Q \DTDSpaceBase 651Q \MaxTypeNumber 230Q \MaxTypeNumber) ( 1222Q "Litatoms" 1205Q "/" 1166Q (FIX 10Q) 1150Q "ArrayBlocks (chunked)" 1114Q (FIX 6) 1104Q "--" 1017Q (FIX 10Q) 1001Q "" 774Q " (variable)" 660Q "Not a type number" 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`jH‘h€i³IkÔ¹HZãJlÿåáÑÉX°èIlØØØH`kð‘j‰`lØ`Ùn-ØëYHI`dkð“¿I°lðŸ`lØ`Ùoë€jn`lØâââââââlÚÙdnëh(7 \SET.STORAGE.STATE) (247Q \AtomFrLst 231Q \NxtArrayPage 223Q \NxtMDSPage 204Q \STORAGEFULLSTATE 170Q \SecondArrayPage 162Q \SecondMDSPage 152Q \STORAGEFULLSTATE 75Q \MDSFREELISTPAGE 64Q \LeastMDSPage 61Q \NxtMDSPage 45Q \SecondArrayPage 42Q \SecondMDSPage 31Q \STORAGEFULLSTATE 25Q \NxtArrayPage 22Q \NxtMDSPage 16Q \SecondMDSPage 2 \STORAGEFULLSTATE) ( 236Q 11520.0) \STORAGE.TYPEA0001 D1 (F 0 ALLOCMDS) PkÔcNIL NIL () \STORAGE.TYPE D1 (L (3 PAGETHRESHOLD 2 TOTALALLOCMDS 1 FREE 0 TYPE) P 0 ALLOCMDS F 15Q HUNKSTATS) < jÁ`@ààààÐ_jOÈÑZ´‚±!OÊPjðhðOÈYJgð’± Jdgð’±ÿgð’lè‹Ijð’±ðnIÛ]@g HlÚ^OÊPjð³WOÊakØ _dNÔ‚BNö¿NCµkýñ’±±Ajd@lð²,`È _ãOlÿåáÑ_‘h€i³*AOÊö¿OÈ_ãO°âOÉ_‘h€i©Akö¿OÉ°ñHMÚ[AÙ\OÊPjð³:OOKÔ¿OOAÔ¿OOLÔ¿Od@ Ô¿°Jdgð”¿oNKAL@ h(470Q \STMDSTYPE 464Q BOXCOUNT 433Q BOXCOUNT 223Q \PUTBASEFIXP 162Q NTH 130Q \MAPMDS) (445Q LISTP 234Q \LISTPDTD 216Q FIXP 125Q \STORAGE.TYPEA0001 77Q LISTP 67Q SMALLP 55Q LITATOM 6 \DTDSpaceBase) ( 454Q "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) R0o°EdºSJkØ Y¸@Hö¿Hjð³,A‘h€i¨AHñ‘h€i²JHIIII ¿µ¼h(111Q \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))) (PUTPROPS LLDATATYPE FILETYPE COMPILE-FILE) (PUTPROPS LLDATATYPE COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL