(FILECREATED "16-Jul-86 23:21:58" ("compiled on " {ERIS}SOURCES>DTDECLARE.;17) "15-Jul-86 20:06:40" recompiled changes: DECLAREDATATYPE \TYPEGLOBALVARIABLE in "Xerox Lisp 15-Jul-86 ..." dated "15-Jul-86 20:18:34") (FILECREATED "16-Jul-86 23:21:18" {ERIS}SOURCES>DTDECLARE.;17 30240 changes to: (FNS DECLAREDATATYPE \TYPEGLOBALVARIABLE) previous date: " 4-Jun-86 16:34:22" {ERIS}SOURCES>DTDECLARE.;16) /DECLAREDATATYPE D1 (L (4 SUPERTYPE 3 LEN 2 DLIST 1 FIELDSPECS 0 TYPENAME) F 2 LISPXHIST) HR@g@d hd@ h @ABCD  HHg@ghid I(104Q LISPXPRINT 52Q \MVLIST 47Q DECLAREDATATYPE 35Q UNDOSAVE 23Q GETSUPERTYPE 15Q GETFIELDSPECS) (73Q redeclared 67Q datatype 10Q /DECLAREDATATYPE) () DECLAREDATATYPE D1 (L (4 SUPERTYPE 3 LENGTH 2 DLIST 1 FIELDSPECS 0 TYPENAME)) Dd A bBC@A bBbb@dl@l BAH*I1@BCAHD  YI@i J BK \dgdghiLJ KhZHXK&(137Q VALUES 132Q SETTOPVAL 126Q \TYPEGLOBALVARIABLE 112Q \MVLIST 107Q \ASSIGNDATATYPE1 57Q \LISPERROR 26Q TRANSLATE.DATATYPE 11Q \APPEND2 5 GETFIELDSPECS) (157Q FULLPOINTER 151Q POINTER) () TRANSLATE.DATATYPE D1 (L (1 FIELDSPECS) P 7 FD P 3 UNUSED P 2 BIT P 1 OFFSET I 0 TYPENAME) W@@l@go@ jdd0Ad_HkXOgOdglg)Og!OgOgOgOdgl ogg_kaOdgg_lNgg_l?Odgg_l,dgdgdgOO_oO @hOh_ O" O h_$O &_"!O$\dd__Odgdg@Kh__2Jll Ikjl JllJj jIdlԹ_kjJlO@OOl1Kh__h$_OkOlOiOOvdgdgdgdgJjl IdlԹdgdg$Jjl Idkjl IdlԹdgdgdgȿO@Kh__Eh]YNdl|l^lJl lJNlN OgJN jIdlԹv_NOOiOMNOOMN MMNM4lJl OOJN JNԺIJljIkԹ @"Jjl Idkjn@o I0L kYd_ O" O h_$O &_"O$(1447Q ERROR 1421Q \REUSETO 1373Q SHOULDNT 1343Q MakeBitField 1324Q \REUSETO 1271Q MakeBitField 1172Q MakeBitField 1155Q \REUSETO 1136Q \REUSETO 1023Q \REUSETO 1005Q \REUSETO 744Q \REUSETO 534Q \REUSETO 516Q \REUSETO 502Q \REUSETO 340Q ERROR 26Q ERROR) (1165Q LONGBITS 1055Q SIGNEDBITS 1047Q FLAGBITS 1041Q BITS 770Q FULLXPOINTER 762Q FULLPOINTER 727Q SWAPPEDXPOINTER 721Q FLOATP 713Q SWAPPEDFIXP 704Q FIXP 446Q XPOINTER 440Q POINTER 310Q SIGNEDBITS 302Q FLAGBITS 274Q BITS 257Q SIGNEDBITS 251Q SIGNEDWORD 234Q BITS 227Q WORD 215Q BITS 207Q BYTE 173Q FLAGBITS 166Q FLAG 154Q FULLXPOINTER 144Q SWAPPEDXPOINTER 135Q FULLPOINTER 125Q SWAPPEDFIXP 115Q FLOATP 105Q FIXP 72Q XPOINTER 62Q POINTER 14Q **DEALLOC**) ( 1444Q "DATATYPE TOO BIG" 333Q "invalid field spec: " 22Q "Invalid type name") \REUSETO D1 (L (1 FLG 0 N) F 0 BIT F 1 OFFSET F 2 UNUSED F 3 TYPENAME F 4 FD) 8@PbdjSAoT QP@hRcP@cdl jcQkc(25Q ERROR) NIL ( 21Q "Block/datatype field not alligned properly") \TYPEGLOBALVARIABLE D1 (L (1 VARFLG 0 TYPENAME) F 3 \BUILT-IN-SYSTEM-TYPES F 4 GLOBALVARS) KASkH.h)o@o HdTdg Hgi H@JIHIkԹ(64Q PUTPROP 52Q GETPROP 32Q PACK*) (60Q GLOBALVAR 47Q GLOBALVAR) ( 27Q "TYPE#" 22Q "") BitFieldMask D1 (L (0 FD)) k@ k(7 LLSH 4 BitFieldWidth) NIL () BitFieldShift D1 (L (0 FD)) l@ @ (11Q BitFieldWidth 5 BitFieldFirst) NIL () BitFieldShiftedMask D1 (L (0 FD)) kl@ kl@ @ (32Q LLSH 25Q BitFieldWidth 21Q BitFieldFirst 12Q LLSH 6 BitFieldFirst) NIL () MakeBitField D1 (L (1 width 0 first)) @AkNIL NIL () BitFieldWidth D1 (L (0 FD)) @lkNIL NIL () BitFieldFirst D1 (L (0 FD)) @NIL NIL () COMPILEDFETCHFIELD D1 (L (1 FASTFLG 0 X)) @g@@2A"HZgIJddi3 gJhhHdgdgdgdggIHhdg6gogggHkhggHhhhIhdggIHhdggIHhg5gogggHkhggHhhhIhHH[dggILKhdgggILKhK hdggILKhg4gogggLKhggLkhhhIhg(612Q SHOULDNT 466Q BitFieldWidth) (616Q IGNOREMACRO 563Q D 560Q \GETBASE 545Q D 542Q \GETBITS 537Q \MAKENUMBER 530Q OPENLAMBDA 522Q LONGBITS 505Q \TESTBITS 477Q FLAGBITS 450Q \GETBITS 445Q SIGNED 436Q SIGNEDBITS 420Q \GETBITS 412Q BITS 350Q D 345Q \GETBASE 331Q D 326Q \GETBASE 323Q \MAKENUMBER 314Q OPENLAMBDA 306Q SWAPPEDFIXP 272Q \GETBASEFIXP 264Q FIXP 247Q \GETBASEFLOATP 241Q FLOATP 211Q D 206Q \GETBASE 172Q D 167Q \GETBASE 164Q \VAG2 155Q OPENLAMBDA 146Q SWAPPEDXPOINTER 131Q \GETBASEPTR 123Q FULLXPOINTER 115Q FULLPOINTER 107Q XPOINTER 100Q POINTER 57Q QUOTE 40Q \DTEST 6 QUOTE) ( 534Q (D) 320Q (D) 161Q (D)) COMPILEDREPLACEFIELD D1 (L (2 RPLVALFLG 1 FASTFLG 0 X)) @g@@@HHHA KgIKddi3 gKhhLgLdggIMJhggIMJhLdggIMJhg6goggMoggMkooIJhLdggIMJhgggIMhJhLdggIMJhdggIMLJhdgoMLho IJhdg*ggIMLgJL hhL hg+ggIMLgJL hohog(576Q BitFieldMask 540Q BitFieldWidth 521Q BitFieldWidth 457Q SUBPAIR) (627Q IGNOREMACRO 570Q COND 561Q \PUTBITS 556Q NEQ 550Q FLAGBITS 513Q UNSIGNED 504Q \PUTBITS 501Q SIGNED 472Q SIGNEDBITS 432Q LONGBITS 412Q \PUTBITS 404Q BITS 366Q \PUTBASEFLOATP 360Q FLOATP 337Q \ADDBASE 334Q \PUTSWAPPEDFIXP 326Q SWAPPEDFIXP 312Q \PUTBASEFIXP 304Q FIXP 246Q D 243Q \PUTBASE 230Q D 225Q \PUTBASE 216Q OPENLAMBDA 210Q SWAPPEDXPOINTER 174Q \PUTBASEPTR 166Q FULLXPOINTER 150Q PUTBASEPTRX 143Q XPOINTER 127Q \RPLPTR 121Q FULLPOINTER 112Q POINTER 75Q QUOTE 56Q \DTEST 6 QUOTE) ( 621Q (0) 605Q ((T 0)) 454Q (OPENLAMBDA (D V) (\PUTBITS D OFFSET FT (\HINUM V)) (\PUTBASE D (ADD1 OFFSET) (\LONUM V)) V) 442Q (OFFSET FT) 264Q (R) 255Q ((\HILOC R)) 235Q ((\LOLOC R)) 222Q (D R)) COMPILEDTYPENAMEP D1 (L (0 X)) L@gHg/Hdgdgdgihg@hH hg@h@(72Q \TYPEGLOBALVARIABLE) (100Q TYPENAME 57Q NTYPX 43Q ARRAYP 35Q HARRAYP 27Q CCODEP 15Q QUOTE 10Q EQ) () COMPILEDNCREATE D1 (L (0 X)) 3@g&@g@ hg@ @hg(45Q \TYPEGLOBALVARIABLE 27Q \TYPEGLOBALVARIABLE) (60Q IGNOREMACRO 36Q NCREATE2 20Q CREATECELL 6 QUOTE) () TRANSLATE.LOCF D1 (L (1 INDEXONLY 0 ARGS)) @ !HdgHHXdgdgHZJgJZ~J3 yAJJjHHXHdgHHh:i7dgdgH3 JHԺHhiH YHIihhgHJhHd XEo@ g(314Q ERROR 276Q MACROEXPAND-1 241Q MACROEXPAND-1 3 MKPROGN) (317Q IGNOREMACRO 261Q \ADDBASE 201Q \ADDBASE 173Q ADDBASE 146Q PROGN 73Q QUOTE 47Q FFETCHFIELD 41Q FETCHFIELD 15Q PROGN) ( 310Q "LOCF Can't figure out this argument") (PRETTYCOMPRINT DTDECLARECOMS) (RPAQQ DTDECLARECOMS ((* declaring DATATYPES - part of ABC too) (FNS /DECLAREDATATYPE DECLAREDATATYPE TRANSLATE.DATATYPE \REUSETO \TYPEGLOBALVARIABLE) (FNS BitFieldMask BitFieldShift BitFieldShiftedMask MakeBitField BitFieldWidth BitFieldFirst) (PROP DMACRO FETCHFIELD FFETCHFIELD REPLACEFIELD FREPLACEFIELD REPLACEFIELDVAL FREPLACEFIELDVAL TYPENAMEP NCREATE \DTEST \TESTBITS) (FNS COMPILEDFETCHFIELD COMPILEDREPLACEFIELD COMPILEDTYPENAMEP COMPILEDNCREATE) (DECLARE: DONTCOPY (EXPORT (RECORDS FldDsc))) (VARS DATATYPEFIELDTYPES) (COMS (* Macros which convert a record access form into an address-generating form) (MACROS LOCF INDEXF) (FNS TRANSLATE.LOCF)) (LOCALVARS . T))) (PUTPROPS FETCHFIELD DMACRO (X (COMPILEDFETCHFIELD X))) (PUTPROPS FFETCHFIELD DMACRO (X (COMPILEDFETCHFIELD X T))) (PUTPROPS REPLACEFIELD DMACRO (X (COMPILEDREPLACEFIELD X))) (PUTPROPS FREPLACEFIELD DMACRO (X (COMPILEDREPLACEFIELD X T))) (PUTPROPS REPLACEFIELDVAL DMACRO (OPENLAMBDA (DESCRIPTOR DATUM NEWVALUE) (PROG1 DATUM (REPLACEFIELD DESCRIPTOR DATUM NEWVALUE)))) (PUTPROPS FREPLACEFIELDVAL DMACRO (OPENLAMBDA (DESCRIPTOR DATUM NEWVALUE) (PROG1 DATUM (FREPLACEFIELD DESCRIPTOR DATUM NEWVALUE)))) (PUTPROPS TYPENAMEP DMACRO (X (COMPILEDTYPENAMEP X))) (PUTPROPS NCREATE DMACRO (X (COMPILEDNCREATE X))) (PUTPROPS \DTEST DMACRO (X (COND ((AND (EQ (CAADR X) (QUOTE QUOTE)) (LITATOM (CADR (CADR X)))) (LIST ( LIST (QUOTE OPCODES) (QUOTE DTEST) 0 (CONS (QUOTE ATOM) (CADR (CADR X)))) (CAR X))) (T (QUOTE IGNOREMACRO))))) (PUTPROPS \TESTBITS DMACRO ((X N FD) (NEQ 0 (\GETBITS X N FD)))) (RPAQQ DATATYPEFIELDTYPES ((FLOATP 0.0) (FIXP 0) (SWAPPEDFIXP 0) (POINTER NIL) (XPOINTER NIL) ( FULLPOINTER NIL) (FULLXPOINTER NIL) (SWAPPEDXPOINTER NIL) (FLAG NIL) (BYTE 0) (WORD 0) (SIGNEDWORD 0)) ) (PUTPROPS LOCF DMACRO (X (TRANSLATE.LOCF X))) (PUTPROPS INDEXF DMACRO (X (TRANSLATE.LOCF X T))) (PUTPROPS DTDECLARE COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986)) NIL