(FILECREATED " 8-Apr-86 22:05:16" ("compiled on " {ERIS}CML>LAB>CMLSTRUCT.;4) " 4-Apr-86 17:05:38" recompiled changes: DEFSTRUCT.TRANSLATE \CMLSTRUCT.CLTYPE.TO.ILTYPE in "Xerox Lisp 4-Apr-86 ..." dated " 4-Apr-86 17:20:22") (FILECREATED " 8-Apr-86 22:04:58" {ERIS}CML>LAB>CMLSTRUCT.;4 17595 changes to: (FNS DEFSTRUCT.TRANSLATE \CMLSTRUCT.CLTYPE.TO.ILTYPE) (VARS CMLSTRUCTCOMS) (PROPS (DEFSTRUCT USERRECORDTYPE )) previous date: "25-Mar-86 12:15:37" {ERIS}CML>LAB>CMLSTRUCT.;1) DEFSTRUCT.TRANSLATE D1 (P 71Q setfconc P 70Q conc P 67Q slot P 53Q constructor P 47Q option P 46Q type P 44Q setfconc P 43Q conc P 42Q options P 41Q slotname P 40Q x P 36Q option P 35Q includedescr P 34Q slotname P 33Q x P 31Q includeslotdescrs P 30Q includename P 27Q type P 26Q NAMED P 25Q named P 24Q copier P 23Q print-function P 22Q predicate P 21Q constructors P 20Q conc-name P 17Q includes P 16Q initialization P 15Q initialization P 14Q includes P 13Q slotfns P 12Q slotnames P 11Q slots P 10Q name P 7 class P 6 doc P 5 options P 1 slotdescrs P 0 name&options I 0 TAIL) :@A@IIIQ Hd_  h___Oo Oo g_&oO !HHOMOg;O4OO_2O0 oO0 1O4 ]dOOOdgVgn_@O@_BO@_DOBO_ $gO OB _FogOOBhohggggOFhogogOOBhohhhgOD hJggoOF _HhogogOOBhohhhgOFOHhhhO _O@dOBgO@hO _O@g'OJ_NOBOLhO_O>_>dgON _LgoO@ ONgO,ggOggOOgOOOOO$gO$ogOohhO(gO(ogOohhO&IggOhggoggoggO&hoohhhhh0*O"oO hhd+OVhgOVOVgO0.OV>dZgJgJdghJgJJgJh_XOZOX_\_ZO\q _ZOXgOVg01I$d[dKh_^O` O^h_bO^&_`ObgO04Od\gLh_dOf&Od_h_fOhh_POROPh_T _fOdOP&_ROTOA9OjOl _nOlgO On _pogOOnhohggggOphogogOOnhohhhggoOp _rhogogOOnhohhhgOpOrhhh _lOj_j.(2717Q \NCONC2 2615Q PACK* 2454Q PACK* 2432Q \APPEND2 2427Q \APPEND2 2424Q \APPEND2 2421Q \APPEND2 2416Q \APPEND2 2346Q LAST 2141Q LAST 1761Q PACK* 1477Q HELP 1431Q ERROR 1410Q \CMLSTRUCT.CLTYPE.TO.ILTYPE 1317Q \APPEND2 1261Q \APPEND2 1154Q PACK* 1127Q MEMB 775Q PACK* 664Q HELP 571Q ERROR 545Q SHOULDNT 542Q CONCAT 527Q HELP 507Q PACK* 230Q ERROR 215Q RECLOOK 133Q PACK* 111Q PACK* 75Q CONCAT) (2673Q DEFSETF 2640Q replace 2631Q QUOTE 2604Q QUOTE 2601Q PUTPROP 2546Q fetch 2537Q QUOTE 2523Q QUOTE 2520Q PUTPROP 2515Q EVAL@COMPILE 2512Q DECLARE: 2465Q fetch 2445Q DEFUN 2262Q _ 2243Q create 2161Q &KEY 2153Q DEFUN 2101Q _ 2072Q _ 2055Q &REST 2046Q &OPTIONAL 2040Q &KEY 2017Q create 2005Q DEFUN 1673Q FUNCTION 1670Q APPLY* 1661Q stream 1656Q COND 1647Q LAMBDA 1644Q FUNCTION 1634Q QUOTE 1631Q DEFPRINT 1603Q create 1572Q DEFUN 1544Q type? 1533Q DEFUN 1506Q LIST-CLASS 1473Q ARRAYRECORD 1466Q VECTOR 1460Q RECORD 1453Q TYPERECORD 1443Q LIST-CLASS 1416Q :READ-ONLY 1376Q :TYPE 1332Q POINTER 1301Q _ 1232Q DEFSETF 1177Q replace 1170Q QUOTE 1143Q QUOTE 1140Q PUTPROP 1122Q :READ-ONLY 1067Q fetch 1060Q QUOTE 1044Q QUOTE 1041Q PUTPROP 1036Q EVAL@COMPILE 1033Q DECLARE: 1006Q fetch 766Q DEFUN 721Q DATATYPE 710Q STRUCTURE 552Q :NAMED 516Q :INITIAL-OFFSET 471Q :TYPE 452Q :PREDICATE 433Q :PRINT-FUNCTION 414Q :COPIER 372Q :INCLUDE 344Q :CONC-NAME 322Q :CONSTRUCTOR 302Q :CLASS 160Q LIST-CLASS 117Q DEFAULT-STRUCTURE-PRINTER) ( 2653Q (obj value) 2635Q (obj value) 2626Q (QUOTE DMACRO) 2610Q "SETF-" 2561Q (obj) 2543Q (obj) 2534Q (QUOTE DMACRO) 2500Q (object) 2462Q (object) 1754Q "MAKE-" 1712Q ((QUOTE (""))) 1704Q (x stream 0) 1665Q (AND (EQ stream T) (SETQ stream (TTYDISPLAYSTREAM))) 1653Q (x stream) 1611Q (using obj) 1600Q (obj) 1552Q (obj) 1541Q (obj) 1424Q "Bad DEFSTRUCT slot " 1212Q (obj value) 1174Q (obj value) 1165Q (QUOTE DMACRO) 1147Q "SETF-" 1102Q (of obj) 1064Q (obj) 1055Q (QUOTE DMACRO) 1021Q (of object) 1003Q (object) 661Q "Can't fake includes yet" 564Q "DEFSTRUCT declaration error " 537Q "bad option" 524Q ":INITIAL-OFFSET unimplemented for DEFSTRUCT" 504Q "-CLASS" 361Q "" 223Q "Undefined structure in :INCLUDE " 126Q "COPY-" 106Q "-P" 72Q "-") DEFAULT-STRUCTURE-PRINTER D1 (P 4 DESCRIPTOR P 3 FIELD P 0 TYPE I 2 LEVEL I 1 STREAM I 0 STRUC F 5 \CML.READPREFIX) m@ UA gA oA HA H H "JI oA oA KA oA L@ A JI(142Q PRIN2 136Q FETCHFIELD 130Q PRIN1 117Q PRIN2 111Q PRIN1 76Q PRIN1 47Q RECORDFIELDNAMES 43Q GETDESCRIPTORS 37Q PRIN2 32Q PRIN1 22Q PRIN1 13Q PRIN1 3 TYPENAME) (16Q S) ( 124Q " " 105Q " " 72Q ")" 26Q "(") \CMLSTRUCT.CLTYPE.TO.ILTYPE D1 (P 4 RANGE P 3 HIGH P 2 LOW P 0 MOD# I 0 ELEMENTTYPE F 5 BITSPERWORD) C@g@diggg@dgdgodgg@dggg=@d8d3 1dk*HdkU gHk hog@g4@d/d3 (dj!IdUgIhlNg@g[@dUd3 Nd3 Fd@;!@[JټJjjgLkh oJKog@o@o@ (500Q ERROR 463Q USERDATATYPES 414Q \CMLSTRUCT.CLTYPE.TO.ILTYPE 171Q INTEGERLENGTH 155Q LLSH) (444Q FIXP 403Q MOD 311Q INTEGER 302Q FIXP 263Q BITS 216Q UNSIGNED-BYTE 207Q FIXP 163Q BITS 112Q MOD 104Q FLOATP 77Q FLOAT 70Q SINGLE-FLOAT 60Q XPOINTER 45Q BIT 34Q INTEGER 26Q SIGNEDWORD 21Q FIXNUM 15Q POINTER 3 STRING-CHAR) ( 474Q "Bad type specifier" 452Q (SIMPLE-VECTOR CL:* FIXNUM) 434Q 17777777777Q 421Q -20000000000Q 201Q 17777777777Q 53Q (BITS 1)) (PRETTYCOMPRINT CMLSTRUCTCOMS) (RPAQQ CMLSTRUCTCOMS ((FNS DEFSTRUCT.TRANSLATE DEFAULT-STRUCTURE-PRINTER \CMLSTRUCT.CLTYPE.TO.ILTYPE) (PROP (USERRECORDTYPE) DEFSTRUCT) (P (MOVD (QUOTE RECORD) (QUOTE DEFSTRUCT)) (ADDTOVAR CLISPRECORDTYPES DEFSTRUCT)))) (PUTPROPS DEFSTRUCT USERRECORDTYPE (LAMBDA (L) (LET ((DE (DEFSTRUCT.TRANSLATE (CDR L)))) (RESETVARS (( FILEPKGFLG)) (MAPC (CDR DE) (QUOTE EVAL))) (CAR DE)))) (MOVD (QUOTE RECORD) (QUOTE DEFSTRUCT)) (ADDTOVAR CLISPRECORDTYPES DEFSTRUCT) (PUTPROPS CMLSTRUCT COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL