(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "25-Jan-98 12:31:48" ("compiled on " IL:|{DSK}sources>DEFSTRUCT-RUN-TIME.;1| ) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED " 4-Jan-93 18:09:50" IL:|{DSK}lde>lispcore>sources>DEFSTRUCT-RUN-TIME.;2| 16909 IL:|previous| IL:|date:| "16-May-90 15:32:24" IL:|{DSK}lde>lispcore>sources>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 1 *PARSED-DEFSTRUCTS* IL:F 2 %DEFAULT-PRINT-FUNCTION) ;@ Q o@ R@ABjlH(29 ERROR 24 TYPE-OF 11 IL:GETHASH 5 TYPE-OF) NIL ( 18 "~s is not a defined structure") DEFAULT-STRUCTURE-PRINTER :D8 (IL:L (0 IL:|-args-|) IL:P 16 *PRINT-LEVEL* IL:F 17 *PRINT-LENGTH* IL:F 18 XCL:*PRINT-STRUCTURE* IL:F 19 IL:*PRINT-CIRCLE-HASHTABLE* IL:F 20 *PRINT-LEVEL* IL:F 21 *PRINT-ESCAPE* IL:F 22 *READTABLE*) yeka lalHjlaW$IJj I iW&I \_L_OOJ OOW(dkO O KW"ddjJ j_JW,_^(NOlMoJ OW*OJ k_W"OJ O O __{gOJ(_Jl lOOIOJ O1J(_Jl lOOI JKk OOk_W"ʈk_W"Ji oJ i(373 WRITE-STRING 361 IL:\\ELIDE.PRINT.TAIL 326 IL:\\PRINDATUM 317 IL:FETCHFIELD 283 PRINC 232 IL:GETDESCRIPTORS 225 STRUCTURE-SLOT-NAMES 217 PRINC 195 PRIN1 178 WRITE-STRING 126 IL:\\ELIDE.PRINT.ELEMENT 83 IL:PRIN3 60 IL:\\MVLIST 55 IL:PRINT-CIRCLE-LOOKUP 41 IL:TYPENAME 34 IL:\\PRINT-USING-ADDRESS) (294 STREAM 256 STREAM 247 SI::--STRUCTURE-DUMMY-SLOT-- 156 STREAM 144 READTABLEP) ( 367 ")" 172 "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 1993) ) NIL