;"I(U*U*UCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCQUOTE;Loading DEFSTRUCT 280u*TxEXPLODENIMPLODEDEFSTRUCT-RETRY-KEYWORDSUBR,8,8[ 80N+Z+ g-,u*U/,x`DEFPROPDEFSTRUCT-DESCRIPTION-PRINTDEFSTRUCT-DESCRIPTIONPRINTDEFSTRUCT-SLOTu+U.u xDEFSTRUCT-EXPAND-REF-MACROMACRO xDEFSTRUCT-DESCRIPTION-COPIERCOPIER  x xDEFSTRUCT-DESCRIPTION-PREDICATEW:UnUPREDICATE  x xDEFSTRUCT-DESCRIPTION-SIZE-SYMBOLSIZE-SYMBOL  x xDEFSTRUCT-DESCRIPTION-SIZE-MACROSIZE-MACROw*]jW  x xDEFSTRUCT-DESCRIPTION-CALLABLE-ACCESSORSCALLABLE-ACCESSORS x xDEFSTRUCT-DESCRIPTION-CONC-NAMECONC-NAME xu+]*w xDEFSTRUCT-DESCRIPTION-ALTERANTALTERANT x xDEFSTRUCT-DESCRIPTION-EVAL-WHENEVAL-WHEN x xU;U.uDEFSTRUCT-DESCRIPTION-INITIAL-OFFSETINITIAL-OFFSET x xDEFSTRUCT-DESCRIPTION-INCLUDEINCLUDE x xDEFSTRUCT-DESCRIPTION-NAMEW:UnUNAME x xDEFSTRUCT-DESCRIPTION-PROPERTY-ALISTPROPERTY-ALIST x xDEFSTRUCT-DESCRIPTION-SIZESIZEw*]jW x xDEFSTRUCT-DESCRIPTION-BUT-FIRSTBUT-FIRST x xDEFSTRUCT-DESCRIPTION-DEFAULT-POINTERDEFAULT-POINTER xu+]*w xDEFSTRUCT-DESCRIPTION-CONSTRUCTORSCONSTRUCTORS x xDEFSTRUCT-DESCRIPTION-NAMED-PNAMED-P x xU;U.uDEFSTRUCT-DESCRIPTION-SLOT-ALISTSLOT-ALIST x xDEFSTRUCT-DESCRIPTION-DUMMYDUMMY x xDEFSTRUCT-DESCRIPTION-TYPEW:UnUTYPE x xDEFSTRUCT-DESCRIPTION-VERSIONVERSION x xMAKE-DEFSTRUCT-DESCRIPTIONDEFSTRUCT-NAMEu:U*U xDEFSTRUCT-EXPAND-CONS-MACRO xONELISTNOTYPE%%DEFSTRUCT-EMPTY%%U*U*UU*U*UEVALCOMPILELOADU*U*W    DESCRIPTION DEFSTRUCT-DESCRIPTION-!!"!"##"$#"$#"%#"%#"&"&"'#"'"(#"(#")"")**+"+#",","-"  -"  ."  ." /" /0"**+0 xU*TGET-- a structure with this name has not been defined.ERROR-- the internal description of this structure is incompatible with the currently loaded version of defstruct, you will need to recompile its definition.GET-DEFSTRUCT-DESCRIPTION,8 $1,8@ 5B , ,8,8,8g~",<2+[ D1D!+ ,,8,8,8g~",<2+ :U/,x120DEFSTRUCT-SLOT-DESCRIPTION-REF-MACRO-NAMEDEFSTRUCT-SLOT-DESCRIPTIONREF-MACRO-NAMEw+].u344 x3 xDEFSTRUCT-SLOT-DESCRIPTION-PROPERTY-ALIST54 x5 xDEFSTRUCT-SLOT-DESCRIPTION-TYPE54 x5 xDEFSTRUCT-SLOT-DESCRIPTION-INIT-CODEW:UnUINIT-CODE646 x6 xDEFSTRUCT-SLOT-DESCRIPTION-PPSSPPSS747 x7 xDEFSTRUCT-SLOT-DESCRIPTION-NUMBERNUMBERw+]*u848 x8 xMAKE-DEFSTRUCT-SLOT-DESCRIPTION94 x9 xSLOT-DESCRIPTIONDEFSTRUCT-SLOT-DESCRIPTION-4!!8"#"87#"76$#"6$""5%"54%#"399&4"**+: xDEFSTRUCT-TYPE-DESCRIPTION-COPIERW:]jWDEFSTRUCT-TYPE-DESCRIPTION:; x: xDEFSTRUCT-TYPE-DESCRIPTION-PREDICATE;; x; xDEFSTRUCT-TYPE-DESCRIPTION-DEFSTRUCT-EXPANDERDEFSTRUCT-EXPANDER<;< xu+]*w< xDEFSTRUCT-TYPE-DESCRIPTION-OVERHEADOVERHEAD=;= x= xDEFSTRUCT-TYPE-DESCRIPTION-NAMED-TYPENAMED-TYPE>;> x> xU;U.uDEFSTRUCT-TYPE-DESCRIPTION-CONS-KEYWORDSCONS-KEYWORDS?;? x? xDEFSTRUCT-TYPE-DESCRIPTION-CONS-FLAVORCONS-FLAVOR@;@ x@ xDEFSTRUCT-TYPE-DESCRIPTION-CONS-EXPANDERW:UnUCONS-EXPANDERA;A xA xDEFSTRUCT-TYPE-DESCRIPTION-REF-NO-ARGSREF-NO-ARGSB;B xB xDEFSTRUCT-TYPE-DESCRIPTION-REF-EXPANDERREF-EXPANDERw+]*uC;C xC xMAKE-DEFSTRUCT-TYPE-DESCRIPTIOND; xD xTYPE-DESCRIPTIONDEFSTRUCT-TYPE-DESCRIPTION-;!!C"#"CB##"BA$#"A@$#"@?%"?>%">=&""=<&"< '"; '":DD(;"**+E xDEFSTRUCTW*U*UDEFSTRUCT MACROEF xLENGTH-- wrong number of args in macro formDEFSTRUCT-PARSE-OPTIONSNTHDEFSTRUCT-PARSE-ITEMSDEFSTRUCT-DEFINE-PRINTER*APPENDU*U*U-- this defstruct type cannot produce a predicate.IN-- this defstruct type cannot produce a copying function.INVOKE-DEFSTRUCT-CONSTRUCTOR-EXPANDERXDEFUNDEFSTRUCT-EXPAND-ALTER-MACRODEFSTRUCT-EXPAND-SIZE-MACRODEFCONSTU(DEFSTRUCT-DEFINE-REF-MACROS*NCONCDISPLACE,8F0n+ ,,8`,84,8g",<2Z`[Z,8,8A*G,8 $;Z[1,8 g!@0 "(H,8 g g~H,8 g-,2H $-, $-,,8 g~!D0 "/H4B- g~ "/H $ gIC `-, B` g~ "&H4B4 g~!@ "&H,8 g}C` gI Bg/0` g~ "+H g~,8 "-H g} C,8 "-H g},8 ".H g|,8!@ ".H,87@g+L g| "'H5BHd ,H,8,84 g{-, $J-,@Zgz[-,,8",<2 g,8 0 g{E` g}-, Bg}/7@` +t,<,< g| "'H,84BR g g{E`+qZg{[8 8 "+ @1BS+ @4B @g @` "*g~-,,8,86@`+ P@ 7@g+ O g-,,8 gi,80 g~-, $,XI,X-,  $z-,,8 g}-,,X-,0@ + O g~+ _ g}[`Ze4B S@` g+ ][`[-, g-,` g~-, $-,,8[gZ @0-,,X-, $-, g0-,Z` Bg D`+ B/,x]:]*P` 2SFA-FUNCTIONS^xSFA-NAMES^xSFA-CREATESFA-STORESFA-DEFSTRUCT-CONS,8!,8,8* "h5B f $ "'H  $ "hZ5B j $ "(H-,2@ $-, $,8 "'H,8 C g "h5B r $ "'H $ "02hZ5B v $ "(H-, $@-,-,,X-,,X-,2@ $-,*g-,,8 ,P,8,86@g+ 7@g+ `-,,8 gi,8 g-, d $,XI,X-, $z-,@,8 g}-,,X-,+ g} 0+ [gZ5B g+ -,[gd[-, `-, $-, g-,Zg Bg Dg+ }/j@`,x `SFA-GETSFA-DEFSTRUCT-REF-, $-, *u $-,,x  SFASFA-DEFSTRUCT-PREDICATE#x";xPNAMEU(EQSFAPAND,8,8* "'H $!@ C "hZ5B g "(H-,  P2 $-,-,Lz *`+?R-, $J -,-,Lz R64-, $-,0 `-,Lz =$f-,,X-,  U $L-,/,x0 No slots in hunk type defstruct.HUNK-DEFSTRUCT-CONS@ ,84B .[-, $Z`O $f -,+ 1 , 1,8,8 2",<2/0u ,x` )CXRHUNK-DEFSTRUCT-REF*-,`_ $-, $-,,xp 2f#!f";xP(02NAMED-HUNK-DEFSTRUCT-CONS,8,84B ? "(H-, $`-,,8[g-, $ZgOa!,X-, $f-,+ D "(H P2-, $-,z :w-, $fA:-,/,xx 6NAMED-HUNK-DEFSTRUCT-REF,8,8@ @2 5N J*-, $"-, $0-,+ O..*,<-, $p -, $-,//kU ,x ENAMED-HUNK-DEFSTRUCT-PREDICATEf#!f#;xCARHUNKP*,8 "(`2H-, $-,-,Lz N@ (-, $-,-,Lz O:Rt-,2@e $-,-,Lz =$f-,`],X-, $L-,,x PVECTORUw*XCONSVECTOR-DEFSTRUCT-CONS $$0 \VREFVECTOR-DEFSTRUCT-REF-,`] $-, $-,,x@ ]NAMED-VECTORu #!";xNAMED-VECTOR-DEFSTRUCT-CONS,8 "(H-, $-,0H,X-, $-,,xP `P NAMED-VECTOR-DEFSTRUCT-REF ..-, -, $-,2A:u $-,,xX fNAMED-VECTOR-DEFSTRUCT-PREDICATE#!#;xVECTORP`d*,8 "(H-, $-, @0-,L"z Ry71@-, $-,-,2AHLz ~*u-, $-,-,(dLz =$f-,,X-, $L-,i:,x` jLIST-DEFSTRUCT-CONS $!$p wLIST-DEFSTRUCT-REF*-,0H $-, $H-,,xx xU:U 0NAMED-LISTLIST-DEFSTRUCT-COPIER!#! " ;xPROG1SETQCDR,<* ,8 "'H,8 ,8 `0n+ g  P0 "!-,-,Lz =$f-, g (-, $L-,+ g!L!L"Lz_S+|-,0 `/. Np *p Bg J`+ /0 :/,xLxN/3  {NAMED-LIST-DEFSTRUCT-CONS,8 "(`H-, $-,,X-,  $!-,,x(  NAMED-LIST-DEFSTRUCT-REF ..*d,<-, $p-, $H-,u./,x0 NAMED-LIST-DEFSTRUCT-PREDICATENAMED-LIST-DEFSTRUCT-COPIER ##"! ##$;x,<,8 $,8 "'H,8.,8 `0n`d+' g "(H-, $-,`2 g-, $!-,-,!L"Lz y!4  2-,Lz =$f-, g~-, $L -,+, g!L!L"Lz_S+|-, `/. Np *p Bg J`+//n@,xLxN/3 @TYPEP*,8 "(H-,2@e $-,-,Lz N@-,  P2 $-,-,$L!z i,z=b-, $J-,-,Lz =$f-,,X-,2A:R $L-,,x8.LIST*LIST*-DEFSTRUCT-CONS $%h $X ;LIST*-DEFSTRUCT-REF,<,8 "'H /. Np *p,8,8 g2.(+F* @0-, g-, $H-,+Id*-, g-, $Q-,A:W//,x` <LIST*-DEFSTRUCT-EXPANDLIST*-DEFSTRUCT-COPIER%&#%!"&';x1,<*,8 "'H,8[,8 `A`20n+U g "%-,-,Lz =$f @0-, g-, $L-,+ZA@ g!L!L"Lz_S+|-, `/. Np *p BgA@`- J`+N//,xLx=$fpJP-- structure of type list* cannot include another.,8 $ "(H4Bc ,c,8,8d 4 g "(H,8",<2 "/.U ,x'h\-- defstruct cannot make an empty tree.MAKE-TREE-FOR-DEFSTRUCTTREE-DEFSTRUCT-CONS,8,85Bj ,j,8,8m "(H,8",<2,X!@KP "'H $,X$(( eTREE-DEFSTRUCT-REF,<00,<,8 "'H,8 "-,0@`0,8,<,<,8 g=Nv g+ g&. Np "p g~ B`@ @02.+~ g-, $-, Bg2 `-, Bg+t g-, $"-, g/` Nw *w g~/` Nw~ (w~ Bg Hg~ Jg+t//jUj,x nTREETREE-DEFSTRUCT-EXPANDTREE-DEFSTRUCT-COPIER*)#)!"*+;xCOPY-TREE-FOR-DEFSTRUCT*,8!A( "'H $ "+-,Lz =$f-,0H,X-, $L-,,x0P-- structure of type tree cannot include another.,8 $ "(H4B ,,8,8 4 g "(H,8",<2 "/, ,x,(-,~,8,8 =N@[+5 0N+!Z[-,a[g-, $}-,+5Z&. &0/0 Nw *w Pw (w,8,80,8 g5N1 ` g~( g~/`,<`` $p,8 g~(-,,X-,   $}-,/+4/. Np "p `0Zg Bg Dg+'///0,,x,8,8 =N:6@7W @( "L+V 0N+>6@7X}L"Lz.$`+V04BL&.,< $p "S+ `&. `00/,< $p,8 "+-,,X (-, $}-,-,Lz =$f-,2J $z-,!L!L"Lz VoU~-,/0+V&.,< $p "S+ `&. `00/,< $p,8 "+-,,X -, $}-,//Vu ,x!L!L"Lx_S+|zL}L"L!L!L"Lx}>s>86-- structure of type fixnum must have exactly 1 slot to be constructable.FIXNUM-DEFSTRUCT-CONS,8,84B[DCZ4H_ ,_,8,8` "(H,8",@KP<2[g/,x,P XFIXNUM-DEFSTRUCT-REF "/U*u+X a-#-!";xFBOUNDPSPECIAL*DEFSTRUCT-EXAMINE&DEPOSIT-ARG*.../xDEFSTRUCT-EXAMINE&DEPOSIT-FIND-SLOT-DESCRIPTIONUD*EVALDEFSTRUCT-EXAMINE-,/**/,8  "/-, $Z`-, [* ]-,0/+ b*DEFSTRUCT-EXAMINE&DEPOSIT-VAL*uD ...1xDEFSTRUCT-DEPOSIT-,1/**/@0,8 "/-, $Z`-, [*-,,8 "1-,,X-,2F $z-,0/+]*@(j-- no such slot in this structure.-- undefined defstruct type.-- defstruct-examine and defstruct-deposit cannot handle structures of this type.,8,83,8-,0b $ gh5B ,,8,8 g~ 0-, $J-, g~-,,8@",<2Z,8 $;Zg[15B  , ,8,8Zg~[,8",<2,8"Z[8 8