(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 4-Nov-93 12:00:15" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>DTDECLARE.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "11-Oct-93 14:34:11" "{Pele:mv:envos}Sources>CLTL2>DTDECLARE.;1" 35305 |changes| |to:| (FUNCTIONS TYPE-VARIABLE-FROM-TYPE-NAME) |previous| |date:| "15-Dec-92 14:08:39" "{Pele:mv:envos}Sources>DTDECLARE.;6") (RPAQQ DTDECLARECOMS ((* |;;| "declaring DATATYPES --- part of ABC too") (FNS /DECLAREDATATYPE DECLAREDATATYPE TRANSLATE.DATATYPE \\REUSETO \\TYPEGLOBALVARIABLE) (FUNCTIONS TYPE-VARIABLE-FROM-TYPE-NAME) (FNS |BitFieldMask| |BitFieldShift| |BitFieldShiftedMask| |MakeBitField| |BitFieldWidth| |BitFieldFirst|) (OPTIMIZERS FETCHFIELD FFETCHFIELD REPLACEFIELD FREPLACEFIELD REPLACEFIELDVAL FREPLACEFIELDVAL NCREATE \\DTEST) (PROP DMACRO \\TESTBITS) (FNS COMPILEDFETCHFIELD COMPILEDREPLACEFIELD 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) (PROP FILETYPE DTDECLARE))) /DECLAREDATATYPE :D8 (L (4 SUPERTYPE 3 LEN 2 DLIST 1 FIELDSPECS 0 TYPENAME) F 2 LISPXHIST) [R&@$g@d hd@ h @ABCD  HHg@ghid I(87 LISPXPRINT 54 \\MVLIST 49 DECLAREDATATYPE 37 UNDOSAVE 25 GETSUPERTYPE 17 GETFIELDSPECS) (76 |redeclared| 70 |datatype| 10 /DECLAREDATATYPE) () DECLAREDATATYPE :D8 (L (4 SUPERTYPE 3 LENGTH 2 DLIST 1 FIELDSPECS 0 TYPENAME)) Dd A bBC@A bBbb@dd3@@l BAH2I1@BCAHD  YI@i J BK$\dgdghiLJ KhZHXK&(107 SETTOPVAL 101 \\TYPEGLOBALVARIABLE 87 \\MVLIST 82 \\ASSIGNDATATYPE1 56 \\LISPERROR 29 TRANSLATE.DATATYPE 13 \\APPEND2 7 GETFIELDSPECS) (132 FULLPOINTER 124 POINTER) () TRANSLATE.DATATYPE :D8 (L (1 FIELDSPECS) P 7 FD P 3 UNUSED P 2 BIT P 1 OFFSET I 0 TYPENAME) @@d3@@go@ jdd0A d_HkXOgOdglg4Og*Og OgOgOdgl gg_kvOdgg_l_gg_lLOdgg_l5dgdgdgOO_oO @hOh_ O" O h_$O &_"O$\d*d__Odgdg@Kh__8Jll Ikjl JllJj jIdlԹ_kjKOl @OOl1Kh__h$_OkOlOiOOodgdgdgdgJjl IdlԹ1dgdg(Jjl Idkjl IdlԹdgdgdgؿO@Kh__Oh]cNdll^lJl lJNlN OgJN jIdlԹ~_NOOiOMNOOMN MMNM:lJl OOJN JNԺIJljIkԹ@'Jjl Idkjn@o I0L kYd_ O" O h_$O &_"O$(915 ERROR 890 \\REUSETO 866 SHOULDNT 840 |MakeBitField| 823 \\REUSETO 794 |MakeBitField| 729 |MakeBitField| 712 \\REUSETO 695 \\REUSETO 609 \\REUSETO 593 \\REUSETO 554 \\REUSETO 406 \\REUSETO 390 \\REUSETO 376 \\REUSETO 272 ERROR 27 ERROR) (722 LONGBITS 642 SIGNEDBITS 634 FLAGBITS 625 BITS 578 FULLXPOINTER 570 FULLPOINTER 539 SWAPPEDXPOINTER 531 FLOATP 522 SWAPPEDFIXP 513 FIXP 346 XPOINTER 338 POINTER 245 SIGNEDBITS 237 FLAGBITS 229 BITS 214 SIGNEDBITS 206 SIGNEDWORD 191 BITS 184 WORD 172 BITS 164 BYTE 150 FLAGBITS 143 FLAG 130 FULLXPOINTER 120 SWAPPEDXPOINTER 110 FULLPOINTER 100 SWAPPEDFIXP 90 FLOATP 80 FIXP 67 XPOINTER 57 POINTER 14 **DEALLOC**) ( 910 "DATATYPE TOO BIG" 265 "invalid field spec: " 21 "Invalid type name") \\REUSETO :D8 (L (1 FLG 0 N) F 0 BIT F 1 OFFSET F 2 UNUSED F 3 TYPENAME F 4 FD) ;@PbdjSAoT QP@hRcP@cdl jcQkc(24 ERROR) NIL ( 18 "Block/datatype field not aligned properly") \\TYPEGLOBALVARIABLE :D8 (L (1 VARFLG 0 TYPENAME) F 3 \\BUILT-IN-SYSTEM-TYPES F 4 GLOBALVARS) MASkH0h+@ HdTdg Hgi H@JIHIkԹ(54 PUTPROP 40 GETPROP 20 TYPE-VARIABLE-FROM-TYPE-NAME) (48 GLOBALVAR 35 GLOBALVAR) () TYPE-VARIABLE-FROM-TYPE-NAME :D8 (L (0 TYPE-NAME) F 13 *PACKAGE* F 14 CMLSYMBOLS.SHARED)  W"@@@ jhHkIJ [Wo\ILl :jLdj Ldj Ldj lD OI:i-OOOOOOOJHkOHkO:ho]M@o Ok_L\^l _Kgoo_NOo@Ok o @ 1H`H`o@ o Y` I` JKJK0oJKh J.KI` [` HK KH K[`o@ o H (475 CL:INTERN 469 CONCAT 459 MKSTRING 438 SETF-SYMBOL-PACKAGE 429 CL:SYMBOL-PACKAGE 421 IMPORT 410 CL:INTERN 391 ERROR 364 CL:FIND-SYMBOL 352 CL:FIND-SYMBOL 341 CONCAT 331 MKSTRING 298 CL:SYMBOL-PACKAGE 291 PACK* 280 SUBSTRING 233 \\GETBASEFIXP 210 PACK* 126 %ARRAY-TYPE-NUMBER 109 %ARRAY-OFFSET 92 %ARRAY-BASE 72 \\GETBASEFIXP 42 NAMESTRING-CONVERSION-CLAUSE) (446 *COMMON-LISP-PACKAGE* 416 *LISP-PACKAGE* 405 *COMMON-LISP-PACKAGE* 359 *COMMON-LISP-PACKAGE* 347 *LISP-PACKAGE* 315 *COMMON-LISP-PACKAGE* 307 *LISP-PACKAGE* 246 :EXTERNAL) ( 464 "TYPE#" 453 "" 381 "Somehow BOTH these type symbols exist" 336 "TYPE#" 325 "" 285 "TYPE#" 270 "" 259 "" 253 ":" 205 "TYPE#" 195 "CL::" 56 "") |BitFieldMask| :D8 (L (0 FD)) k@ k(11 LLSH 6 |BitFieldWidth|) NIL () |BitFieldShift| :D8 (L (0 FD)) l@ @ (13 |BitFieldWidth| 7 |BitFieldFirst|) NIL () |BitFieldShiftedMask| :D8 (L (0 FD)) (kl@ kl@ @ (36 LLSH 29 |BitFieldWidth| 23 |BitFieldFirst| 14 LLSH 8 |BitFieldFirst|) NIL () |MakeBitField| :D8 (L (1 WIDTH 0 FIRST)) @AkNIL NIL () |BitFieldWidth| :D8 (L (0 FD)) @lkNIL NIL () |BitFieldFirst| :D8 (L (0 FD)) @NIL NIL () |optimize-FETCHFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 COMPILEDFETCHFIELD) NIL () (PUTPROP (QUOTE FETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FETCHFIELD|) ( GET (QUOTE FETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FFETCHFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @i (7 COMPILEDFETCHFIELD) NIL () (PUTPROP (QUOTE FFETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FFETCHFIELD|) (GET (QUOTE FFETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-REPLACEFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 COMPILEDREPLACEFIELD) NIL () (PUTPROP (QUOTE REPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-REPLACEFIELD|) (GET (QUOTE REPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FREPLACEFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @i (7 COMPILEDREPLACEFIELD) NIL () (PUTPROP (QUOTE FREPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FREPLACEFIELD|) (GET (QUOTE FREPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-REPLACEFIELDVAL| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (OPENLAMBDA (DESCRIPTOR DATUM NEWVALUE) (PROG1 DATUM (REPLACEFIELD DESCRIPTOR DATUM NEWVALUE)))) (PUTPROP (QUOTE REPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-REPLACEFIELDVAL|) (GET (QUOTE REPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FREPLACEFIELDVAL| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (OPENLAMBDA (DESCRIPTOR DATUM NEWVALUE) (PROG1 DATUM (FREPLACEFIELD DESCRIPTOR DATUM NEWVALUE)))) (PUTPROP (QUOTE FREPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FREPLACEFIELDVAL|) (GET (QUOTE FREPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-NCREATE| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 COMPILEDNCREATE) NIL () (PUTPROP (QUOTE NCREATE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-NCREATE|) (GET ( QUOTE NCREATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-\\DTEST| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @1HHAJgJd3@gK$ggjddgJhIhgK"ggjdgJhIhggjgJhIhgNIL (169 IGNOREMACRO 150 ATOM 144 DTEST 139 OPCODES 119 ATOM 112 DTEST 107 OPCODES 97 COMPILER:ENV 91 :3-BYTE 70 ATOM 62 DTEST 57 OPCODES 47 COMPILER:ENV 41 :4-BYTE 20 QUOTE) () (PUTPROP (QUOTE \\DTEST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-\\DTEST|) (GET ( QUOTE \\DTEST) (QUOTE COMPILER:OPTIMIZER-LIST)))) (PUTPROPS \\TESTBITS DMACRO ((X N FD) (NEQ 0 (\\GETBITS X N FD)))) COMPILEDFETCHFIELD :D8 (L (1 FASTFLG 0 X)) @g@@2A'HZ"gIJddi3 gJhhHdgdgdgdggIHhdgCgogggHkhggHhhhIhdggIHhdggIHhgBgogggHkhggHhhhIhHH[dggILKhdg"ggILKhK hdggILKhgAgogggLKhggLkhhhIhg(482 SHOULDNT 377 |BitFieldWidth|) (488 IGNOREMACRO 457 D 452 \\GETBASE 439 D 434 \\GETBITS 429 \\MAKENUMBER 419 OPENLAMBDA 411 LONGBITS 396 \\TESTBITS 388 FLAGBITS 361 \\GETBITS 356 SIGNED 347 SIGNEDBITS 331 \\GETBITS 323 BITS 287 D 282 \\GETBASE 268 D 263 \\GETBASE 258 \\MAKENUMBER 248 OPENLAMBDA 240 SWAPPEDFIXP 226 \\GETBASEFIXP 218 FIXP 203 \\GETBASEFLOATP 195 FLOATP 169 D 164 \\GETBASE 150 D 145 \\GETBASE 140 \\VAG2 130 OPENLAMBDA 121 SWAPPEDXPOINTER 106 \\GETBASEPTR 98 FULLXPOINTER 90 FULLPOINTER 82 XPOINTER 73 POINTER 54 QUOTE 36 \\DTEST 8 QUOTE) ( 424 (D) 253 (D) 135 (D)) COMPILEDREPLACEFIELD :D8 (L (2 RPLVALFLG 1 FASTFLG 0 X)) @g@@@HHHA%K"gIKddi3 gKhhLgLdggIMJhggIMJhLdggIMJhgDgoggMoggMkooIJhLdggIMJhgggIMhJhLdggIMJhdggIMLJhdgoMLho IJhdg4ggIMLgJL hhL hg5ggIMLgJL hohog(466 |BitFieldMask| 426 |BitFieldWidth| 409 |BitFieldWidth| 365 SUBPAIR) (495 IGNOREMACRO 458 COND 449 \\PUTBITS 444 NEQ 436 FLAGBITS 401 UNSIGNED 392 \\PUTBITS 387 SIGNED 378 SIGNEDBITS 340 LONGBITS 322 \\PUTBITS 313 BITS 297 \\PUTBASEFLOATP 289 FLOATP 270 \\ADDBASE 265 \\PUTSWAPPEDFIXP 257 SWAPPEDFIXP 243 \\PUTBASEFIXP 235 FIXP 201 D 196 \\PUTBASE 182 D 177 \\PUTBASE 167 OPENLAMBDA 159 SWAPPEDXPOINTER 145 \\PUTBASEPTR 137 FULLXPOINTER 121 PUTBASEPTRX 114 XPOINTER 100 \\RPLPTR 92 FULLPOINTER 83 POINTER 68 QUOTE 50 \\DTEST 8 QUOTE) ( 487 (0) 474 ((T 0)) 360 (OPENLAMBDA (D V) (\\PUTBITS D OFFSET FT (\\HINUM V)) (\\PUTBASE D (ADD1 OFFSET) (\\LONUM V)) V) 349 (OFFSET FT) 217 (R) 209 ((\\HILOC R)) 188 ((\\LOLOC R)) 172 (D R)) COMPILEDNCREATE :D8 (L (0 X)) @@g/@g@ hg@ @hg(48 \\TYPEGLOBALVARIABLE 30 \\TYPEGLOBALVARIABLE) (61 IGNOREMACRO 39 NCREATE2 21 CREATECELL 8 QUOTE) () (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))) TRANSLATE.LOCF :D8 (L (1 INDEXONLY 0 ARGS)) @ !HdgHHXdgdgHZJgJZJ3 AJJjHHXHdgH?Hh9dgdgH3 JHԺHhH YHIhigHJhHd X3o@ g(227 ERROR 210 CL:MACROEXPAND-1 179 CL:MACROEXPAND-1 5 MKPROGN) (232 IGNOREMACRO 195 \\ADDBASE 147 \\ADDBASE 139 ADDBASE 118 PROGN 69 QUOTE 47 FFETCHFIELD 39 FETCHFIELD 17 PROGN) ( 221 "LOCF Can't figure out this argument") (PUTPROPS DTDECLARE FILETYPE CL:COMPILE-FILE) (PUTPROPS DTDECLARE COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 1992 1993)) NIL