(FILECREATED " 6-Jul-86 21:44:38" ("compiled on " {ERIS}CML>LAB>CMLSTRUCT.;8) "30-Jun-86 12:06:27" "COMPILE-FILEd" in "Xerox Lisp 30-Jun-86 ..." dated "30-Jun-86 13:37:08") (FILECREATED " 6-Jul-86 21:44:19" {ERIS}CML>LAB>CMLSTRUCT.;8 23555 changes to: (FNS CONSTRUCTOR-DEFUN LOCAL-SLOT-LIST) (FUNCTIONS DEFSTRUCT) (VARS CMLSTRUCTCOMS) previous date: "17-Jun-86 16:03:53" {ERIS}CML>LAB>CMLSTRUCT.;7) (RPAQQ CMLSTRUCTCOMS ((* * this is the baby defstruct used to bootstrap PCL) (FUNCTIONS SLOT-NAME) ( FNS DEFAULT-STRUCTURE-PRINTER LOCAL-SLOT-LIST \DEFPRINT.DEFSTRUCT.DEFAULT \CMLSTRUCT.CLTYPE.TO.ILTYPE SLOT-LIST SUBSTITUTE-SLOTS STRUCTURE-CONSTRUCTOR CREATE-STRUCTURE CONSTRUCTOR-DEFUN) (DEFINE-TYPES STRUCTURES) (SETFS INCLUDED-STRUCTURE) (FUNCTIONS DEFSTRUCT) (PROP FILETYPE CMLSTRUCT) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CREATE-STRUCTURE STRUCTURE-CONSTRUCTOR SUBSTITUTE-SLOTS SLOT-LIST DEFAULT-STRUCTURE-PRINTER))))) expand-SLOT-NAME D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ggHhHgHhhNIL (23Q CAR 13Q CL:ATOM 10Q CL:IF) () (SETF-MACRO-FUNCTION (QUOTE SLOT-NAME) (QUOTE expand-SLOT-NAME)) DEFAULT-STRUCTURE-PRINTER D1 (L (2 LEVEL 1 STREAM 0 STRUC)) @A (4 \DEFPRINT.DEFSTRUCT.DEFAULT) NIL () LOCAL-SLOT-LIST D1 (L (0 NAME)) @ÁÉg' (13Q COPY) (7 %%LOCAL-SLOT-NAMES) () \DEFPRINT.DEFSTRUCT.DEFAULT D1 (L (1 STREAM 0 STRUC) P 4 *PRINT-LEVEL* F 11Q *READTABLE* F 12Q *PRINT-LEVEL*) Ž @ 1AWÊ»ZÉ ¹JKlI¿oA HA Wd‘kÙH H "Nµ‡_¿MµoA i_¿oA ¿OdA ¿oA ¿O@ A ¿N¾M½°µ(203Q PRIN2 177Q FETCHFIELD 170Q PRIN1 157Q PRIN2 144Q PRIN1 126Q PRIN1 74Q SLOT-LIST 70Q GETDESCRIPTORS 53Q PRIN2 46Q PRIN3 3 TYPENAME) (24Q STREAM 14Q READTABLEP) ( 164Q " " 140Q " " 122Q ")" 42Q "S(") \CMLSTRUCT.CLTYPE.TO.ILTYPE D1 (L (0 ELEMENTTYPE)) E@gð¤@dið“ggð“g@dgð’±dgð”odgð’±gð¦@dgð“ggð²<@d³7d3 ²0dkñ²)Hdoñ¿gHkÙ hoñ³‰g@gð²5@d³0d3 ²)djñ²"Hdlñ¨¿gHhlñ’±ÿNg@gð²]@d³Wd3 ²Pd3 ²Hd@ýñ²=!@ZHÙ¹HjØjðžgIkØhb±þóoHñ’±þôJoñ’±þêg@oô’±þÜ@’±þÓo@ (502Q ERROR 465Q USERDATATYPES 170Q INTEGERLENGTH) (446Q 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) ( 476Q "Bad type specifier" 454Q (SIMPLE-VECTOR CL:* FIXNUM) 436Q 17777777777Q 423Q -20000000000Q 200Q 17777777777Q 154Q 200000Q 53Q (BITS 1)) SLOT-LIST D1 (L (0 NAME)) @ÁÉg' (13Q COPY) (7 %%SLOT-DESCRIPTIONS) () SUBSTITUTE-SLOTS D1 (L (1 OLDSLOTS 0 NEWSLOTS)) <@¡A`A°.d½@[µ M¸IµHhZ°¼MdLdð’LµçK°ÞH&¹µÓJNIL NIL () STRUCTURE-CONSTRUCTOR D1 (L (0 STRUCTURE-NAME)) @ÁÉg'NIL (7 STRUCTURE-CONSTRUCTOR) () CREATE-STRUCTURE D1 (L (0 STRUCTURE-FORM)) 5@ @@°d[ KhX–IµHZY¿µçJ YH°î(56Q LAST 52Q APPLY 20Q MAKE-KEYWORD 4 STRUCTURE-CONSTRUCTOR) NIL () CONSTRUCTOR-DEFUN D1 (L (2 NAME 1 SLOT-DESCRIPTIONS 0 X)) r@A°d[d–Kh¸IµHhZH&¹µåJg@H´gHgB0A° dYdgIdhZ–KµJ\[¿µáLh [J°ë(153Q LAST) (107Q _ 66Q create 61Q &KEY 52Q DEFUN) () (ADDTOVAR PRETTYDEFMACROS (STRUCTURES X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF ( GET ITEM (QUOTE STRUCTURES)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" ( QUOTE STRUCTURES) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDSTRUCTURESLST STRUCTURES "Common Lisp structures")) (ADDTOVAR FILEPKGTYPES STRUCTURES) (PUTPROPS STRUCTURES GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS STRUCTURES FILEPKGCONTENTS NILL) (PUTPROPS STRUCTURES PROPTYPE STRUCTURES) (REMPROP (QUOTE INCLUDED-STRUCTURE) (QUOTE SETF-INVERSE)) INCLUDED-STRUCTURE-setf-expander D1 (L (0 ACCESS-FORM)) E0@Ž¸IµHhZH&¹µïJ1@H¹ºH@JhI»gKoJhI (102Q VALUES 44Q GENSYM 7 GENSYM) (62Q PUT) ( 67Q (QUOTE %%%%INCLUDED-STRUCTURE)) (PUTPROPS INCLUDED-STRUCTURE SETF-METHOD-EXPANDER INCLUDED-STRUCTURE-setf-expander) expand-DEFSTRUCT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) _>¿µ‚±ÿ9gO>O