(FILECREATED " 5-Sep-85 02:58:06" ("compiled on " {ERIS}LIBRARY>CMLSTRUCT.;7) " 4-Sep-85 23:17:56" recompiled changes: DEFSTRUCT.TRANSLATE in "INTERLISP-D 5-Sep-85 ..." dated " 5-Sep-85 00:00:10") (FILECREATED " 5-Sep-85 02:57:36" {ERIS}LIBRARY>CMLSTRUCT.;7 5620 changes to: (FNS DEFSTRUCT.TRANSLATE) previous date: "15-Aug-85 17:44:32" {ERIS}LIBRARY>CMLSTRUCT.;6) DEFSTRUCT.TRANSLATE D1 (P 51Q setfconc P 50Q conc P 47Q slot P 33Q constructor P 27Q x P 23Q option P 22Q NAMED P 21Q named P 20Q copier P 17Q print-function P 16Q predicate P 15Q constructors P 14Q conc-name P 13Q slotnames P 12Q initialization P 11Q includes P 10Q name P 7 class P 6 doc P 2 options P 1 slotdescrs P 0 name&options I 0 TAIL) *@Q@YIIQ Hd_h___Oo  Oo g_oO !H"Oo OOdggZdO&ddgO&_|dgO&O_kdgO&_\dgO&O_JdgO&_ ;dgO&_,gO&_O&o _ gi_$c;gO$ggO0I.dO.ddO._(O* O(h_,O(&_*O,_O OgOogOohhO gO ogOohhODggOhggoggggOhoohhhhh0OoO hhdO6EgO6O6gO0Od[gKh_8O:O8_<_:O<t _:O8gO6g0!I$d\dLh_>O@ O>h_BO>&_@OB gO0$Od]gMh_DOF)OD_H_FOH h_0O2O0h_4 _FODO0&_2O4OA)OJOL _NOLgOON _PogOONhohggggOPhogogOONhohhhggoOP _RhogogOONhohhhgOPORhhh _LOJ_J.(1712Q \NCONC2 1610Q PACK* 1447Q PACK* 1425Q \APPEND2 1422Q \APPEND2 1417Q \APPEND2 1414Q \APPEND2 1411Q \APPEND2 1341Q LAST 1310Q \APPEND2 1227Q \APPEND2 1126Q LAST 1011Q PACK* 556Q \APPEND2 507Q HELP 455Q HELP 416Q HELP 401Q :TYPE 374Q PACK* 134Q HELP 113Q PACK* 71Q PACK* 55Q CONCAT) (1666Q DEFSETF 1633Q replace 1624Q QUOTE 1577Q QUOTE 1574Q PUTPROP 1541Q fetch 1532Q QUOTE 1516Q QUOTE 1513Q PUTPROP 1510Q EVAL@COMPILE 1505Q DECLARE: 1460Q fetch 1440Q DEFUN 1252Q _ 1233Q create 1146Q &KEY 1140Q DEFUN 1066Q _ 1047Q create 1035Q DEFUN 724Q FUNCTION 721Q APPLY* 716Q stream 713Q COND 704Q LAMBDA 701Q FUNCTION 671Q QUOTE 666Q DEFPRINT 640Q create 627Q DEFUN 601Q type? 570Q DEFUN 451Q RECORD 445Q TYPERECORD 435Q LIST-CLASS 405Q :NAMED 347Q :PREDICATE 331Q :PRINT-FUNCTION 312Q :COPIER 270Q :INCLUDE 251Q :CONC-NAME 230Q :CONSTRUCTOR 211Q :CLASS 157Q DATATYPE 146Q STRUCTURE 77Q DEFAULT-STRUCTURE-PRINTER) ( 1646Q (obj value) 1630Q (obj value) 1621Q (QUOTE DMACRO) 1603Q "SETF-" 1554Q (obj) 1536Q (obj) 1527Q (QUOTE DMACRO) 1473Q (object) 1455Q (object) 1004Q "MAKE-" 743Q ((QUOTE (""))) 735Q (x stream 0) 710Q (x stream) 646Q (using obj) 635Q (obj) 607Q (obj) 576Q (obj) 371Q "-CLASS" 131Q "Can't fake includes yet" 106Q "COPY-" 66Q "-P" 52Q "-") DEFAULT-STRUCTURE-PRINTER D1 (L (2 LEVEL 1 STREAM 0 STRUC) F 5 \CML.READPREFIX) d@ U g o H H H "JI o o K o L@ JI(131Q PRIN1 126Q FETCHFIELD 120Q PRIN1 110Q PRIN1 103Q PRIN1 71Q PRIN1 43Q RECORDFIELDNAMES 37Q GETDESCRIPTORS 33Q PRIN1 27Q PRIN1 20Q PRIN1 12Q PRIN1 3 TYPENAME) (15Q S) ( 115Q " " 100Q " " 66Q ")" 24Q "(") (PRETTYCOMPRINT CMLSTRUCTCOMS) (RPAQQ CMLSTRUCTCOMS ((FNS DEFSTRUCT.TRANSLATE DEFAULT-STRUCTURE-PRINTER) (PROP (USERRECORDTYPE MACRO) 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)))) (PUTPROPS DEFSTRUCT MACRO (DEFMACRO (&REST tail) (DEFSTRUCT.TRANSLATE tail))) (MOVD (QUOTE RECORD) (QUOTE DEFSTRUCT)) (ADDTOVAR CLISPRECORDTYPES DEFSTRUCT) (PUTPROPS CMLSTRUCT COPYRIGHT ("Xerox Corporation" 1985)) NIL