(FILECREATED " 7-Oct-86 23:03:01" ("compiled on " {ERIS}SOURCES>CMLSTRUCT.;7) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 7-Oct-86 23:02:32" {ERIS}SOURCES>CMLSTRUCT.;7 22968 changes to: (FUNCTIONS DEFSTRUCT) (DEFINE-TYPES STRUCTURES) previous date: "19-Sep-86 18:42:44" {ERIS}SOURCES>CMLSTRUCT.;6) (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) (FNS INCLUDED-STRUCTURE) ( FUNCTIONS DEFSTRUCT) (PROP FILETYPE CMLSTRUCT) (OPTIMIZERS STRUCTURE-CONSTRUCTOR) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CREATE-STRUCTURE STRUCTURE-CONSTRUCTOR SUBSTITUTE-SLOTS SLOT-LIST LOCAL-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 (P 10Q DESCRIPTOR P 7 FIELD P 4 *PRINT-LEVEL* P 0 TYPE I 1 STREAM I 0 STRUC 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 (P 4 RANGE P 3 HIGH P 2 LOW P 0 MOD# I 0 ELEMENTTYPE) Y@gð¤@dið“ggð“g@dgð’±dgð”odgð’±$gð¦@dgð“ggð²C@d³>d3 ²7dkñ²0Hoñ‘h€iœgHkÙ hHoñ‘h€i²‚g@gð²<@d³7d3 ²0djñ²)Ilñ‘h€i—gIhIlñ‘h€i¢±ÿ@g@gð²c@d³]d3 ²Vd3 ²Nd@ýñ²C!@[JÙ¼JjØjðœgLkØh oJñ‘h€i¢±þäKoñ‘h€i¢±þÖg@oô’±þÈ@’±þ¿o@ (526Q ERROR 511Q USERDATATYPES 432Q \CMLSTRUCT.CLTYPE.TO.ILTYPE 172Q INTEGERLENGTH) (472Q FIXP 421Q MOD 327Q INTEGER 320Q FIXP 274Q BITS 224Q UNSIGNED-BYTE 215Q FIXP 164Q 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) ( 522Q "Bad type specifier" 500Q (SIMPLE-VECTOR CL:* FIXNUM) 456Q 17777777777Q 437Q -20000000000Q 203Q 17777777777Q 153Q 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`A°3d½@[µ M¸I²h°¼MdLdð’LµêK°ái”HhZ‚IH&¹µÎJNIL NIL () STRUCTURE-CONSTRUCTOR D1 (L (0 STRUCTURE-NAME)) @ÁÉg'NIL (7 STRUCTURE-CONSTRUCTOR) () CREATE-STRUCTURE D1 (L (0 STRUCTURE-FORM)) 8@g @@°d[ KhX–IµHZY¿µçJ YH°î(61Q LAST 55Q APPLY 23Q MAKE-KEYWORD 7 GETPROP) (4 STRUCTURE-CONSTRUCTOR) () CONSTRUCTOR-DEFUN D1 (P 4 KEYS I 2 NAME I 1 SLOT-DESCRIPTIONS I 0 X) v@A° d[d–Kh¸I‘h€i”HhZ‚IH&¹µáJg@L´gLgB0A° d]dgMdhX–IµHZY¿µáJh YH°ë(157Q LAST) (113Q _ 72Q create 65Q &KEY 56Q DEFUN) () (ADDTOVAR PRETTYDEFMACROS (STRUCTURES X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF ( GETDEF ITEM (QUOTE STRUCTURES)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE STRUCTURES) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDSTRUCTURESLST STRUCTURES "Common Lisp baby structures")) (COND ((NOT (CL:GETHASH (QUOTE STRUCTURES) *DEFINITION-HASH-TABLE*)) (CL:PUTHASH (QUOTE STRUCTURES) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50)))) (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 (P 7 INCLUDED P 5 INCLUDED-STRUCTURE-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) Q@@°d»¸I‘h€i”HhZ‚IH&¹µèJ!@L½L@OhM¾gNoOhM (116Q VALUES 54Q GENSYM 13Q GENSYM) (75Q PUT) ( 102Q (QUOTE %%%%INCLUDED-STRUCTURE)) (PUTPROPS INCLUDED-STRUCTURE SETF-METHOD-EXPANDER INCLUDED-STRUCTURE-setf-expander) INCLUDED-STRUCTURE D1 (I 0 STRUCT) @ÁÉg'NIL (7 %%%%INCLUDED-STRUCTURE) () expand-DEFSTRUCT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) F 62Q USERRECLST) Ü2@ ñ€@¹HºH»ggJ´JJº_.¿K´KK»gJo Jo goJ ¦'O.±´d]d¢±˜\dgð˜¿M_<±˜gð™MOH_H±‰Ldgð¿Mµo_4°sgð™OF³kM_F°dLdgð—¿M_:°Ugð–M_8°ILdgð—¿M_6°:gðMo _<°'Lgð˜o °oŒgð“i_N‡oM ¿µ‚±ÿKO<‘h€i”O2_<¿KŒddOB_B¿µò0*OB° dJ_P¿OR‘h€i–OPh_T„OROP&_R¿µáOT_J¿OFµ K ±Õ__¿O_¿Og ‘h€i™oO ¿OÁÉg'O<ð«oOFO<¿gOO K»O _>¿µ‚±ÿ7OO