(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (il:filecreated "24-Oct-86 12:22:26" ("compiled on " il:{eris}zebra>defstruct-run-time.\;20) "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 "24-Oct-86 12:22:14" il:{eris}zebra>defstruct-run-time.\;20 9845 il:|changes| il:|to:| (il:vars il:defstruct-run-timecoms) (il:functions si::%structure-declare-datatype il:create-structure create-structure structure-constructor) (il:fns il:\\defprint.defstruct.default) il:|previous| il:|date:| "22-Oct-86 13:11:59" il:{eris}zebra>defstruct-run-time.\;17) (il:rpaqq il:defstruct-run-timecoms ((il:functions si::%structure-declare-datatype) (il:variables *parsed-structures*) (il:* il:|;;| "bootstrap version of CL::SET-PARSED-STRUCTURE which is redefined in defstruct") (il:p (setf ( symbol-function (quote set-parsed-structure)) (quote (lambda (il:name il:ps) (il:push *parsed-structures* (cons il:name il:ps)))))) (il:functions 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:a0951 (quote si::%structure-declare-datatype)) (il:a0952 (quote function)) (il:a0953 "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:a0951 il:a0952 il:a0953 ))) il:a0953)) (proclaim (quote (special *parsed-structures*))) (or (boundp (quote *parsed-structures*)) (il:setq *parsed-structures* (quote (nil)))) (let* ((il:a0954 (quote *parsed-structures*)) (il:a0955 (quote il:variable)) (il:a0956 "all declared structures")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0954 il:a0955 il:a0956))) il:a0956)) (il:setf-symbol-function (quote set-parsed-structure) (quote (lambda (il:name il:ps) (il:push *parsed-structures* (cons il:name il:ps))))) |expand-PARSED-STRUCTURE| il:d1 (il:l (1 il:$$macro-environment 0 il:$$macro-form)) E@HH&gggIohgoIhhggIohnil (56 assoc 53 cdr 33 error 20 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:a0959 (quote parsed-structure)) (il:a0960 (quote function)) (il:a0961 "returns the parsed-structure corresponding to name")) (progn (cond ((fboundp (quote il:set-documentation)) (il:set-documentation il:a0959 il:a0960 il:a0961))) il:a0961)) structure-slot-names il:d1 (il:l (1 dont-copy 0 structure-name) il:f 2 *parsed-structures*) -@R  o@ H o@ H YAI (42 copy-list 34 ps-all-slot-names 29 error 15 error 4 assoc) nil ( 25 "~S is not a declared structure." 11 "~s is not a defined structure") default-structure-printer il:d1 (il:l (2 il:print-depth 1 stream 0 il:structure)) @A (4 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 il:make-keyword 4 structure-constructor) nil () structure-constructor il:d1 (il:l (0 structure-name) il:f 1 *parsed-structures*) 1@g'&@Q  o@ H oH (46 error 43 ps-name 33 ps-standard-constructor 26 error 15 assoc) (7 il:structure-constructor) ( 39 "~S is a structure with no standard constructor." 22 "~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 8 il:descriptor il:p 7 il:field il:p 4 *print-level* il:p 0 type il:i 1 stream il:i 0 il:struc il:f 9 *readtable* il:f 10 *print-level*) @ 1AWZ JKlIoA HA WdkH H "N_MoA i_oA OA oA O@ A NM(127 il:prin2 123 il:fetchfield 116 il:prin1 107 il:prin2 100 il:prin1 86 il:prin1 60 il:slot-list 56 il:getdescriptors 43 il:prin2 38 il:prin3 3 il:typename) (20 stream 12 readtablep) ( 112 " " 96 " " 82 ")" 34 "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