(FILECREATED " 1-Sep-85 23:43:29" ("compiled on " {ERIS}LIBRARY>CMLDEFSTRUCT.;8) "16-Aug-85 06:20:26" tcompl'd in "INTERLISP-D 16-Aug-85 ..." dated "16-Aug-85 08:01:07") (FILECREATED " 1-Sep-85 23:36:57" {ERIS}LIBRARY>CMLDEFSTRUCT.;8 44158 changes to: (MACROS MAKE-BUILT-IN-SLOT-FROBBERS DEFSTRUCT STRUCTURIFY TEST-STRUCTURE) (VARS CMLDEFSTRUCTCOMS) (FNS \GET-0 \GET-1 \GET-2 \GET-3 \GET-4 \GET-5 \GET-6 \GET-7 \GET-8 \GET-9 \GET-10 \GET-11 \GET-12 \GET-13 \GET-14 \GET-15 \GET-16 \GET-17 \GET-18 \GET-19 \SET-0 \SET-1 \SET-2 \SET-3 \SET-4 \SET-5 \SET-6 \SET-7 \SET-8 \SET-9 \SET-10 \SET-11 \SET-12 \SET-13 \SET-14 \SET-15 \SET-16 \SET-17 \SET-18 \SET-19 DEFINE-ACCESSORS DEFINE-SETTERS DEFSTRUCT.EXPANDER DD-LENGTH SETF-DD-LENGTH PARSE-NAME-AND-OPTIONS SETF-DD-NAME SETF-DD-DOC SETF-DD-SLOTS SETF-DD-CONC-NAME SETF-DD-CONSTRUCTOR SETF-DD-BOA-CONSTRUCTORS SETF-DD-COPIER SETF-DD-PREDICATE SETF-DD-INCLUDE SETF-DD-INCLUDED-BY SETF-DD-PRINT-FUNCTION SETF-DD-TYPE SETF-DD-LISP-TYPE SETF-DD-NAMED SETF-DD-OFFSET SETF-DD-CL:LENGTH SETF-DSD-NAME SETF-DSD-INDEX SETF-DSD-ACCESSOR SETF-DSD-DEFAULT SETF-DSD-TYPE SETF-DSD-READ-ONLY PARSE-SLOT-DESCRIPTIONS CONCAT-PNAMES DEFINE-BOA-CONSTRUCTORS DEFAULT-STRUCTURE-PRINT DEFINE-CONSTRUCTOR DSD-NAME DSD-INDEX DSD-ACCESSOR DSD-DEFAULT DSD-TYPE DSD-READ-ONLY DD-NAME DD-DOC DD-SLOTS DD-CONC-NAME DD-CONSTRUCTOR DD-BOA-CONSTRUCTORS DD-COPIER DD-PREDICATE DD-INCLUDE DD-INCLUDED-BY DD-PRINT-FUNCTION DD-TYPE DD-LISP-TYPE DD-NAMED DD-OFFSET DD-CL:LENGTH PRINT-DEFSTRUCT-DESCRIPTION PRINT-DEFSTRUCT-SLOT-DESCRIPTION CONCAT-PNAMES* CONCAT-STUFF COMPILER::NOTE-ARGS BUILT-IN-COPIER DEFINE-COPIER DEFINE-PREDICATE) (PROPS (DEFSTRUCT USERRECORDTYPE)) (RECORDS DEFSTRUCT-DESCRIPTION DEFSTRUCT-SLOT-DESCRIPTION) previous date: " 1-Sep-85 22:36:53" {ERIS}LIBRARY>CMLDEFSTRUCT.;7) \GET-0 D1 (L (0 X)) @NIL NIL () \GET-1 D1 (L (0 X)) @NIL NIL () \GET-2 D1 (L (0 X)) @NIL NIL () \GET-3 D1 (L (0 X)) @NIL NIL () \GET-4 D1 (L (0 X)) @NIL NIL () \GET-5 D1 (L (0 X)) @NIL NIL () \GET-6 D1 (L (0 X)) @NIL NIL () \GET-7 D1 (L (0 X)) @NIL NIL () \GET-8 D1 (L (0 X)) @NIL NIL () \GET-9 D1 (L (0 X)) @ NIL NIL () \GET-10 D1 (L (0 X)) @ NIL NIL () \GET-11 D1 (L (0 X)) @ NIL NIL () \GET-12 D1 (L (0 X)) @ NIL NIL () \GET-13 D1 (L (0 X)) @ NIL NIL () \GET-14 D1 (L (0 X)) @NIL NIL () \GET-15 D1 (L (0 X)) @NIL NIL () \GET-16 D1 (L (0 X)) @NIL NIL () \GET-17 D1 (L (0 X)) @NIL NIL () \GET-18 D1 (L (0 X)) @NIL NIL () \GET-19 D1 (L (0 X)) @NIL NIL () \SET-0 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-1 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-2 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-3 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-4 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-5 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-6 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-7 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-8 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-9 D1 (L (1 Y 0 X)) @A ANIL NIL () \SET-10 D1 (L (1 Y 0 X)) @A ANIL NIL () \SET-11 D1 (L (1 Y 0 X)) @A ANIL NIL () \SET-12 D1 (L (1 Y 0 X)) @A ANIL NIL () \SET-13 D1 (L (1 Y 0 X)) @A ANIL NIL () \SET-14 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-15 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-16 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-17 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-18 D1 (L (1 Y 0 X)) @AANIL NIL () \SET-19 D1 (L (1 Y 0 X)) @AANIL NIL () DD-NAME D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-DOC D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-SLOTS D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-CONC-NAME D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-CONSTRUCTOR D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-BOA-CONSTRUCTORS D1 (L (0 OBJECT)) @ NIL (3 DEFSTRUCT-DESCRIPTION) () DD-COPIER D1 (L (0 OBJECT)) @ NIL (3 DEFSTRUCT-DESCRIPTION) () DD-PREDICATE D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-INCLUDE D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-INCLUDED-BY D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-PRINT-FUNCTION D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-TYPE D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-LISP-TYPE D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-NAMED D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-OFFSET D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () DD-LENGTH D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-NAME D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-DOC D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-SLOTS D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-CONC-NAME D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-CONSTRUCTOR D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-BOA-CONSTRUCTORS D1 (L (1 VALUE 0 OBJECT)) @A ANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-COPIER D1 (L (1 VALUE 0 OBJECT)) @A ANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-PREDICATE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-INCLUDE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-INCLUDED-BY D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-PRINT-FUNCTION D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-TYPE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-LISP-TYPE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-NAMED D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-OFFSET D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () SETF-DD-LENGTH D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-DESCRIPTION) () DSD-NAME D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () DSD-INDEX D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () DSD-ACCESSOR D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () DSD-DEFAULT D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () DSD-TYPE D1 (L (0 OBJECT)) @NIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () DSD-READ-ONLY D1 (L (0 OBJECT)) @ NIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () SETF-DSD-NAME D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () SETF-DSD-INDEX D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () SETF-DSD-ACCESSOR D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () SETF-DSD-DEFAULT D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () SETF-DSD-TYPE D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () SETF-DSD-READ-ONLY D1 (L (1 VALUE 0 OBJECT)) @A ANIL (3 DEFSTRUCT-SLOT-DESCRIPTION) () DEFSTRUCT.EXPANDER D1 (L (1 SLOT-DESCRIPTIONS 0 NAME-AND-OPTIONS)) @ H HA gH H H H H H H 3ggggH hgghhhgIhhhH ,gggIhgghhgH hhhgghgggIhgghhgHhhhggghggggIhgghhhgggHhhhhggghgggghhihhhhgggIhgghhghhhgIhh (575Q \APPEND2 572Q \APPEND2 567Q \APPEND2 564Q \APPEND2 561Q \APPEND2 556Q \APPEND2 553Q \APPEND2 550Q \APPEND2 211Q DD-DOC 146Q DD-DOC 101Q DD-INCLUDE 57Q DD-INCLUDE 53Q DEFINE-PREDICATE 47Q DEFINE-COPIER 43Q DEFINE-BOA-CONSTRUCTORS 37Q DEFINE-CONSTRUCTOR 33Q DEFINE-SETTERS 27Q DEFINE-ACCESSORS 20Q PARSE-SLOT-DESCRIPTIONS 12Q DD-NAME 3 PARSE-NAME-AND-OPTIONS) (535Q QUOTE 515Q NEW 503Q \STRUCTURE-DEFINITION 500Q QUOTE 471Q QUOTE 466Q GET 463Q SETF 435Q OLD 432Q DD-INCLUDED-BY 427Q OLD 424Q COND 416Q NEW 413Q DD-INCLUDED-BY 410Q SETF 370Q QUOTE 365Q COPY-DEFSTRUCT-DESCRIPTION 362Q NEW 345Q \STRUCTURE-DEFINITION 342Q QUOTE 333Q QUOTE 330Q GET 325Q OLD 322Q LET 314Q EVAL 311Q CL:COMPILE 306Q EVAL-WHEN 267Q QUOTE 255Q \STRUCTURE-DEFINITION 252Q QUOTE 243Q QUOTE 240Q GET 235Q SETF 230Q LOAD 225Q EVAL-WHEN 205Q QUOTE 173Q \STRUCT-DOCUMENTATION 170Q QUOTE 161Q QUOTE 156Q GET 153Q SETF 130Q QUOTE 113Q \STRUCTURE-DEFINITION 110Q QUOTE 75Q QUOTE 72Q GET 67Q DD-INCLUDED-BY 64Q PUSH 23Q PROGN) () PRINT-DEFSTRUCT-DESCRIPTION D1 (L (2 DEPTH 1 STREAM 0 STRUCTURE)) o Ao@ (22Q FORMAT 17Q DD-NAME 6 CL:DECLARE) NIL ( 13Q "#" 3 ((IGNORE DEPTH))) PRINT-DEFSTRUCT-SLOT-DESCRIPTION D1 (L (2 DEPTH 1 STREAM 0 STRUCTURE)) o Ao@ (22Q FORMAT 17Q DSD-NAME 6 CL:DECLARE) NIL ( 13Q "#" 3 ((IGNORE DEPTH))) PARSE-NAME-AND-OPTIONS D1 (L (0 NAME-AND-OPTIONS)) @d @hb @gIg gI h]gI _Ig _h__g_h_j_HxgIgKgLgNgOgOgOgJgOgOdggggOoO gOOggOigO  BH_dgigI \gOgOgi_oHHH_"_ _dgO"[gO"dMhO"N^t\pOdgO"_`gO"_TOdgO"_EgO"Z:Odgi_O"_&go OgO"_oO HX(667Q CL:ERROR 637Q CL:ERROR 347Q CONCAT-PNAMES 321Q CL:ATOM 314Q MAKE-DEFSTRUCT-DESCRIPTION 247Q CL:ERROR 75Q CONCAT-PNAMES 63Q CONCAT-PNAMES 50Q CONCAT-PNAMES 40Q CONCAT-PNAMES 4 CL:ATOM) (646Q :INITIAL-OFFSET 626Q :NAMED 605Q :TYPE 567Q :PRINT-FUNCTION 553Q :INCLUDE 534Q :PREDICATE 517Q :COPIER 461Q :CONSTRUCTOR 444Q :CONC-NAME 402Q :NAMED 370Q :PREDICATE 356Q :COPIER 343Q MAKE- 333Q :CONSTRUCTOR 306Q :OFFSET 274Q SIMPLE-ARRAY 266Q VECTOR 252Q :NAMED 230Q LIST 223Q LIST 216Q SIMPLE-VECTOR 210Q VECTOR 202Q :LISP-TYPE 175Q :TYPE 171Q :PRINT-FUNCTION 164Q :INCLUDE 157Q :PREDICATE 152Q :COPIER 146Q :BOA-CONSTRUCTORS 142Q :CONSTRUCTOR 136Q :CONC-NAME 132Q :NAME 111Q VECTOR 72Q -P 57Q COPY- 44Q MAKE- 35Q - 30Q DEFAULT-STRUCTURE-PRINT) ( 662Q "~S is an unknown Defstruct option." 634Q "The Defstruct option :NAMED takes no arguments." 416Q "The Defstruct option ~S cannot be used with 0 arguments." 242Q "~S is a bad :TYPE for Defstruct.") PARSE-SLOT-DESCRIPTIONSA0001 D1 (L (0 SLOT)) @ @ g@ g@ h(25Q DSD-READ-ONLY 16Q DSD-TYPE 7 DSD-DEFAULT 3 DSD-NAME) (21Q :READ-ONLY 12Q :TYPE) () PARSE-SLOT-DESCRIPTIONSA0002 D1 (L (0 X)) @d @(4 CL:ATOM) NIL () PARSE-SLOT-DESCRIPTIONS D1 (L (1 SLOTS 0 DEFSTRUCT))  AAhAb@ I@ g @  Ho@  H hgH __OA bA@ @ k_Igggg _OdlOhOOKJOO_dgOOML&gO_OONoO Oj 2H@I J hh\d "LgKgIg@ K gi 7LLi M6gNgIg@ N gOgOgO JHI XdgM_gM_M](600Q 1+ 566Q MAKE-DEFSTRUCT-SLOT-DESCRIPTION 543Q CONCAT-PNAMES 537Q DD-CONC-NAME 500Q MAKE-DEFSTRUCT-SLOT-DESCRIPTION 470Q CONCAT-PNAMES 464Q DD-CONC-NAME 440Q CL:ATOM 422Q CL:NREVERSE 416Q SETF-DD-LENGTH 403Q + 372Q CL:ERROR 205Q CL:FIND 150Q DD-NAMED 144Q DD-OFFSET 134Q \NCONC2 120Q CL:MAPCAR 115Q DD-SLOTS 77Q DD-OFFSET 72Q CL:ERROR 66Q DD-INCLUDE 47Q DD-INCLUDE 43Q GET 34Q DD-INCLUDE 26Q DD-INCLUDE) (626Q :READ-ONLY 611Q :TYPE 560Q :READ-ONLY 553Q :TYPE 546Q :DEFAULT 533Q :ACCESSOR 527Q :INDEX 523Q :NAME 473Q :TYPE 460Q :ACCESSOR 454Q :INDEX 450Q :NAME 425Q DEFSTRUCT-DESCRIPTION 331Q :READ-ONLY 302Q :TYPE 201Q STRING= 176Q :TEST 173Q PARSE-SLOT-DESCRIPTIONSA0002 170Q :KEY 111Q PARSE-SLOT-DESCRIPTIONSA0001 102Q DEFSTRUCT-DESCRIPTION 40Q \STRUCTURE-DEFINITION 11Q DEFSTRUCT-DESCRIPTION) ( 364Q "Bad option in included slot spec: ~S." 62Q "Cannot find description of structure ~S to use for inclusion.") CONCAT-PNAMES D1 (L (1 NAME2 0 NAME1)) @g@ A A(23Q INTERN 20Q CONCATENATE 15Q SYMBOL-NAME 11Q SYMBOL-NAME) (5 SIMPLE-STRING) () CONCAT-PNAMES* D1 (L (1 NAME2 0 NAME1)) @g@ A A(23Q MAKE-SYMBOL 20Q CONCATENATE 15Q SYMBOL-NAME 11Q SYMBOL-NAME) (5 SIMPLE-STRING) () CONCAT-STUFF D1 (L (1 THING2 0 THING1)) g@ A (20Q INTERN 15Q CONCATENATE 12Q PRINC-TO-STRING 6 PRINC-TO-STRING) (2 SIMPLE-STRING) () COMPILER::NOTE-ARGS D1 (L (3 IG4 2 IG3 1 IG2 0 IG1)) o (6 CL:DECLARE) NIL ( 3 ((IGNORE IG1 IG2 IG3 IG4))) BUILT-IN-COPIER D1 (L (0 OLD) F 3 SET-VECTOR-SUBTYPE) 4o j!@ Y HI SJk JH@H H X(57Q 1+ 52Q SVSET 47Q SVREF 37Q \PRIMITIVE 30Q = 22Q MAKE-ARRAY 16Q CL:LENGTH 6 CL:DECLARE) NIL ( 3 ((SIMPLE-VECTOR OLD))) DEFINE-ACCESSORS D1 (L (0 DEFSTRUCT) F 6 BUILT-IN-ACCESSORS F 7 BUILT-IN-X-ACCESSORS) "@ @ BHJ] M IgoKl gggggLhhggVK hhhgggghgggLhgghhgWK hhhggLghggIghKhhgggghgLgL ghgggggIhhgghhggKhhhhhhhJHX(315Q CONCAT-PNAMES* 204Q AREF 107Q AREF 47Q < 31Q DSD-INDEX 24Q DSD-ACCESSOR 7 DD-LISP-TYPE 3 DD-SLOTS) (373Q QUOTE 370Q \, 356Q STRUCTURE 353Q \, 341Q QUOTE 336Q \, 333Q THE 330Q CL:ELT 325Q BQUOTE 320Q STRUCTURE 311Q X- 305Q COMPILER::DEFTRANSFORM 276Q EVAL 273Q LOAD 270Q CL:COMPILE 265Q EVAL-WHEN 244Q STRUCTURE 240Q THE 235Q CL:ELT 230Q STRUCTURE 224Q DEFUN 221Q PROGN 176Q QUOTE 164Q COMPILER::CLC-TRANSFORMS 161Q QUOTE 152Q QUOTE 147Q GET 144Q SETF 135Q EVAL 132Q LOAD 127Q CL:COMPILE 124Q EVAL-WHEN 102Q QUOTE 77Q SYMBOL-FUNCTION 65Q QUOTE 62Q SYMBOL-FUNCTION 57Q SETF 54Q PROGN 36Q SIMPLE-VECTOR) () DEFINE-SETTERS D1 (L (0 DEFSTRUCT) F 6 BUILT-IN-SETTERS)  @ @ BHJgM M M IgKl gM VK hggLgghgggIghKhghhgggghgLgL gghggggggIhhgghhggKhhhgghhhhhgM LhhJHX(367Q DSD-ACCESSOR 226Q CONCAT-PNAMES* 104Q AREF 77Q DSD-ACCESSOR 66Q < 45Q DSD-READ-ONLY 40Q DSD-INDEX 33Q CONCAT-PNAMES* 30Q DSD-ACCESSOR 7 DD-LISP-TYPE 3 DD-SLOTS) (363Q DEFSETF 334Q NEW-VALUE 331Q \, 313Q QUOTE 310Q \, 276Q STRUCTURE 273Q \, 261Q QUOTE 256Q \, 253Q THE 250Q CL:ELT 245Q SETF 242Q BQUOTE 234Q NEW-VALUE 231Q STRUCTURE 222Q X- 216Q COMPILER::DEFTRANSFORM 207Q EVAL 204Q LOAD 201Q CL:COMPILE 176Q EVAL-WHEN 162Q NEW-VALUE 146Q STRUCTURE 142Q THE 137Q CL:ELT 134Q SETF 126Q NEW-VALUE 123Q STRUCTURE 117Q DEFUN 114Q PROGN 73Q DEFSETF 55Q SIMPLE-VECTOR 24Q SET-) () DEFINE-CONSTRUCTORA0001 D1 (L (0 SLOT)) @ @ h(7 DSD-DEFAULT 3 DSD-NAME) NIL () DEFINE-CONSTRUCTOR D1 (L (0 DEFSTRUCT))  @ QH@ @ gJ gJ gHgL @d g&g@ g@ hhIK x !ggg@ hIK hT@ ggIK =JN;gOg@ gg@ hhhhOOh hhggOM hM hO_N^(371Q DSD-NAME 361Q DSD-INDEX 330Q \APPEND2 300Q DD-LISP-TYPE 266Q DD-LENGTH 244Q GENSYM 235Q \APPEND2 232Q \APPEND2 215Q DD-TYPE 202Q \APPEND2 177Q \APPEND2 167Q DD-NAME 150Q DD-NAMED 142Q \APPEND2 137Q \APPEND2 134Q \APPEND2 122Q DD-NAME 111Q DD-NAMED 73Q DD-TYPE 65Q \APPEND2 51Q CL:MAPCAR 41Q CL:MAPCAR 31Q DD-SLOTS 24Q MAKE-LIST 21Q DD-OFFSET 3 DD-CONSTRUCTOR) (353Q AREF 350Q SETF 274Q QUOTE 271Q :ELEMENT-TYPE 262Q MAKE-ARRAY 255Q LET 225Q VECTOR 220Q VECTOR 163Q QUOTE 160Q VECTOR 155Q STRUCTURIFY 116Q QUOTE 105Q LIST 76Q LIST 61Q &KEY 55Q DEFUN 45Q DEFINE-CONSTRUCTORA0001 35Q DSD-NAME) () DEFINE-BOA-CONSTRUCTORSA0001 D1 (L (0 SLOT) F 0 SLOTS-IN-ARGLIST) @d P @  (22Q DSD-DEFAULT 16Q DSD-NAME 10Q MEMQ 4 DSD-NAME) NIL () DEFINE-BOA-CONSTRUCTORS D1 (L (0 DEFSTRUCT) P 13Q SLOTS-IN-ARGLIST F 20Q N) @  HHW @  hHLJg__O@ gK __gIJ@d gg@ g@ hhOO ^d MNo N_DO]gMgMdgN&g&NO_ONdKgg hO_OR #ggg@ hOO hY@ ggOO @OjOWgOg@ gg@ hhhhOOh hLHXHW @ h_ggOghOhO_OO __(637Q 1+ 563Q DD-SLOTS 556Q \APPEND2 524Q \APPEND2 474Q DD-LISP-TYPE 462Q DD-LENGTH 437Q GENSYM 426Q \APPEND2 423Q \APPEND2 404Q DD-TYPE 371Q \APPEND2 366Q \APPEND2 354Q DD-NAME 335Q DD-NAMED 310Q DSD-DEFAULT 305Q CL:FIND 213Q MEMQ 200Q CL:ATOM 166Q \APPEND2 163Q \APPEND2 160Q \APPEND2 144Q DD-NAME 133Q DD-NAMED 113Q DD-TYPE 73Q CL:MAPCAR 64Q MAKE-LIST 61Q DD-OFFSET 30Q DD-SLOTS 23Q \APPEND2 3 DD-BOA-CONSTRUCTORS) (606Q INDEX 601Q AREF 576Q SETF 470Q QUOTE 465Q :ELEMENT-TYPE 456Q MAKE-ARRAY 451Q LET 414Q VECTOR 407Q VECTOR 350Q QUOTE 345Q VECTOR 342Q STRUCTURIFY 302Q DSD-NAME 277Q :KEY 255Q &OPTIONAL 244Q &AUX 235Q &REST 227Q REQUIRED 140Q QUOTE 127Q LIST 116Q LIST 104Q DEFUN 67Q DEFINE-BOA-CONSTRUCTORSA0001 46Q REQUIRED) ( 210Q (&OPTIONAL &REST &AUX)) DEFINE-COPIER D1 (L (0 DEFSTRUCT)) @ @d g4@d ,ggg@ hhggghhhh g+ggg@ hhggghhhhg@ ghgg@ ghhhh(216Q DD-LISP-TYPE 177Q DD-COPIER 134Q DD-COPIER 111Q DD-LISP-TYPE 52Q DD-COPIER 32Q DD-NAMED 16Q DD-LISP-TYPE 3 DD-COPIER) (221Q STRUCTURE 212Q THE 207Q COPY-SEQ 202Q STRUCTURE 173Q DEFUN 153Q COPY-LIST 150Q QUOTE 145Q SYMBOL-FUNCTION 130Q QUOTE 125Q SYMBOL-FUNCTION 122Q SETF 114Q LIST 71Q BUILT-IN-COPIER 66Q QUOTE 63Q SYMBOL-FUNCTION 46Q QUOTE 43Q SYMBOL-FUNCTION 40Q SETF 21Q SIMPLE-VECTOR) () DEFINE-PREDICATE D1 (L (0 DEFSTRUCT)) @  @ g@ gh@ gdggghgggghg@ hhggghggg@ hgghhhhhhggghgghggggjhg@ hhggggjhggg@ hgghhhhihihhhhhhh(335Q DD-NAME 270Q DD-NAME 153Q DD-NAME 113Q DD-NAME 43Q DD-TYPE 32Q DD-PREDICATE 15Q DD-NAMED 3 DD-PREDICATE) (346Q \STRUCTURE-DEFINITION 343Q QUOTE 331Q QUOTE 326Q GET 323Q DD-INCLUDED-BY 313Q OBJECT 310Q SVREF 305Q MEMQ 302Q COND 264Q QUOTE 254Q OBJECT 251Q SVREF 246Q EQ 243Q OR 235Q OBJECT 232Q TEST-STRUCTURE 224Q OBJECT 221Q SIMPLE-VECTOR-P 216Q AND 164Q \STRUCTURE-DEFINITION 161Q QUOTE 147Q QUOTE 144Q GET 141Q DD-INCLUDED-BY 133Q OBJECT 130Q CAR 125Q MEMQ 107Q QUOTE 101Q OBJECT 76Q CAR 73Q EQ 70Q OR 62Q OBJECT 57Q LISTP 54Q AND 46Q LIST 35Q OBJECT 26Q DEFUN) () DEFAULT-STRUCTURE-PRINT D1 (L (2 DEPTH 1 STREAM 0 STRUCTURE) F 3 *PRINT-LENGTH*) o oA @j A k@ @j g HdI S!HS HI oA oA oA J A oA @H A H JX(201Q 1+ 174Q CL:PRIN1 170Q SVREF 162Q WRITE-CHAR 151Q CL:PRIN1 145Q DSD-NAME 137Q WRITE-CHAR 126Q WRITE-STRING 115Q WRITE-STRING 104Q = 75Q = 63Q = 52Q DD-SLOTS 47Q GET 41Q SVREF 34Q CL:LENGTH 27Q CL:PRIN1 23Q SVREF 16Q WRITE-STRING 6 CL:DECLARE) (44Q \STRUCTURE-DEFINITION) ( 156Q |\SPACE 133Q |\SPACE 122Q "...)" 111Q ")" 12Q "#S(" 3 ((IGNORE DEPTH))) (PRETTYCOMPRINT CMLDEFSTRUCTCOMS) (RPAQQ CMLDEFSTRUCTCOMS ((* * Chapter 19.0 DEFSTRUCT. *) (MACROS STRUCTURIFY TEST-STRUCTURE MAKE-BUILT-IN-SLOT-FROBBERS) (CONSTANTS (NUMBER-OF-BUILT-IN-SLOT-FROBBERS 20)) (FNS \GET-0 \GET-1 \GET-2 \GET-3 \GET-4 \GET-5 \GET-6 \GET-7 \GET-8 \GET-9 \GET-10 \GET-11 \GET-12 \GET-13 \GET-14 \GET-15 \GET-16 \GET-17 \GET-18 \GET-19) (FNS \SET-0 \SET-1 \SET-2 \SET-3 \SET-4 \SET-5 \SET-6 \SET-7 \SET-8 \SET-9 \SET-10 \SET-11 \SET-12 \SET-13 \SET-14 \SET-15 \SET-16 \SET-17 \SET-18 \SET-19) ( INITVARS (BUILT-IN-ACCESSORS (MAKE-ARRAY NUMBER-OF-BUILT-IN-SLOT-FROBBERS)) (BUILT-IN-SETTERS ( MAKE-ARRAY NUMBER-OF-BUILT-IN-SLOT-FROBBERS)) (BUILT-IN-X-ACCESSORS (MAKE-ARRAY NUMBER-OF-BUILT-IN-SLOT-FROBBERS))) (RECORDS DEFSTRUCT-DESCRIPTION) (FNS DD-NAME DD-DOC DD-SLOTS DD-CONC-NAME DD-CONSTRUCTOR DD-BOA-CONSTRUCTORS DD-COPIER DD-PREDICATE DD-INCLUDE DD-INCLUDED-BY DD-PRINT-FUNCTION DD-TYPE DD-LISP-TYPE DD-NAMED DD-OFFSET DD-LENGTH) (FNS SETF-DD-NAME SETF-DD-DOC SETF-DD-SLOTS SETF-DD-CONC-NAME SETF-DD-CONSTRUCTOR SETF-DD-BOA-CONSTRUCTORS SETF-DD-COPIER SETF-DD-PREDICATE SETF-DD-INCLUDE SETF-DD-INCLUDED-BY SETF-DD-PRINT-FUNCTION SETF-DD-TYPE SETF-DD-LISP-TYPE SETF-DD-NAMED SETF-DD-OFFSET SETF-DD-LENGTH) (RECORDS DEFSTRUCT-SLOT-DESCRIPTION) ( FNS DSD-NAME DSD-INDEX DSD-ACCESSOR DSD-DEFAULT DSD-TYPE DSD-READ-ONLY) (FNS SETF-DSD-NAME SETF-DSD-INDEX SETF-DSD-ACCESSOR SETF-DSD-DEFAULT SETF-DSD-TYPE SETF-DSD-READ-ONLY) (FNS DEFSTRUCT.EXPANDER PRINT-DEFSTRUCT-DESCRIPTION PRINT-DEFSTRUCT-SLOT-DESCRIPTION PARSE-NAME-AND-OPTIONS PARSE-SLOT-DESCRIPTIONS CONCAT-PNAMES CONCAT-PNAMES* CONCAT-STUFF COMPILER::NOTE-ARGS BUILT-IN-COPIER DEFINE-ACCESSORS DEFINE-SETTERS DEFINE-CONSTRUCTOR DEFINE-BOA-CONSTRUCTORS DEFINE-COPIER DEFINE-PREDICATE DEFAULT-STRUCTURE-PRINT) (MACROS DEFSTRUCT) (PROPS (DEFSTRUCT USERRECORDTYPE)) (P ( MOVD (QUOTE RECORD) (QUOTE DEFSTRUCT)) (ADDTOVAR CLISPRECORDTYPES DEFSTRUCT) (* ( MAKE-BUILT-IN-SLOT-FROBBERS))))) (DEFMACRO STRUCTURIFY (STRUCTURE) "Frobs a vector to turn it into a named structure. Returns the vector." (BQUOTE (\PRIMITIVE SET-VECTOR-SUBTYPE (\, STRUCTURE) 1))) (DEFMACRO TEST-STRUCTURE (OBJECT) "Returns T if the given object is a named structure, Nil otherwise." (BQUOTE (= (\PRIMITIVE GET-VECTOR-SUBTYPE (\, OBJECT)) 1))) (DEFMACRO MAKE-BUILT-IN-SLOT-FROBBERS NIL (CL:DO ((I 0 (1+ I)) (THEM NIL)) ((= I NUMBER-OF-BUILT-IN-SLOT-FROBBERS) (BQUOTE (PROGN (\,@ THEM)))) (LET ((ACCESSOR (CONCAT-STUFF (QUOTE \GET-) I)) (X-ACCESSOR (CONCAT-STUFF (QUOTE \X-GET-) I)) (SETTER (CONCAT-STUFF (QUOTE \SET-) I)) ( X-SETTER (CONCAT-STUFF (QUOTE \X-SET-) I))) (CL:PUSH (BQUOTE (PROGN (DEFUN (\, ACCESSOR) (X) (SVREF X (\, I))) (SETF (SVREF BUILT-IN-ACCESSORS (\, I)) (QUOTE (\, ACCESSOR))) (COMPILER::DEFTRANSFORM (\, ACCESSOR) (\, X-ACCESSOR) (X) (BQUOTE (SVREF (\, X) (\, (QUOTE (\, I)))))) (SETF (SVREF BUILT-IN-X-ACCESSORS (\, I)) (QUOTE (\, X-ACCESSOR))) (DEFUN (\, SETTER) (X Y) (SETF (SVREF X (\, I)) Y)) (SETF (SVREF BUILT-IN-SETTERS (\, I)) (QUOTE (\, SETTER))) (COMPILER::DEFTRANSFORM (\, SETTER) (\, X-SETTER) (X Y) (BQUOTE (SETF (SVREF (\, X) (\, (QUOTE (\, I)))) (\, Y)))))) THEM)))) (RPAQQ NUMBER-OF-BUILT-IN-SLOT-FROBBERS 20) (CONSTANTS (NUMBER-OF-BUILT-IN-SLOT-FROBBERS 20)) (RPAQ? BUILT-IN-ACCESSORS (MAKE-ARRAY NUMBER-OF-BUILT-IN-SLOT-FROBBERS)) (RPAQ? BUILT-IN-SETTERS (MAKE-ARRAY NUMBER-OF-BUILT-IN-SLOT-FROBBERS)) (RPAQ? BUILT-IN-X-ACCESSORS (MAKE-ARRAY NUMBER-OF-BUILT-IN-SLOT-FROBBERS)) (DEFSTRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-) (:PRINT-FUNCTION PRINT-DEFSTRUCT-DESCRIPTION)) NAME (* " name of the structure" *) DOC (* " documentation on the structure" *) SLOTS (* " list of slots" *) CONC-NAME (* " prefix for slot names" *) CONSTRUCTOR (* " name of standard constructor function" *) BOA-CONSTRUCTORS (* " name of by-position constructors" *) COPIER (* " name of copying function" *) PREDICATE (* " name of type predictate " *) INCLUDE (* " name of included structure" *) INCLUDED-BY (* " names of structures including this one" *) PRINT-FUNCTION (* " function used to print it" *) TYPE (* " type specified" *) LISP-TYPE (* " actual type used for implementation" *) NAMED (* " T if named, Nil otherwise" *) OFFSET (* " first slot's offset into implementation sequence" *) CL:LENGTH) (/DECLAREDATATYPE (QUOTE DEFSTRUCT-DESCRIPTION) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( DEFSTRUCT-DESCRIPTION 0 POINTER) (DEFSTRUCT-DESCRIPTION 2 POINTER) (DEFSTRUCT-DESCRIPTION 4 POINTER) ( DEFSTRUCT-DESCRIPTION 6 POINTER) (DEFSTRUCT-DESCRIPTION 8 POINTER) (DEFSTRUCT-DESCRIPTION 10 POINTER) (DEFSTRUCT-DESCRIPTION 12 POINTER) (DEFSTRUCT-DESCRIPTION 14 POINTER) (DEFSTRUCT-DESCRIPTION 16 POINTER) (DEFSTRUCT-DESCRIPTION 18 POINTER) (DEFSTRUCT-DESCRIPTION 20 POINTER) (DEFSTRUCT-DESCRIPTION 22 POINTER) (DEFSTRUCT-DESCRIPTION 24 POINTER) (DEFSTRUCT-DESCRIPTION 26 POINTER) ( DEFSTRUCT-DESCRIPTION 28 POINTER) (DEFSTRUCT-DESCRIPTION 30 POINTER))) (QUOTE 32)) (DEFSTRUCT (DEFSTRUCT-SLOT-DESCRIPTION (:CONC-NAME DSD-) (:PRINT-FUNCTION PRINT-DEFSTRUCT-SLOT-DESCRIPTION)) NAME (* " name of the slot" *) INDEX (* " its position in the implementation sequence" *) ACCESSOR (* " name of it accessor function" *) DEFAULT (* " default value" *) TYPE (* " declared type" *) READ-ONLY) (/DECLAREDATATYPE (QUOTE DEFSTRUCT-SLOT-DESCRIPTION) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((DEFSTRUCT-SLOT-DESCRIPTION 0 POINTER) (DEFSTRUCT-SLOT-DESCRIPTION 2 POINTER) ( DEFSTRUCT-SLOT-DESCRIPTION 4 POINTER) (DEFSTRUCT-SLOT-DESCRIPTION 6 POINTER) ( DEFSTRUCT-SLOT-DESCRIPTION 8 POINTER) (DEFSTRUCT-SLOT-DESCRIPTION 10 POINTER))) (QUOTE 12)) (DEFMACRO DEFSTRUCT (NAME-AND-OPTIONS &REST SLOT-DESCRIPTIONS) (DEFSTRUCT.EXPANDER NAME-AND-OPTIONS SLOT-DESCRIPTIONS)) (PUTPROPS DEFSTRUCT USERRECORDTYPE (LAMBDA (DEF) (LET ((DE (DEFSTRUCT.EXPANDER (CADR DEF) (CDDR DEF))) (BREAK1 NIL T)) (RESETVARS ((FILEPKGFLG)) (MAPC (CDR DE) (QUOTE EVAL))) (CAR DE)))) (MOVD (QUOTE RECORD) (QUOTE DEFSTRUCT)) (ADDTOVAR CLISPRECORDTYPES DEFSTRUCT) (PUTPROPS CMLDEFSTRUCT COPYRIGHT ("Xerox Corporation" 1985)) NIL