(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED " 4-Nov-93 11:57:51" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>DEFSTRUCT-RUN-TIME.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42") (IL:FILECREATED "18-Oct-93 15:27:40" "{Pele:mv:envos}Sources>CLTL2>DEFSTRUCT-RUN-TIME.;2" 15658 IL:|previous| IL:|date:| "29-Aug-91 17:01:45" "{Pele:mv:envos}Sources>CLTL2>DEFSTRUCT-RUN-TIME.;1") (IL:RPAQQ IL:DEFSTRUCT-RUN-TIMECOMS ((IL:COMS (IL:* IL:|;;| "Remembering parsed structures") ( IL:VARIABLES *PARSED-DEFSTRUCTS*) (IL:FUNCTIONS PARSED-STRUCTURE SET-PARSED-STRUCTURE) (IL:SETFS PARSED-STRUCTURE)) (IL:COMS (IL:* IL:|;;| "Declaring storage for structures") (IL:FUNCTIONS SI::%STRUCTURE-DECLARE-DATATYPE) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:* IL:|;;| "This defines the root of the defstruct type hierarchy.") (IL:P (IL:\\ASSIGNDATATYPE1 (QUOTE STRUCTURE-OBJECT) NIL 0)))) (IL:COMS (IL:* IL:|;;| "Support for setf expansions etc") (IL:VARIABLES *DEFSTRUCT-INFO-CACHE*) (IL:FUNCTIONS ESTABLISH-SETFS-AND-OPTIMIZERS ESTABLISH-PREDICATE) (IL:FUNCTIONS GET-PS-FROM-ACCESSOR GET-PS-FROM-PREDICATE GET-SLOT-DESCRIPTOR-FROM-PS) (IL:FUNCTIONS CACHE-SETF-INFO )) (IL:COMS (IL:* IL:|;;| "defstruct IO") (IL:VARIABLES XCL:*PRINT-STRUCTURE*) (IL:FUNCTIONS PRINT-STRUCTURE-INSTANCE DEFAULT-STRUCTURE-PRINTER STRUCTURE-SLOT-NAMES) (IL:* IL:|;;| "For reading") (IL:FUNCTIONS IL:CREATE-STRUCTURE STRUCTURE-CONSTRUCTOR)) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT ) IL:DEFSTRUCT-RUN-TIME) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) (IL:NLAML) (IL:LAMA))))) (PROCLAIM (QUOTE (SPECIAL *PARSED-DEFSTRUCTS*))) (OR (BOUNDP (QUOTE *PARSED-DEFSTRUCTS*)) (SETQ *PARSED-DEFSTRUCTS* (IL:HASHARRAY 100))) |expand-PARSED-STRUCTURE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) D@HH(ggIogoIhhgIoNIL (57 IL:GETHASH 34 ERROR 21 IL:GETHASH 16 OR) ( 63 (*PARSED-DEFSTRUCTS*) 39 "~s is not a defined structure" 27 (*PARSED-DEFSTRUCTS*)) (IL:SETF-MACRO-FUNCTION (QUOTE PARSED-STRUCTURE) (QUOTE |expand-PARSED-STRUCTURE|)) SET-PARSED-STRUCTURE :D8 (IL:L (0 IL:|-args-|) IL:F 5 *PARSED-DEFSTRUCTS*) (eka1lalHhilaKLIJU (37 IL:PUTHASH) NIL () (SET-SETF-INVERSE (QUOTE PARSED-STRUCTURE) (QUOTE SET-PARSED-STRUCTURE)) SI::%STRUCTURE-DECLARE-DATATYPE :D8 (IL:L (4 SUPERTYPE 3 WORD-LENGTH 2 FIELD-DESCRIPTORS 1 FIELD-SPECIFICATIONS 0 NAME)) @d3@CjCo@C BQH2K1@BCAHD  YI@i J BK$]\gLgMhJI[IHX I(129 LAST 75 IL:SETTOPVAL 69 IL:\\TYPEGLOBALVARIABLE 55 IL:\\MVLIST 50 IL:\\ASSIGNDATATYPE1 25 ERROR) (100 IL:FULLPOINTER 92 IL:POINTER) ( 18 "Illegal arguments: ~s ~s") (IL:\\ASSIGNDATATYPE1 (QUOTE STRUCTURE-OBJECT) NIL 0) (PROCLAIM (QUOTE (SPECIAL *DEFSTRUCT-INFO-CACHE*))) (OR (BOUNDP (QUOTE *DEFSTRUCT-INFO-CACHE*)) (SETQ *DEFSTRUCT-INFO-CACHE* (IL:HASHARRAY 100))) ESTABLISH-SETFS-AND-OPTIMIZERS :D8 (IL:L (0 PS-NAME) IL:F 6 *PARSED-DEFSTRUCTS* IL:F 7 *DEFSTRUCT-INFO-CACHE*) @V o@ QlH lH Z[J]\KW MLg IgLg gILggh Lg (149 REMPROP 135 IL:PUTPROP 105 IL:SETF-MACRO-FUNCTION 85 SET-SHARED-SETF-INVERSE 67 REMHASH 39 NTH 30 NTH 19 ERROR 6 IL:GETHASH) (144 COMPILER:OPTIMIZER-LIST 128 DEFSTRUCT-SHARED-ACCESSOR-OPTIMIZER 123 COMPILER:OPTIMIZER-LIST 113 :ACCESSOR 100 DEFSTRUCT-SHARED-ACCESSOR-OPTIMIZER 92 :ONLY 80 DEFSTRUCT-SHARED-SETF-EXPANDER) ( 13 "~s is not a defined structure") ESTABLISH-PREDICATE :D8 (IL:L (0 PS-NAME) IL:F 2 *PARSED-DEFSTRUCTS* IL:F 3 *DEFSTRUCT-INFO-CACHE*) X@R o@ HYS lH gIg Iggh (85 IL:PUTPROP 66 IL:SETF-MACRO-FUNCTION 48 NTH 40 REMHASH 19 ERROR 6 IL:GETHASH) (78 DEFSTRUCT-SHARED-PREDICATE-OPTIMIZER 73 COMPILER:OPTIMIZER-LIST 61 DEFSTRUCT-SHARED-PREDICATE-OPTIMIZER 53 :ONLY) ( 13 "~s is not a defined structure") GET-PS-FROM-ACCESSORA0001A0002 :D8 (IL:L (1 VALUE 0 KEY) IL:F 2 ACCESSOR) -lA HdRIgA HX(37 SI::INTERNAL-THROW 7 NTH) (31 FIND-PS) () GET-PS-FROM-ACCESSORA0001 :D8 (IL:P 1 SI::*CATCH-RETURN-FROM* IL:P 0 SI::*DUMMY-FOR-CATCH* IL:F 2 *PARSED-DEFSTRUCTS*) i@gR (15 MAPHASH) (9 GET-PS-FROM-ACCESSORA0001A0002) () GET-PS-FROM-ACCESSOR :D8 (IL:L (1 NO-ERROR-P) IL:I 0 ACCESSOR) g Ao@ h(24 ERROR 9 GET-PS-FROM-ACCESSORA0001) (4 FIND-PS) ( 18 "No such slot: ~s") GET-PS-FROM-PREDICATEA0001A0002 :D8 (IL:L (1 VALUE 0 KEY) IL:F 0 PREDICATE) PA gA (25 SI::INTERNAL-THROW) (19 FIND-PS) () GET-PS-FROM-PREDICATEA0001 :D8 (IL:P 1 SI::*CATCH-RETURN-FROM* IL:P 0 SI::*DUMMY-FOR-CATCH* IL:F 2 *PARSED-DEFSTRUCTS*) i@gR (15 MAPHASH) (9 GET-PS-FROM-PREDICATEA0001A0002) () GET-PS-FROM-PREDICATE :D8 (IL:L (1 NO-ERROR-P) IL:I 0 PREDICATE) g Ao@ h(24 ERROR 9 GET-PS-FROM-PREDICATEA0001) (4 FIND-PS) ( 18 "No such predicate: ~s") GET-SLOT-DESCRIPTOR-FROM-PS :D8 (IL:L (2 NO-ERROR-P 1 PS 0 ACCESSOR)) 6lA Hd@IIBo@ HXh(44 ERROR 7 NTH) NIL ( 38 "No such slot: ~s") CACHE-SETF-INFO :D8 (IL:L (0 PS-NAME) IL:F 5 *PARSED-DEFSTRUCTS* IL:F 6 *DEFSTRUCT-INFO-CACHE*) Q@U o@ AlH YZI\[JV LKg (76 SET-SHARED-SETF-INVERSE 57 REMHASH 30 NTH 19 ERROR 6 IL:GETHASH) (71 DEFSTRUCT-SHARED-SETF-EXPANDER) ( 13 "~s is not a defined structure") (PROCLAIM (QUOTE (SPECIAL XCL:*PRINT-STRUCTURE*))) (OR (BOUNDP (QUOTE XCL:*PRINT-STRUCTURE*)) (SETQ XCL:*PRINT-STRUCTURE* T)) (IL:SET-DOCUMENTATION (QUOTE XCL:*PRINT-STRUCTURE*) (QUOTE VARIABLE) "Flag indicating whether the contents of structures are to be printed.") PRINT-STRUCTURE-INSTANCE :D8 (IL:L (2 DEPTH 1 STREAM 0 OBJECT) IL:F 4 IL:*PRINT-CIRCLE-HASHTABLE* IL:F 5 *PARSED-DEFSTRUCTS* IL:F 6 %DEFAULT-PRINT-FUNCTION) bi1T@ ZJIIA IH9@ U o@ V@ABjlKi(69 ERROR 64 TYPE-OF 51 IL:GETHASH 45 TYPE-OF 33 IL:PRIN3 17 IL:\\MVLIST 12 IL:PRINT-CIRCLE-LOOKUP) NIL ( 58 "~s is not a defined structure") DEFAULT-STRUCTURE-PRINTER :D8 (IL:L (0 IL:|-args-|) IL:P 13 *PRINT-LEVEL* IL:F 14 *PRINT-LENGTH* IL:F 15 XCL:*PRINT-STRUCTURE* IL:F 16 *PRINT-LEVEL* IL:F 17 *PRINT-ESCAPE* IL:F 18 *READTABLE*) Eeka lalHjlaWIJj W dk OOKWddjJ jI __JW$](MNlLoJ OW"OJ k_WOJ O O __{gOJ(_Jl lOOIOJ O1J(_Jl lOOI JKk OOk_Wʈk_WJi oJ i(321 WRITE-STRING 309 IL:\\ELIDE.PRINT.TAIL 274 IL:\\PRINDATUM 265 IL:FETCHFIELD 231 PRINC 180 IL:GETDESCRIPTORS 173 STRUCTURE-SLOT-NAMES 165 PRINC 143 PRIN1 126 WRITE-STRING 81 IL:TYPENAME 68 IL:\\ELIDE.PRINT.ELEMENT 34 IL:\\PRINT-USING-ADDRESS) (242 STREAM 204 STREAM 195 SI::--STRUCTURE-DUMMY-SLOT-- 105 STREAM 95 READTABLEP) ( 315 ")" 120 "S(") STRUCTURE-SLOT-NAMES :D8 (IL:L (1 DONT-COPY 0 STRUCTURE-NAME) IL:F 2 *PARSED-DEFSTRUCTS*) (@R o@ HYAI (37 COPY-LIST 19 ERROR 6 IL:GETHASH) NIL ( 13 "~s is not a defined structure") IL:CREATE-STRUCTURE :D8 (IL:L (0 STRUCTURE-FORM)) W@ jR@\M? MNJ&Jh^LMNK&Kh^LdnIkYhl4 IH(78 IL:\\LISPERROR 24 IL:MAKE-KEYWORD 6 STRUCTURE-CONSTRUCTOR) NIL () STRUCTURE-CONSTRUCTOR :D8 (IL:L (0 STRUCTURE-NAME) IL:F 1 *PARSED-DEFSTRUCTS*) 9@g',@Q o@ HoH (54 ERROR 32 ERROR 19 IL:GETHASH) (9 IL:STRUCTURE-CONSTRUCTOR) ( 46 "~S is a structure with no standard constructor." 26 "~s is not a defined structure") (IL:PUTPROPS IL:DEFSTRUCT-RUN-TIME IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:DEFSTRUCT-RUN-TIME IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:DEFSTRUCT-RUN-TIME IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1993)) NIL