(FILECREATED "15-Jan-86 16:22:54" ("compiled on " {ERIS}LIBRARY>CMLSTRUCT.;16) "12-Nov-85 14:59:23" recompiled changes: DEFSTRUCT.TRANSLATE \CMLSTRUCT.CLTYPE.TO.ILTYPE in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED "15-Jan-86 16:20:29" {ERIS}LIBRARY>CMLSTRUCT.;16 11776 changes to: (FNS \CMLSTRUCT.CLTYPE.TO.ILTYPE DEFSTRUCT.TRANSLATE) previous date: "10-Jan-86 02:43:22" {ERIS}LIBRARY>CMLSTRUCT.;14) DEFSTRUCT.TRANSLATE D1 (P 46Q option P 45Q type P 43Q setfconc P 42Q conc P 41Q option P 35Q options P 34Q slotname P 33Q x P 31Q includedescr P 30Q slotname P 27Q x P 25Q includeslotdescrs P 24Q includename P 23Q named P 22Q copier P 21Q print-function P 20Q predicate P 17Q constructor P 16Q conc-name P 15Q type P 14Q includes P 13Q initialization P 12Q slotfns P 11Q slotnames P 10Q slots P 7 name P 6 doc P 5 options P 1 slotdescrs P 0 name&options I 0 TAIL) ±0@A@¹I´II¹a Hd_¿h_____¿Oo Oo g_"¿oO HµcO²?Ogð©oO ¿OO_*¿O( µoO( 1O,µ‚±ØI1O4µ‚±ñOgð¢±V0 O±E]±§d!OBd¢±†dgð˜¿OB_±ˆdgð˜¿OB_°xdgð—¿OB_°jdgð˜¿OB_$°[dgð˜¿OB_"°Ldgð˜¿OB_ °=dgðŸ¿OBµOB_°'gð˜o °oŒgð“i_&ˆoOB µ‚±ÿX±þï_.µO._0O*µ O0d¢O*_2µO.I¹O,_,±þÿ_6µO6_8¿O6_:¿O8O_¿ #gOO8 _DogOO8hohggggODhogogOO8hohhhgO: ’h°JggoOD _FhogogOO8hohhhgODOFhh hO _¿O6d²¿O8gO6hO _¿O6g&OH_LµO8OJhO_O4_4±ýædgðš¿OL _Jgð©oO6 ¿OL°Ád_<¿O>µ O¿µçO@_¿OoO h_¿Oµg°(gðœO&”g°g°Ogð“gˆoO OOO OO ´gO ogOohhO$´gO$ogOohhO"´DggOhggoggggO"hoohhhhhO²EgOOgO0)O°dZgJh_NšOPµON_R_P¿µäOR°t _PON°îgOg0,I°$d[d–Kh_T¿OVµ OTh_X‚OT&_V¿µÝOX gO0/O°d\gLh_ZšO\µ*OZ_^_\¿µäO^ hh _\OZ°Ö(2250Q LAST 2243Q \APPEND2 2240Q \APPEND2 2235Q \APPEND2 2232Q \APPEND2 2216Q \APPEND2 2135Q \APPEND2 2034Q LAST 1522Q \APPEND2 1511Q ERROR 1425Q PACK* 1341Q ERROR 1320Q \CMLSTRUCT.CLTYPE.TO.ILTYPE 1227Q \APPEND2 1171Q \APPEND2 1155Q \APPEND2 1061Q PACK* 1034Q MEMB 702Q PACK* 545Q ERROR 514Q HELP 216Q ERROR 203Q RECLOOK 161Q ERROR 126Q PACK* 104Q PACK* 70Q CONCAT) (2160Q _ 2141Q create 2054Q &KEY 2046Q DEFUN 1774Q _ 1755Q create 1743Q DEFUN 1672Q FUNCTION 1667Q APPLY* 1664Q stream 1661Q COND 1652Q LAMBDA 1647Q FUNCTION 1637Q QUOTE 1634Q DEFPRINT 1606Q create 1575Q DEFUN 1547Q type? 1536Q DEFUN 1477Q ARRAYRECORD 1472Q VECTOR 1463Q RECORD 1456Q TYPERECORD 1446Q LIST 1441Q DATATYPE 1326Q :READ-ONLY 1306Q :TYPE 1242Q POINTER 1211Q _ 1137Q DEFSETF 1104Q replace 1075Q QUOTE 1050Q QUOTE 1045Q PUTPROP 1027Q :READ-ONLY 774Q fetch 765Q QUOTE 751Q QUOTE 746Q PUTPROP 743Q EVAL@COMPILE 740Q DECLARE: 713Q fetch 673Q DEFUN 526Q :NAMED 503Q :INITIAL-OFFSET 456Q :TYPE 437Q :PREDICATE 420Q :PRINT-FUNCTION 401Q :COPIER 363Q :INCLUDE 344Q :CONC-NAME 325Q :CONSTRUCTOR 261Q LIST 146Q LIST 112Q DEFAULT-STRUCTURE-PRINTER) ( 1711Q ((QUOTE (""))) 1703Q (x stream 0) 1656Q (x stream) 1614Q (using obj) 1603Q (obj) 1555Q (obj) 1544Q (obj) 1504Q "Unknown DEFSTRUCT :TYPE option " 1420Q "MAKE-" 1334Q "Bad DEFSTRUCT slot " 1117Q (obj value) 1101Q (obj value) 1072Q (QUOTE DMACRO) 1054Q "SETF-" 1007Q (of obj) 771Q (obj) 762Q (QUOTE DMACRO) 726Q (of object) 710Q (object) 540Q "DEFSTRUCT declaration error " 522Q "Unknown DEFSTRUCT option: " 511Q ":INITIAL-OFFSET unimplemented for DEFSTRUCT" 211Q "Undefined structure in :INCLUDE " 154Q ":INCLUDE only implemented for :TYPE LIST, given " 121Q "COPY-" 101Q "-P" 65Q "-") DEFAULT-STRUCTURE-PRINTER D1 (L (2 LEVEL 1 STREAM 0 STRUC) F 5 \CML.READPREFIX) m@ UA gA oA HA H H "Jµ…»IµoA ¼oA ¿KA ¿oA ¿L@ A ¿JºI¹°Á(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) 9@gð¤@dið“ggð“g@dgð’±dgð”odgð’±gð¦@dgð“ggð²<@d³7d3 ²0dkñ²)Hdoñ¿gHkÙ hoñ³‰g@gð²5@d³0d3 ²)djñ²"Idlñ¨¿gIhlñ’±ÿNg@gð²[@d³Ud3 ²Nd3 ²Fd@ýñ²;!@[JÙ¼JjØjðœgLkØh oJñ’±þöKoñ’±þìg@’±þßo@ (466Q ERROR 451Q USERDATATYPES 414Q \CMLSTRUCT.CLTYPE.TO.ILTYPE 170Q INTEGERLENGTH) (444Q FIXP 403Q MOD 311Q INTEGER 302Q FIXP 263Q BITS 215Q UNSIGNED-BYTE 206Q FIXP 162Q 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) ( 462Q "Bad type specifier" 434Q 17777777777Q 421Q -20000000000Q 200Q 17777777777Q 154Q 200000Q 53Q (BITS 1)) (PRETTYCOMPRINT CMLSTRUCTCOMS) (RPAQQ CMLSTRUCTCOMS ((FNS DEFSTRUCT.TRANSLATE DEFAULT-STRUCTURE-PRINTER \CMLSTRUCT.CLTYPE.TO.ILTYPE) (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 1986)) NIL