(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (il:filecreated "29-Oct-86 21:58:12" ("compiled on " il:{eris}sources>defstruct-run-time.\;6 ) "21-Oct-86 04:13:01" "COMPILE-FILEd" il:|in| "Xerox Lisp 21-Oct-86 ..." il:|dated| "21-Oct-86 04:48:43") (il:filecreated "29-Oct-86 21:57:58" il:{eris}sources>defstruct-run-time.\;6 11933 il:|changes| il:|to:| (il:fns il:\\defprint.defstruct.default) (il:vars il:defstruct-run-timecoms) ( il:functions print-structure-instance default-structure-printer si::%structure-declare-datatype create-structure-object) (il:variables *print-structure*) il:|previous| il:|date:| "24-Oct-86 15:46:32" il:{eris}zebra>defstruct-run-time.\;21) (il:rpaqq il:defstruct-run-timecoms ((il:functions si::%structure-declare-datatype create-structure-object print-structure-instance) (il:variables *parsed-structures* *print-structure*) (il:functions set-parsed-structure parsed-structure structure-slot-names default-structure-printer il:create-structure structure-constructor) (il:setfs parsed-structure) (il:* il:|;;| "USES STRUCTURE-SLOT-NAMES but for now supports looking on the plist.") (il:functions il:slot-list) ( il:fns il:\\defprint.defstruct.default) (il:prop il:filetype il:defstruct-run-time) (il:prop 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))))) il:%structure-declare-datatypea0001 il:d1 (il:l (0 descriptor)) @HgHg@hnil (16 il:fullpointer 10 il:pointer) () si::%structure-declare-datatype il:d1 (il:l (4 supertype 3 word-length 2 field-descriptors 1 field-specifications 0 name)) c@H:CH3 @gB 1@BCAHD  YI@i J BK igHg bigHg b(92 il:check-type-fail 76 il:check-type-fail 64 values 59 il:settopval 55 il:\\typeglobalvariable 43 il:\\mvlist 40 il:\\assigndatatype1 27 mapcan) (89 integer 85 word-length 73 symbol 69 name 23 il:%structure-declare-datatypea0001 7 il:litatom) () (let* ((il:a1508 (quote si::%structure-declare-datatype)) (il:a1509 (quote function)) (il:a1510 "analagous to declare-datatype, but does not prepend the supers descriptors. You must include all descs." )) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a1508 il:a1509 il:a1510 ))) il:a1510)) il:create-structure-objecta0001 il:d1 (il:l (0 il:$$type-form)) onil nil ( 3 (il:datatype structure-object)) create-structure-object il:d1 nil $ghdjh gg ggg h(32 il:put 19 il:setf-symbol-function 10 si::%structure-declare-datatype) (29 |type-expand-STRUCTURE-OBJECT| 26 il:type-expander 23 structure-object 16 il:create-structure-objecta0001 13 |type-expand-STRUCTURE-OBJECT| 2 structure-object) () (let* ((il:a1511 (quote create-structure-object)) (il:a1512 (quote function)) (il:a1513 "creates the empty datatype that is included by every Common Lisp instance")) (progn (cond ((fboundp ( quote il:set-documentation)) (il:set-documentation il:a1511 il:a1512 il:a1513))) il:a1513)) print-structure-instance il:d1 (il:l (2 depth 1 stream 0 object) il:f 0 *parsed-structures* il:f 1 %default-print-function) "@ABl@ P o@ Q(27 ps-print-function 24 error 21 type-of 8 type-of) nil ( 17 "~s is not a defined structure") (let* ((il:a1514 (quote print-structure-instance)) (il:a1515 (quote function)) (il:a1516 "looks up the print function for the structure instance and calls it")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a1514 il:a1515 il:a1516))) il:a1516)) (proclaim (quote (special *parsed-structures*))) (or (boundp (quote *parsed-structures*)) (il:setq *parsed-structures* (quote (nil)))) (let* ((il:a1517 (quote *parsed-structures*)) (il:a1518 (quote variable)) (il:a1519 "all declared structures")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a1517 il:a1518 il:a1519))) il:a1519)) (proclaim (quote (special *print-structure*))) (or (boundp (quote *print-structure*)) (il:setq *print-structure* nil)) (let* ((il:a1520 (quote *print-structure*)) (il:a1521 (quote variable)) (il:a1522 "Flag indicating whether the contents of structures are to be printed.")) (progn (cond ((fboundp ( quote il:set-documentation)) (il:set-documentation il:a1520 il:a1521 il:a1522))) il:a1522)) set-parsed-structure il:d1 (il:l (1 ps 0 name) il:f 0 *parsed-structures*) @dPPdAAPccnil nil () |expand-PARSED-STRUCTURE| il:d1 (il:l (1 si::$$macro-environment 0 si::$$macro-form)) E@HH&gggIohgoIhhggIohnil (56 il:assoc 53 cdr 33 error 20 il:assoc 17 cdr 14 or) ( 61 (*parsed-structures*) 37 "~s is not a defined structure" 25 (*parsed-structures*)) (il:setf-macro-function (quote parsed-structure) (quote |expand-PARSED-STRUCTURE|)) (let* ((il:a1525 (quote parsed-structure)) (il:a1526 (quote function)) (il:a1527 "returns the parsed-structure corresponding to name")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a1525 il:a1526 il:a1527))) il:a1527)) structure-slot-names il:d1 (il:l (1 dont-copy 0 structure-name) il:f 2 *parsed-structures*) +@R o@ H o@ H YAI (40 copy-list 32 ps-all-slot-names 27 error 13 error) nil ( 23 "~S is not a declared structure." 9 "~s is not a defined structure") default-structure-printer il:d1 (il:l (2 il:print-depth 1 stream 0 il:structure)) @AB (5 il:\\defprint.defstruct.default) nil () il:create-structure il:d1 (il:l (0 structure-form)) Q@ j0@dZ Jh[LK]\M \KdIkYnhl4 IH(72 il:\\lisperror 48 last 20 make-keyword 4 structure-constructor) nil () structure-constructor il:d1 (il:l (0 structure-name) il:f 1 *parsed-structures*) /@g'$@Q o@ H oH (44 error 41 ps-name 31 ps-standard-constructor 24 error) (7 il:structure-constructor) ( 37 "~S is a structure with no standard constructor." 20 "~s is not a defined structure") (remprop (quote parsed-structure) (quote il:setf-method-expander)) (il:putprops parsed-structure il:setf-inverse set-parsed-structure) il:slot-list il:d1 (il:l (0 name)) @g' @ (17 structure-slot-names 11 il:copy) (7 il:%slot-descriptions) () il:\\defprint.defstruct.default il:d1 (il:p 11 il:descriptor il:p 10 il:field il:p 7 *print-level* il:p 2 first-time? il:p 1 label il:p 0 type il:i 2 print-level il:i 1 stream il:i 0 il:struc il:f 12 *print-structure* il:f 13 il:*print-circle-hashtable* il:f 14 *readtable* il:f 15 *print-level*) W@Aj @ aW@ [KIFJ\AW] MNlLoA HA WdkH H " O _OoA i_oA OA oA O@ A O_O_(170 il:\\prindatum 166 il:fetchfield 159 il:prin1 150 il:prin2 143 il:prin1 129 il:prin1 107 il:prin3 95 il:slot-list 91 il:getdescriptors 77 il:prin2 71 il:prin3 26 il:\\mvlist 23 il:print-circle-lookup 13 il:typename 8 il:\\print-using-address) (53 stream 45 readtablep) ( 155 " " 139 " " 125 ")" 67 "S(") (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 ("Xerox Corporation" 1986)) nil