(FILECREATED "25-Mar-86 12:11:54" ("compiled on " {ERIS}CML>LAB>NEWDEFSTRUCT.;1) "13-Mar-86 13:23:18" recompiled ALL in "Xerox Lisp 13-Mar-86 ..." dated "13-Mar-86 13:45:15") (FILECREATED "25-Mar-86 12:11:18" {ERIS}CML>LAB>NEWDEFSTRUCT.;1 33571 changes to: (VARS NEWDEFSTRUCTCOMS) (RECORDS DEFSTRUCT-SLOT-DESCRIPTION DEFSTRUCT-DESCRIPTION) (PROPS (SYMBOL-FUNCTION SETFN) (CDR SETFN) (CAR SETFN)) (FNS SETF-CDR SETF-CAR DEFAULT-STRUCTURE-PRINT VECTOR-SUB-PREDICATE LIST-SUB-PREDICATE STRUCTURE-PREDICATE DEFINE-PREDICATE DEFINE-COPIER DEFINE-BOA-CONSTRUCTORS DEFINE-CONSTRUCTOR DEFINE-SETTERS DEFINE-ACCESSORS CONCAT-STUFF CONCAT-PNAMES* CONCAT-PNAMES PARSE-SLOT-DESCRIPTIONS PARSE-NAME-AND-OPTIONS PRINT-DEFSTRUCT-SLOT-DESCRIPTION DSD-NAME MAKE-DEFSTRUCT-SLOT-DESCRIPTION COPY-DEFSTRUCT-SLOT-DESCRIPTION DEFSTRUCT-SLOT-DESCRIPTION-P MAKE-DEFSTRUCT-DESCRIPTION COPY-DEFSTRUCT-DESCRIPTION DEFSTRUCT-DESCRIPTION-P)) CONCAT-STUFF D1 (P 0 *PRINT-CASE* I 1 THING2 I 0 THING1) gg@ A (26Q INTERN 23Q CONCATENATE 20Q PRINC-TO-STRING 14Q PRINC-TO-STRING) (10Q SIMPLE-STRING 2 :UPCASE) () COPY-DEFSTRUCT-DESCRIPTION D1 (I 0 obj) `@ (6 NCREATE2) (2 DEFSTRUCT-DESCRIPTIONTYPE#) () COPY-DEFSTRUCT-SLOT-DESCRIPTION D1 (I 0 obj) `@ (6 NCREATE2) (2 DEFSTRUCT-SLOT-DESCRIPTIONTYPE#) () DEFAULT-STRUCTURE-PRINT D1 (P 2 SLOTS P 1 CL:LENGTH P 0 INDEX I 2 DEPTH I 1 STREAM I 0 STRUCTURE F 3 *PRINT-LENGTH*) oA @j A k@ @j g ÉHI ©S²!HS ²HI ˜oA oA oA ¿J A ¿oA ¿@H A ¿HkÔJºX°¬(165Q PRIN1 161Q SVREF 153Q WRITE-CHAR 142Q PRIN1 136Q DSD-NAME 130Q WRITE-CHAR 117Q WRITE-STRING 106Q WRITE-STRING 75Q %%= 66Q %%= 55Q %%= 40Q GET 32Q SVREF 25Q CL:LENGTH 20Q PRIN1 14Q SVREF 7 WRITE-STRING) (43Q DEFSTRUCT-DESCRIPTION 35Q %%STRUCTURE-DEFINITION) ( 147Q |\SPACE 124Q |\SPACE 113Q "...)" 102Q ")" 3 "#S(") DEFSTRUCT-DESCRIPTION-P D1 (L (0 obj)) @`ðNIL (4 DEFSTRUCT-DESCRIPTIONTYPE#) () DEFSTRUCT-SLOT-DESCRIPTION-P D1 (L (0 obj)) @`ðNIL (4 DEFSTRUCT-SLOT-DESCRIPTIONTYPE#) () DSD-NAME D1 (I 0 DSD) @É @É (24Q INTERN 21Q SYMBOL-PACKAGE 10Q STRING) (14Q DEFSTRUCT-SLOT-DESCRIPTION 3 DEFSTRUCT-SLOT-DESCRIPTION) () DEFINE-ACCESSORS D1 (P 5 SLOT P 4 NAME P 3 INDEX P 2 STUFF P 1 TYPE P 0 SLOTS I 0 DEFSTRUCT F 6 BUILT-IN-ACCESSORS F 7 BUILT-IN-X-ACCESSORS) @É@ÉBHµJ]É¼MÉ»Igð²[jKó²VggggLhhggVK hhhgogggLhogWK hhh°nggLoggIoKhhgogLgL ogggggIhhoggKhhhhhhhJºHX±ÿ(266Q CONCAT-PNAMES* 171Q SVREF 114Q SVREF) (334Q QUOTE 331Q \, 311Q QUOTE 306Q \, 303Q THE 300Q CL:ELT 275Q BQUOTE 262Q X- 256Q COMPILER::DEFTRANSFORM 247Q EVAL-WHEN 223Q THE 220Q CL:ELT 210Q DEFUN 205Q PROGN 163Q QUOTE 146Q QUOTE 143Q GET 140Q SETF 131Q EVAL-WHEN 107Q QUOTE 104Q SYMBOL-FUNCTION 72Q QUOTE 67Q SYMBOL-FUNCTION 64Q SETF 61Q PROGN 46Q SIMPLE-VECTOR 37Q DEFSTRUCT-SLOT-DESCRIPTION 30Q DEFSTRUCT-SLOT-DESCRIPTION 11Q DEFSTRUCT-DESCRIPTION 3 DEFSTRUCT-DESCRIPTION) ( 324Q ((\, STRUCTURE)) 272Q (STRUCTURE) 253Q (CL:COMPILE LOAD EVAL) 230Q (STRUCTURE) 215Q (STRUCTURE) 156Q ((QUOTE COMPILER::CLC-TRANSFORMS)) 135Q (CL:COMPILE LOAD EVAL)) CONCAT-PNAMES D1 (I 1 NAME2 I 0 NAME1) @²g@ A A(23Q INTERN 20Q CONCATENATE 15Q SYMBOL-NAME 11Q SYMBOL-NAME) (5 SIMPLE-STRING) () CONCAT-PNAMES* D1 (I 1 NAME2 I 0 NAME1) @²g@ A A(23Q MAKE-SYMBOL 20Q CONCATENATE 15Q SYMBOL-NAME 11Q SYMBOL-NAME) (5 SIMPLE-STRING) () DEFINE-BOA-CONSTRUCTORSA0001 D1 (I 0 SLOT F 0 SLOTS-IN-ARGLIST) @ P ”@ @É(14Q DSD-NAME 7 MEMQ 3 DSD-NAME) (21Q DEFSTRUCT-SLOT-DESCRIPTION) () DEFINE-BOA-CONSTRUCTORS D1 (P 17Q SETS P 16Q TEMP P 15Q INDEX P 14Q THINGS P 13Q A0054 P 12Q THING P 11Q INITIAL-CRUFT P 10Q ARG P 7 ARG-KIND P 6 ARGS P 5 DEFUNS P 4 SLOTS-IN-ARGLIST P 3 SLOTS P 2 ARGS P 1 NAME P 0 BOAS I 0 DEFSTRUCT) ·@ÉH¹H 1@É»H¡MJgNµP@É gK gIJ@Égð¢±—g@É´g@ÉhhOO ±ò_ ²[Oo –O_¿°POOgð¯Ogð¨Odgð—¿OL\°$gð²OL¼NOdKggÉh¿…OL¼N^±ÿF@É²"ggg@ÉhOO h°\@ÉgðœgOO °DOjO³ZgOg@Égg@ÉhhhhOOh hM]HX¹H º@É»h¼±þ•ggOoOhO_¿OOkÔ_¿_±ÿ(576Q \APPEND2 545Q \APPEND2 454Q GENSYM 443Q \APPEND2 407Q \APPEND2 316Q CL:FIND 212Q MEMQ 177Q CL:ATOM 165Q \APPEND2 162Q \APPEND2 74Q CL:MAPCAR 65Q MAKE-LIST 23Q \APPEND2) (621Q AREF 616Q SETF 603Q DEFSTRUCT-DESCRIPTION 513Q DEFSTRUCT-DESCRIPTION 507Q QUOTE 504Q :ELEMENT-TYPE 477Q DEFSTRUCT-DESCRIPTION 473Q MAKE-ARRAY 466Q LET 434Q VECTOR 427Q VECTOR 422Q DEFSTRUCT-DESCRIPTION 373Q DEFSTRUCT-DESCRIPTION 367Q QUOTE 364Q VECTOR 361Q STRUCTURIFY 352Q DEFSTRUCT-DESCRIPTION 321Q DEFSTRUCT-SLOT-DESCRIPTION 313Q DSD-NAME 310Q :KEY 270Q &OPTIONAL 253Q &AUX 243Q &REST 234Q REQUIRED 144Q DEFSTRUCT-DESCRIPTION 140Q QUOTE 131Q DEFSTRUCT-DESCRIPTION 125Q LIST 115Q LIST 110Q DEFSTRUCT-DESCRIPTION 102Q DEFUN 70Q DEFINE-BOA-CONSTRUCTORSA0001 60Q DEFSTRUCT-DESCRIPTION 45Q REQUIRED 32Q DEFSTRUCT-DESCRIPTION 3 DEFSTRUCT-DESCRIPTION) ( 627Q (INDEX) 207Q (&OPTIONAL &REST &AUX)) DEFINE-CONSTRUCTORA0001 D1 (I 0 SLOT) @ @Éh(3 DSD-NAME) (7 DEFSTRUCT-SLOT-DESCRIPTION) () DEFINE-CONSTRUCTOR D1 (P 10Q SLOT P 7 SETS P 6 TEMP P 5 SLUTS P 4 ARGS P 3 ARG-NAMES P 2 SLOTS P 1 INITIAL-CRUFT P 0 NAME I 0 DEFSTRUCT) @ÉH´‚±ã@É @ÉºgJ gJ gHgL@Égð²&g@É´g@ÉhhIK °{@É² ggg@ÉhIK h°U@ÉgðšgIK °?JMµ=gNg@Égg@ÉhhhhONh hhggNOÉhO hO_M]°›(413Q DSD-NAME 345Q \APPEND2 257Q GENSYM 250Q \APPEND2 216Q \APPEND2 154Q \APPEND2 151Q \APPEND2 63Q CL:MAPCAR 51Q CL:MAPCAR 30Q MAKE-LIST) (400Q DEFSTRUCT-SLOT-DESCRIPTION 372Q AREF 367Q SETF 314Q DEFSTRUCT-DESCRIPTION 310Q QUOTE 305Q :ELEMENT-TYPE 300Q DEFSTRUCT-DESCRIPTION 274Q MAKE-ARRAY 270Q LET 243Q VECTOR 236Q VECTOR 231Q DEFSTRUCT-DESCRIPTION 204Q DEFSTRUCT-DESCRIPTION 200Q QUOTE 175Q VECTOR 172Q STRUCTURIFY 163Q DEFSTRUCT-DESCRIPTION 135Q DEFSTRUCT-DESCRIPTION 131Q QUOTE 122Q DEFSTRUCT-DESCRIPTION 116Q LIST 110Q LIST 103Q DEFSTRUCT-DESCRIPTION 75Q &KEY 71Q DEFUN 57Q DEFINE-CONSTRUCTORA0001 45Q DSD-NAME 37Q DEFSTRUCT-DESCRIPTION 23Q DEFSTRUCT-DESCRIPTION 3 DEFSTRUCT-DESCRIPTION) () DEFINE-COPIER D1 (L (0 DEFSTRUCT)) –@É´‚±‹@dÉgð²+¿@dÉ²!¿ggg@ÉhhohÉgð² ggg@Éhhohg@Éogg@ÉohhhNIL (201Q DEFSTRUCT-DESCRIPTION 175Q THE 172Q COPY-SEQ 161Q DEFSTRUCT-DESCRIPTION 155Q DEFUN 131Q DEFSTRUCT-DESCRIPTION 125Q QUOTE 122Q SYMBOL-FUNCTION 117Q SETF 111Q LIST 104Q DEFSTRUCT-DESCRIPTION 60Q DEFSTRUCT-DESCRIPTION 54Q QUOTE 51Q SYMBOL-FUNCTION 46Q SETF 36Q DEFSTRUCT-DESCRIPTION 25Q SIMPLE-VECTOR 20Q DEFSTRUCT-DESCRIPTION 3 DEFSTRUCT-DESCRIPTION) ( 207Q (STRUCTURE) 167Q (STRUCTURE) 145Q ((SYMBOL-FUNCTION (QUOTE COPY-LIST))) 74Q ((SYMBOL-FUNCTION (QUOTE BUILT-IN-COPIER)))) DEFINE-PREDICATE D1 (L (0 DEFSTRUCT)) P@É@ÉI´>@É´6gggIhhhgIogggHhhhhNIL (75Q QUOTE 72Q OBJECT 67Q TYPEP 57Q DEFUN 42Q INLINE 37Q QUOTE 34Q PROCLAIM 25Q DEFSTRUCT-DESCRIPTION 11Q DEFSTRUCT-DESCRIPTION 3 DEFSTRUCT-DESCRIPTION) ( 64Q (OBJECT)) DEFINE-SETTERS D1 (P 5 INDEX P 4 NAME P 3 SLOT P 2 STUFF P 1 TYPE P 0 SLOTS I 0 DEFSTRUCT F 6 BUILT-IN-SETTERS) ÷@É@É"HµJ»gKÉ KÉ½KÉ’±¼Igð²jMó²gKÉVM h±˜ggLogggIoMhohgogLgL oggggggIhhoggMhhhohhhgKÉLhhJºHX±ÿ(221Q CONCAT-PNAMES* 117Q SVREF 41Q CONCAT-PNAMES*) (337Q DEFSTRUCT-SLOT-DESCRIPTION 333Q DEFSETF 272Q QUOTE 267Q \, 247Q QUOTE 244Q \, 241Q THE 236Q CL:ELT 233Q SETF 230Q BQUOTE 215Q X- 211Q COMPILER::DEFTRANSFORM 202Q EVAL-WHEN 150Q THE 145Q CL:ELT 142Q SETF 132Q DEFUN 127Q PROGN 110Q DEFSTRUCT-SLOT-DESCRIPTION 104Q DEFSETF 71Q SIMPLE-VECTOR 57Q DEFSTRUCT-SLOT-DESCRIPTION 50Q DEFSTRUCT-SLOT-DESCRIPTION 34Q DEFSTRUCT-SLOT-DESCRIPTION 30Q SET- 11Q DEFSTRUCT-DESCRIPTION 3 DEFSTRUCT-DESCRIPTION) ( 311Q ((\, NEW-VALUE)) 262Q ((\, STRUCTURE)) 225Q (STRUCTURE NEW-VALUE) 206Q (CL:COMPILE LOAD EVAL) 170Q (NEW-VALUE) 155Q (STRUCTURE) 137Q (STRUCTURE NEW-VALUE)) LIST-SUB-PREDICATE D1 (P 1 DD P 0 OBJ-NAME I 1 TYPE I 0 OBJECT) )@Hlð´Hg I´AIÉ hðhð(42Q MEMQ 22Q GET) (35Q DEFSTRUCT-DESCRIPTION 17Q %%STRUCTURE-DEFINITION) () MAKE-DEFSTRUCT-DESCRIPTION D1 (P 63Q ORIGINAL-FORM P 60Q LENGTH P 55Q OFFSET P 52Q NAMED P 47Q LISP-TYPE P 44Q TYPE P 41Q PRINT-FUNCTION P 36Q INCLUDES P 33Q INCLUDE P 30Q PREDICATE P 25Q COPIER P 22Q BOA-CONSTRUCTORS P 17Q CONSTRUCTOR P 14Q CONC-NAME P 11Q SLOTS P 6 DOC P 3 NAME P 0 \CL:LAMBDA.ARGCNT) „4eHkJdIó—¿hd³°agð”JkØ°ñJlÔZ°äañð!ð003Hk½¼MdLó–¿hd³°agð”MkØ°òMlÔ]°åa¾Hk_¿_¿OdOó–¿hd³°agð•OkØ°ñOlÔ_°áa_¿Hk_¿_¿OdOó–¿hd³°agð•OkØ°ñOlÔ_°áa_¿Hk_¿_¿OdOó–¿hd³°agð•OkØ°ñOlÔ_°áa_¿Hk_"¿_ ¿O"dO ó–¿hd³°agð•O"kØ°ñO"lÔ_"°áa_$¿Hk_(¿_&¿O(dO&ó–¿hd³°agð•O(kØ°ñO(lÔ_(°áa_*¿Hk_.¿_,¿O.dO,ó–¿hd³°agð•O.kØ°ñO.lÔ_.°áa_0¿Hk_4¿_2¿O4dO2ó–¿hd³°agð•O4kØ°ñO4lÔ_4°áa_6¿Hk_:¿_8¿O:dO8ó–¿hd³°agð•O:kØ°ñO:lÔ_:°áa_<¿Hk_@¿_>¿O@dO>ó–¿hd³°agð•O@kØ°ñO@lÔ_@°áa_B¿Hk_F¿_D¿OFdODó–¿hd³°agð•OFkØ°ñOFlÔ_F°áa_H¿Hk_L¿_J¿OLdOJó–¿hd³°agð•OLkØ°ñOLlÔ_L°áa_N¿Hk_R¿_P¿ORdOPó–¿hd³°agð•ORkØ°ñORlÔ_R°áa_T¿Hk_X¿_V¿OXdOVó–¿hd³°agð•OXkØ°ñOXlÔ_X°áa_Z¿Hk_^¿_\¿O^dO\ó–¿hd³°agð•O^kØ°ñO^lÔ_^°áa_`¿Hk_d¿_b¿OddObó–¿hd³°agð•OdkØ°ñOdlÔ_d°áa_f¿`dO`¿dOZ¿dOT¿dON¿dOH¿dOB ¿dO<¿dO6¿dO0¿dO*¿dO$¿dO¿dO¿dO¿dN¿dK¿dOf ¿NIL (1434Q DEFSTRUCT-DESCRIPTIONTYPE# 1404Q :ORIGINAL-FORM 1325Q :LENGTH 1246Q :OFFSET 1167Q :NAMED 1110Q :LISP-TYPE 1031Q :TYPE 752Q :PRINT-FUNCTION 673Q :INCLUDES 614Q :INCLUDE 535Q :PREDICATE 456Q :COPIER 377Q :BOA-CONSTRUCTORS 320Q :CONSTRUCTOR 241Q :CONC-NAME 162Q :SLOTS 110Q :DOC 31Q :NAME) () MAKE-DEFSTRUCT-SLOT-DESCRIPTION D1 (P 22Q READ-ONLY P 17Q TYPE P 14Q DEFAULT P 11Q ACCESSOR P 6 INDEX P 3 %%NAME P 0 \CL:LAMBDA.ARGCNT) 4eHkJdIó—¿hd³°agð”JkØ°ñJlÔZ°äañHk½¼MdLó–¿hd³°agð”MkØ°òMlÔ]°åa¾Hk_¿_¿OdOó–¿hd³°agð•OkØ°ñOlÔ_°áa_¿Hk_¿_¿OdOó–¿hd³°agð•OkØ°ñOlÔ_°áa_¿Hk_¿_¿OdOó–¿hd³°agð•OkØ°ñOlÔ_°áa_¿Hk_"¿_ ¿O"dO ó–¿hd³°agð•O"kØ°ñO"lÔ_"°áa_$¿`dO$¿dO¿dO¿dO¿dN¿dK ¿NIL (416Q DEFSTRUCT-SLOT-DESCRIPTIONTYPE# 366Q :READ-ONLY 307Q :TYPE 230Q :DEFAULT 151Q :ACCESSOR 77Q :INDEX 31Q :%%NAME) () PARSE-NAME-AND-OPTIONS D1 (P 21Q A0061 P 20Q ARGS P 17Q OPTION P 16Q A0060 P 15Q OFFSET P 14Q SAW-NAMED P 13Q TYPE P 12Q SAW-TYPE P 11Q INCLUDE P 10Q PREDICATE P 7 COPIER P 6 BOA-CONSTRUCTORS P 5 SAW-CONSTRUCTOR P 4 CONSTRUCTOR P 3 CONC-NAME P 2 PRINT-FUNCTION P 1 NAME P 0 OPTIONS I 1 ORIGINAL-FORM I 0 NAME-AND-OPTIONS) Á@ •@hb€@!@¹gºIg gI !gI Ig Q g_¿j_¿Hµ‚±gIgAgKgLgNgOgOgOgJgOgOdgð•¿g°gð”g°Od²µoO gO²O°gð²çgO°çigO ²CHOdgðœ¿i½gI \°$gð³Ogð³Ogð“i_ˆoH ¿±¨HHO_"dgð—¿O [±Œgð²O d›¿M¡h¼O N^°t\°pO"dgð—¿O _°`gð–O _°TO"dgð–¿O _°Egð•O Z°:O"dgð›¿i_¿O _°&gð˜o °O"gð•O _ˆoO HX±þ(670Q CL:ERROR 640Q CL:ERROR 417Q CL:ERROR 352Q CONCAT-PNAMES 321Q CL:ATOM 314Q MAKE-DEFSTRUCT-DESCRIPTION 247Q CL:ERROR 73Q CONCAT-PNAMES 61Q CONCAT-PNAMES 47Q CONCAT-PNAMES 35Q CONCAT-PNAMES 3 CL:ATOM) (647Q :INITIAL-OFFSET 627Q :NAMED 606Q :TYPE 570Q :PRINT-FUNCTION 554Q :INCLUDE 535Q :PREDICATE 520Q :COPIER 462Q :CONSTRUCTOR 445Q :CONC-NAME 400Q :NAMED 370Q :PREDICATE 360Q :COPIER 346Q MAKE- 336Q :CONSTRUCTOR 306Q :OFFSET 274Q SIMPLE-ARRAY 266Q VECTOR 252Q :NAMED 224Q LIST 217Q LIST 212Q SIMPLE-VECTOR 204Q VECTOR 176Q :LISP-TYPE 171Q :TYPE 165Q :PRINT-FUNCTION 160Q :INCLUDE 153Q :PREDICATE 146Q :COPIER 142Q :BOA-CONSTRUCTORS 136Q :CONSTRUCTOR 132Q :CONC-NAME 126Q :ORIGINAL-FORM 122Q :NAME 101Q VECTOR 70Q -P 55Q COPY- 43Q MAKE- 32Q - 25Q DEFAULT-STRUCTURE-PRINT) ( 663Q "~S is an unknown Defstruct option." 635Q "The Defstruct option :NAMED takes no arguments." 412Q "The Defstruct option ~S cannot be used with 0 arguments." 242Q "~S is a bad :TYPE for Defstruct.") PARSE-SLOT-DESCRIPTIONSA0001 D1 (I 0 SLOT) %@ @Ég@Ég@Éh(3 DSD-NAME) (31Q DEFSTRUCT-SLOT-DESCRIPTION 25Q :READ-ONLY 20Q DEFSTRUCT-SLOT-DESCRIPTION 14Q :TYPE 7 DEFSTRUCT-SLOT-DESCRIPTION) () PARSE-SLOT-DESCRIPTIONSA0002 D1 (I 0 X) @ ‘@@(3 CL:ATOM) NIL () PARSE-SLOT-DESCRIPTIONS D1 (P 33Q READ-ONLY P 32Q TYPE P 31Q DEFAULT P 30Q NAME P 27Q OPTIONS P 26Q NAME P 25Q SLOT P 23Q DESCRIPTIONS P 22Q INDEX P 21Q SLOTS P 20Q A0071 P 17Q A0072 P 16Q A0069 P 15Q A0070 P 14Q A0068 P 13Q OPTIONS P 12Q A0065 P 11Q A0066 P 10Q A0063 P 7 A0064 P 6 MODIFIEE P 5 ISLOT P 4 ISLOTS* P 3 ISLOTS P 2 MODIFIED-SLOTS P 1 INCLUDED-THING P 0 INCLUDED-NAME I 1 SLOTS I 0 DEFSTRUCT) )A@A¿Ab¿@É²p@ÉHg µ Hg @ÉºI¨oH ¿@IÉIÉ¿@IÉ¿gIÉ K\µ!KA bA@É@É¢±¿k±¼MJgggg NµL°½dlðŸ¿MOO °æ“N²áM N_¿OO N²ÉNOµ°¼_dgð²¿MO_¿OO °,gð²MO_ ¿OO ŠoO ¿O_°¨jÔ"O"µ@O$@O& _(O(O* ²-O*gO, gO$g@ÉO, gi °DO*O*O*iO.µFgO0 gO$g@ÉO0 gO2gO4gO6 O&_&O"O$kÔ_$¿_"±ÿ\dgð˜¿O._4¿‹gð–O._6¿O._.°˜(755Q MAKE-DEFSTRUCT-SLOT-DESCRIPTION 732Q CONCAT-PNAMES 707Q STRING 651Q MAKE-DEFSTRUCT-SLOT-DESCRIPTION 641Q CONCAT-PNAMES 616Q STRING 577Q CL:ATOM 557Q CL:NREVERSE 514Q CL:ERROR 500Q SETF-CAR 440Q SETF-CAR 355Q SETF-CAR 323Q SETF-CAR 264Q CL:FIND 203Q \NCONC2 167Q CL:MAPCAR 111Q CL:ERROR 64Q GET 53Q GET) (1026Q :READ-ONLY 1010Q :TYPE 747Q :READ-ONLY 742Q :TYPE 735Q :DEFAULT 723Q DEFSTRUCT-DESCRIPTION 717Q :ACCESSOR 712Q :INDEX 702Q :%%NAME 644Q :TYPE 632Q DEFSTRUCT-DESCRIPTION 626Q :ACCESSOR 621Q :INDEX 611Q :%%NAME 552Q DEFSTRUCT-DESCRIPTION 542Q DEFSTRUCT-DESCRIPTION 446Q :READ-ONLY 407Q :TYPE 260Q STRING= 255Q :TEST 252Q PARSE-SLOT-DESCRIPTIONSA0002 247Q :KEY 223Q DEFSTRUCT-DESCRIPTION 215Q DEFSTRUCT-DESCRIPTION 162Q DEFSTRUCT-DESCRIPTION 156Q PARSE-SLOT-DESCRIPTIONSA0001 146Q DEFSTRUCT-DESCRIPTION 142Q DEFSTRUCT-DESCRIPTION 130Q DEFSTRUCT-DESCRIPTION 122Q DEFSTRUCT-DESCRIPTION 116Q DEFSTRUCT-DESCRIPTION 73Q DEFSTRUCT-DESCRIPTION 61Q %%STRUCTURE-DEFINITION 50Q %%STRUCTURE-DEFINITION-IN-COMPILER 36Q DEFSTRUCT-DESCRIPTION 26Q DEFSTRUCT-DESCRIPTION 10Q DEFSTRUCT-DESCRIPTION) ( 506Q "Bad option in included slot spec: ~S." 105Q "Cannot find description of structure ~S to use for inclusion.") PRINT-DEFSTRUCT-SLOT-DESCRIPTION D1 (I 2 DEPTH I 1 STREAM I 0 STRUCTURE) Ao@ (13Q FORMAT 10Q DSD-NAME) NIL ( 4 "#") SETF-CAR D1 (L (1 Y 0 X)) @AANIL NIL () SETF-CDR D1 (L (1 Y 0 X)) @AANIL NIL () STRUCTURE-PREDICATE D1 (I 1 TYPE I 0 OBJECT) Ag µAg µg@gAhhÉgð²