(FILECREATED "30-Sep-86 19:48:52" ("compiled on " {ERIS}SOURCES>DTDECLARE.;19) "29-Sep-86 15:13:09" in "Xerox Lisp 29-Sep-86 ..." dated "29-Sep-86 15:41:04") (FILECREATED "30-Sep-86 19:47:34" {ERIS}SOURCES>DTDECLARE.;19 30846 changes to: (OPTIMIZERS \DTEST) (VARS DTDECLARECOMS) previous date: "26-Sep-86 18:58:37" {ERIS}SOURCES>DTDECLARE.;18 ) (RPAQQ DTDECLARECOMS ((* declaring DATATYPES - part of ABC too) (FNS /DECLAREDATATYPE DECLAREDATATYPE TRANSLATE.DATATYPE \REUSETO \TYPEGLOBALVARIABLE) (FNS BitFieldMask BitFieldShift BitFieldShiftedMask MakeBitField BitFieldWidth BitFieldFirst) (OPTIMIZERS FETCHFIELD FFETCHFIELD REPLACEFIELD FREPLACEFIELD REPLACEFIELDVAL FREPLACEFIELDVAL NCREATE \DTEST) (PROP DMACRO \TESTBITS) (FNS COMPILEDFETCHFIELD COMPILEDREPLACEFIELD COMPILEDTYPENAMEP COMPILEDNCREATE) (* ;; "AFTER ONE SYSTEM RECOMPILE FROM SEP 16, REMOVE COMPILEDTYPENAMEP") (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 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 bBhiChi@A bBbb@@lo@ BAH*I1@BCAHD  YI@i J BK \dgdghiLJ KhZHXK&(151Q VALUES 144Q SETTOPVAL 140Q \TYPEGLOBALVARIABLE 124Q \MVLIST 121Q \ASSIGNDATATYPE1 71Q LISPERROR 36Q TRANSLATE.DATATYPE 11Q \APPEND2 5 GETFIELDSPECS) (171Q FULLPOINTER 163Q POINTER) ( 65Q "ILLEGAL ARG")