"#<> /home/bmw20/tmp/s-xml/src/xml-struct-dom.lisp by bmw20 on t41 at 2006/10/19 13:46:42\ using 8.0 [Linux (x86)] (Mar 31, 2006 13:50).\ Optimization settings at wfasl time:\ ((SPEED 3) (SAFETY 2) (SPACE 1) (COMPILATION-SPEED 1) (DEBUG 2)) *)&8.0 [Linux (x86)] (Mar 31, 2006 13:50)MAG41173<*SOURCE-PATHNAME* PATHNAME  UNSPECIFIC ABSOLUTE homebmw20tmps-xmlsrcxml-struct-domlisp!-/home/bmw20/tmp/s-xml/src/xml-struct-dom.lisp/home/bmw20/tmp/s-xml/src/  /(UV$atdVFɋuÐ NULL 0+ @xml-struct-dom.lispLN<TOP-LEVEL-FORM <QAG41174@<S-XML INTERNAL-IN-PACKAGE /&UV$atdF׋^W'ɋu NULL 0+ @<TOP-LEVEL-FORM <QAG41175@<S-XML XML-ELEMENT CHECK-LOCK-DEF-DEFSTRUCT /&UV$atdF^׋ɋuÐ NULL 0+ @TOP-LEVEL-FORM <LN<<QAG41176@ XML-ELEMENT TYPE LN<!<RECORD-SOURCE-FILE-1 /4UV,atdF vRP^׋ɋuÐ NULL 0+ @<<QAG41177</ atduÐ NULL 0(+ @<<QAG41178  XML-ELEMENT TYPE LN< XML-ELEMENT-CHILDREN OPERATOR < RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @< <QAG41180 < GET-BUILT-IN-ACCESSOR XML-ELEMENT-CHILDREN .INV-SYMBOL-FUNCTION /2UV$atd^3 ׋ЋF^W'ɋuÐ NULL 0+ @< <QAG41181  XML-ELEMENT TYPE LN< XML-ELEMENT-ATTRIBUTES OPERATOR < RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @< <QAG41183<GET-BUILT-IN-ACCESSOR XML-ELEMENT-ATTRIBUTES .INV-SYMBOL-FUNCTION /2UV$atd^3׋ЋF^W'ɋuÐ NULL 0+ @<<QAG41184 XML-ELEMENT TYPE LN<XML-ELEMENT-NAME OPERATOR <RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<<QAG41186<GET-BUILT-IN-ACCESSOR XML-ELEMENT-NAME .INV-SYMBOL-FUNCTION /2UV$atd^3׋ЋF^W'ɋuÐ NULL 0+ @<<QAG41187<XML-ELEMENT-CHILDREN  SETF-INVERSE CE-GET DEFSETF CHECK-LOCK-DEFINITIONS /@ UV4atdFV^W'EFVuWRP^"׋ɋu NULL 0+ @<<QAG41188<XML-ELEMENT-CHILDREN SETF-METHOD-EXPANDER  CE-PUTPROP DEFSTRUCT-SLOT-DEFSETF-HANDLER  SETF-INVERSE /P(UV,atdF׃ vRP^׋F׋ЋF v"RP^׋ɋu NULL 0+ @<<QAG41189 XML-ELEMENT TYPE LN<XML-ELEMENT-CHILDREN  SETF-METHOD <RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<<QAG41190</ atduÐ NULL 0(+ @<<QAG41191<XML-ELEMENT-ATTRIBUTES  SETF-INVERSE CE-GET DEFSETF CHECK-LOCK-DEFINITIONS /@ UV4atdFV^W'EFVuWRP^"׋ɋu NULL 0+ @<<QAG41192<XML-ELEMENT-ATTRIBUTES SETF-METHOD-EXPANDER  CE-PUTPROP DEFSTRUCT-SLOT-DEFSETF-HANDLER  SETF-INVERSE /P(UV,atdF׃ vRP^׋F׋ЋF v"RP^׋ɋu NULL 0+ @<<QAG41193 XML-ELEMENT TYPE LN<XML-ELEMENT-ATTRIBUTES  SETF-METHOD <RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<<QAG41194</ atduÐ NULL 0(+ @<<QAG41195<XML-ELEMENT-NAME  SETF-INVERSE CE-GET DEFSETF CHECK-LOCK-DEFINITIONS /@ UV4atdFV^W'EFVuWRP^"׋ɋu NULL 0+ @<<QAG41196<XML-ELEMENT-NAME SETF-METHOD-EXPANDER  CE-PUTPROP DEFSTRUCT-SLOT-DEFSETF-HANDLER  SETF-INVERSE /P(UV,atdF׃ vRP^׋F׋ЋF v"RP^׋ɋu NULL 0+ @<<QAG41197 XML-ELEMENT TYPE LN<XML-ELEMENT-NAME  SETF-METHOD <RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<<QAG41198 < / atduÐ NULL 0(+ @< <QA! SRPu؋3ɱW#FBW[EԋFFVJ SRPuԋ3ɱW#ɋuÐ NULL 0+ @<7TOP-LEVEL-FORM <Q@XML-ELEMENT-ATTRIBUTE /n7UV,taUtd3ҲW';u;t"W[ɋuÉEWW;uEW[tdӋ܋EWWWW;Eu݋EWW  XML-ELEMENTKEY02{NKEY p3+-A8@<8/(UVLtaEtd‰E3ҲW';uIEUW+EԋE3ҲW'ЋEW+E̋E3Ҳ uRP׋EɋuuE;u ;t1Itn3'W'͉EWW;ucEW[td‹EUW+EЋE3ҲW'ЋEW+EȋE3Ҳ uRPnEW?`EWWWW;EuEWW] VALUE XML-ELEMENTKEY02{NVALUE  XML-ELEMENT  ATTRIBUTES  p3+ @AG412339SETF XML-ELEMENT-ATTRIBUTE LN<9DYNAMIC-EXTENT-ARGUMENTS <:COMPILER-PROCLAIM LEXICALLY-VISIBLE-FUNCTION <8<: SET-FUNC_NAME SET-FUNCTION-1 /B!UV,atdF^׋^É]V^"W'UF^&W'ɋu NULL 02{NF p3+ @TOP-LEVEL-FORM <=LN<9<;<8<:QAG41248<@<:OPERATOR LN<<<:!<=RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<<<;QAG41249><>/ atduÐ NULL 0(+ @<><;QNEW-XML-ELEMENT  XML-ELEMENT /N'UV4}aU EE g؉]tdUFuWRP3ɱ3]ɋu NAME&REST CHILDREN02{NCHILDREN NAME p3+-@FIRST-XML-ELEMENT-CHILD /,UV$tatd3Ҳ W'WWɋuÐ  XML-ELEMENT0+-@A?/L&UV,|aك~~(td;u!ɋuwEwEUE؉E  &OPTIONAL XY02{NX Y p3+-@ XML-EQUAL  XML-ELEMENT-P LEXICALLY-VISIBLE-FUNCTION Eȉ]W[E؋EW[EЋEWWE̋EWWEE̋;u&;t5ËUW+u؏EuЏEĀtd냋E;uNjE̋U3ɱ븋E̋U^W' XML-1XML-20 2{N XML-2 #XML-1 X %&Y  p3+-@INTERNAL  XML-EQUAL LN!!/>WRITE-STRING-NOKEY-E PRINT-STRING-XML PRINT-CLOSING-TAG  PRINT-SPACES BAD-ENDP-ERROR PRINT-ATTRIBUTE  PRINT-XML-DOM /iUVwǃptaUtdE3ҲW'NQ_;Z}TR;Wuc^W'V]3WGUF^W'E3ҲW'U^"W'E3ҲW'E;tdE3Ҳ W'E;}UF&^W'E܋Iu3]ȃEW[td];uÃtgEWW;};}tv]IUF* jRP^.H딋EWW;tEWWU^2W'E3ҲW'U^6W'r3AW;ɋu;}tEԋU3W'U^:W'EԉEԋ;EԋU^2W'Ë_W'Ћ3W'U^:W'k^>;sEWWEWWE̋EW[EЋEW[E؋E̋UЃ uRP^B׀tdE"]uEuEE3Ҳu;UEp3EԋӃuuuRP^F׋EW[EWWtd=]_W']E  XML-ELEMENT INPUT-TYPESTREAMPRETTYLEVEL 2{N  XML-ELEMENT  INPUT-TYPE CHILDREN *CHILD VALUE NAME p3+ @AG41261BMETHOD  PRINT-XML-DOM T EQL  XML-STRUCT L!!!LNWv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋu NULL 0+ @Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ NULL 0+ @