!#<> /home/bmw20/tmp/s-xml/src/xml.lisp by bmw20 on t41 at 2006/10/19 13:46:41\ 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)dAG40706<*SOURCE-PATHNAME* PATHNAME  UNSPECIFIC ABSOLUTE homebmw20tmps-xmlsrcxmllisp!"/home/bmw20/tmp/s-xml/src/xml.lispC/home/bmw20/tmp/s-xml/src/  /(UV$atdVFɋuÐ NULL 0+ @xml.lispLN<TOP-LEVEL-FORM <QAG40707@<S-XML INTERNAL-IN-PACKAGE /&UV$atdF׋^W'ɋu NULL 0+ @<TOP-LEVEL-FORM <ZQAG40708@S-XMLXML-PARSER-ERROR DEFINE-CONDITION LN<!<RECORD-SOURCE-FILE-1 /4UV,atdF vRP^׋ɋuÐ NULL 0+ @TOP-LEVEL-FORM <LN<<QAG40711@<MESSAGE INITARGS MESSAGE READERS XML-PARSER-ERROR-MESSAGE ARGS ARGS XML-PARSER-ERROR-ARGS STREAM INITFORM  INITFUNCTION FUNCTION FALSE "STREAM XML-PARSER-ERROR-STREAM XML-PARSER-ERROR DIRECT-SUPERCLASSES ERROR  DIRECT-SLOTS  DOCUMENTATION 5Thrown by the XML parser to indicate errorneous inputENSURE-CLASS-1 /eUVTatdVv"vvvRP3ɱW/E䋇V&v.vv*vRP3ɱW/EV2(vFvvBvv>v:Wv6RP3ɱ W/E܋EU uRP3ɱW/E؋FJVNv^vZuvVvRRP^b׋ɋu NULL 0+ @<<QA<*PRINT-ESCAPE* *PRINT-READABLY* XML-PARSER-ERROR-MESSAGE XML-PARSER-ERROR-ARGS XML-PARSER-ERROR-STREAM +XML parser ~?~@[ near stream position ~d~].MNEED-XP-STREAM  FORMAT-RUNTIME-? &ARG !XP pFORMAT-RUNTIME-DEFAULT-ATSIGN-[ !&FORMAT-RUNTIME-BASIC-~D p.pAG40709  FILE-POSITION /HUVwǃ`taE܉U؀tdYO;K}\ [WWE̋YO;K}\ [W[]u؏ENQO;J}T R;uNQO;J}T R;t3;}t{]3WGE܋U؋u3ɱr3AW;ɋuËÉ]ԋ^׉EEԋ^׉EЋEԋ^";u=}ȋEV&uuuRP뮋U܋F* uRPo딋Eԋ^"׋^.׉E밐 A CONDITION ASTREAM 2{NSTREAM < <  CONDITION  .NEXT-METHOD. p3+ @AG40712 METHOD  PRINT-OBJECT XML-PARSER-ERROR T LN< ! FIND-CLASS ! QUALIFIERS  SPECIALIZERS  LAMBDA-LIST  CONDITION !STREAM FUNCTION LEXICALLY-VISIBLE-FUNCTION <PLIST NEEDS-NEXT-METHODS-P <  DOCUMENTATION LOAD-DEFMETHOD < OPERATOR !DEFINE-CONDITION RECORD-SOURCE-FILE-1 /CUV\atdF^׉EG‹^׋ЋE3ɱW/EFV4Wv>v:v6v2v.v*v&uv"WRP^B ׋FFVJ vNRP^R׋ɋuÐ NULL 0+ @< <<< QAG40721<SETF-METHOD-LOCATIVE QUOTE  DOCUMENTATION T "(Get the message from an XML parser errorXML-PARSER-ERROR-MESSAGE !!!!"0Get the error arguments from an XML parser errorXML-PARSER-ERROR-ARGS !!!!"'Get the stream from an XML parser errorXML-PARSER-ERROR-STREAM / GUV<atdFW[EFV SRPu3ɱW#FW[EF"V& SRPu3ɱW#F*W[E܋F.V2 SRPu܋3ɱW#ɋuÐ NULL 0+ @<TOP-LEVEL-FORM <Q@ PARSER-ERROR ENSURE-CONSTRUCTOR QUOTE XML-PARSER-ERROR !MESSAGE ARGS STREAM "/T*UV<||aك~2~/]]tdvE܃ uRPu܋3ɱW#ɋuË׉}Ґ MESSAGE &OPTIONAL ARGSSTREAM02{NARGS STREAM p3+-@WHITESPACE-CHAR-P   CHAR=_2OP    /`0UV,tatdEV^W';tɋuËEV^W';tEV^W';tՋEV"^W' CHAR02{NCHAR p3+-@IDENTIFIER-CHAR-P A CHAR<=_2OP a0- CHAR=_2OP Zz9_.:/ fUV,tatdЉUF^W';u6UF^W';u9UF^W';u^&W'뎐 CHAR02{NCHAR p3+-@SKIP-WHITESPACE  PEEK-CHAR WHITESPACE-CHAR-P  READ-CHAR_1OP /`0UV4tatdЋljUWWRP^;uɋuÉE^;tE^׀tdE뼋EА STREAM02{NSTREAM CHAR p3+-@MAKE-EXTENDABLE-STRING  ELEMENT-TYPE  ADJUSTABLE  FILL-POINTER  MAKE-ARRAY /F#UVD|a~-tdVjvwvRP^ɋu3(  &OPTIONAL SIZE02{NSIZE p3+-@PRINT-STRING-XML START END CHAR &&WRITE-STRING-NOKEY-E <<>>""   WRITE-CHAR_2OP  CHAR-CODE &#xBASE WRITE ;/L&UV\}aEUIEU3۳HWO]ċ;u+3ҋC;u'߀td;t‰U܋ uD;|bPSҋ[ ֋EI3U܉]؃EW[td]؋U;u뮋Ӊ]؋W';uwtdɋuËEU܉]؋^"W';F&uXUF* jRP^.3Ҳ]uSpME܀td]؋U jRP^.y;FBuUFF jRP^.[;FJt ;FNt;FRuU^VW'>Eԋ^Z׋3uM;~VUF^ j RP^.׋Eԋ^Z׋j@vbuRP^f׋UFj^VW'W';tEԋ^Z׺u;EԋU^VW'W';up STRINGSTREAM&KEY STARTEND02{NSTREAM STRING OFFSET END !p3+-@MAKE-STANDARD-ENTITIES MAKE-HASH-TABLE-INTERNAL &amp"quot'apos<lt>gt nbsp/ .UVLatdSC hRP^׉EF׋UEF uRP?׋F׋UE܋F" uRP?׋F&׋UE؋F* uRP?׋F.׋UEԋF2 uRP?׋F6׋UEЋF: uRP?׋F>׋UE̋FB uRP?׋Eɋu NULL 02{NENTITIES  "p3+-@RESOLVE-ENTITY  READ-CHAR_3OP $encountered eof before end of entity PARSER-ERROR MAKE-EXTENDABLE-STRING ; CHAR=_2OP CHAR #xSTART RADIX  JUNK-ALLOWED  PARSE-INTEGER !encountered incorrect entity &~s; CODE-CHAR VECTOR-PUSH-EXTEND GETHASH_2OP_1RET AREF encountered unknown entity &~s;/UV\||aU~E]]E܀tdE܋׃ WRP^;u-F^׋׀td̉E܋^׉E뵋ЉUȋF"^&W';E3ҋ^*W'V.^&W';E3Ҳ^*W'V2^&W';EV6wv>j@v:jRP^B;u)EЋEW+ЋFF uRP^׋׋^J׋U^NW'EɋuËEȋU^NW'!EU^RW';tojE3ۉEԋ׉E EԋӋ^VW'EU^NW'td];]|؀td닋EV6wv>j(v:jRP^B*EW+ЋFZ uRP^׋ STREAMEXTENDABLE-STRINGENTITIES &OPTIONAL ENTITY02{NENTITY EXTENDABLE-STRING STREAM %VALUE CODE &! p3+-AG40743@<SPECIAL *IGNORE-NAMESPACES* SIMPLE-AUGMENT-ENVIRONMENT !%VAR-DOCUMENTATION ?When t, namespaces are ignored like in the old version of S-XML.INV-GET /x<UV<atdVǃWWWWWRP^׋F3AWc;GuVWYO;K}\ [;tFV v"RP^&׋ɋu NULL 0+ @TOP-LEVEL-FORM <LN<<QAG40744@*IGNORE-NAMESPACES* VARIABLE LN<!!<RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<<QAG40745</ atduÐ NULL 0(+ @<<QAG40746 XML-NAMESPACE TYPE LN<!<RECORD-SOURCE-FILE-1 /4UV,atdF vRP^׋ɋuÐ NULL 0+ @TOP-LEVEL-FORM <LN<<QAG40747@<URI  DOCUMENTATION 'The URI used to identify this namespaceINITARGS URI READERS GET-URI WRITERS SETF !PREFIX INITFORM  INITFUNCTION FUNCTION FALSE "/The preferred prefix assigned to this namespacePREFIX  GET-PREFIX !!PACKAGE ! ! "CThe Common Lisp package where this namespace's symbols are internedPACKAGE  GET-PACKAGE !! XML-NAMESPACE DIRECT-SUPERCLASSES  DIRECT-SLOTS 0Describes an XML namespace and how it is handledENSURE-CLASS-1 /{UVdatdV(v2v.v*v&v"vvvRP3ɱ W/E䋇V68vRv.vNv&vJvvFvvBv>Wv:RP3ɱW/EVV8vjv.vfv&vbvv^vvZv>Wv:RP3ɱW/E܋EU uRP3ɱW/E؋FnVrvzvuvvWRP^~׋ɋu NULL 0+ @<<QA< GET-PREFIX GET-URI ~A - ~APRINC !p/`0UV<a][[tdsE]^׉E܋]^׉E؋EVuuRPɋu NULL 0 2{N.LAMBDA-LEXICAL-ENV. CLOSURE OBJECT p!STREAM pp3+ @A<LEXICALLY-VISIBLE-FUNCTION </j5UVTtaEŰ]]Ȁtd^CEGEԉ]؍]ȉ]܍]EȋỦ]uwwRPɋuÐ OBJECTSTREAM02{N0CLOSURE OBJECT p!STREAM pp3+ @AG40750METHOD  PRINT-OBJECT  XML-NAMESPACE T LN<! FIND-CLASS ! QUALIFIERS  SPECIALIZERS  LAMBDA-LIST OBJECT !STREAM FUNCTION LEXICALLY-VISIBLE-FUNCTION <PLIST  DOCUMENTATION LOAD-DEFMETHOD <OPERATOR !!!!!RECORD-SOURCE-FILE-1 /BUV\atdF^׉EG‹^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ NULL 0+ @FLET <AG40748LN<TOP-LEVEL-FORM <:<<<<QAG40753@<SPECIAL *LOCAL-NAMESPACE* SIMPLE-AUGMENT-ENVIRONMENT !KEYWORD  FIND-PACKAGE ENSURE-CONSTRUCTOR QUOTE  XML-NAMESPACE !URI PREFIX PACKAGE "local%VAR-DOCUMENTATION (The local (global default) XML namespace.INV-GET / SUVDatdVǃWWWWWRP^׋F3AWc;Gu6F^"v&EEF*V. uRPu3ɱW#VYO;K}\ [;tFV2 v6RP^:׋ɋu NULL 02{N4p3+ @TOP-LEVEL-FORM <LN<<QAG40757 @*LOCAL-NAMESPACE* VARIABLE LN< !! vBRP^F널 NULL 02{N89:p3+ @TOP-LEVEL-FORM <LN<#<$QAG40763%@*XML-NAMESPACE* VARIABLE LN<%!!<&RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<%<$QAG40764'<'/ atduÐ NULL 0(+ @<'<$QAG40765(<(SPECIAL *KNOWN-NAMESPACES* SIMPLE-AUGMENT-ENVIRONMENT !*LOCAL-NAMESPACE* *XML-NAMESPACE* %VAR-DOCUMENTATION $The list of known/defined namespaces.INV-GET /\UV<atdVǃWWWWWRP^׋F3AWc;GuHNA_;X}D@;GucN"Q_;Z}TR;Wuc3ɱW/VYO;K}\ [;tFV& v*RP^.׋ɋu NULL 0+ @TOP-LEVEL-FORM <LN<(<)QAG40766*@*KNOWN-NAMESPACES* VARIABLE LN<*!!<+RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @<*<)QAG40767,<,/ atduÐ NULL 0(+ @<,<)QAG40768-<-SPECIAL  *NAMESPACES* SIMPLE-AUGMENT-ENVIRONMENT !*XML-NAMESPACE* xml*LOCAL-NAMESPACE* %VAR-DOCUMENTATION XOrdered list of (prefix . XML-namespace) bindings currently in effect - special variable.INV-GET / fUVDatdVǃWWWWWRP^׋F3AWc;Gu\NQ_;Z}TR;WucF"W+EN&Q_;Z}TR;WucF*W+ЋE3ɱW/VYO;K}\ [;tFV. v2RP^6׋ɋu NULL 0+ @TOP-LEVEL-FORM <[LN<-<.QAG40769/@ *NAMESPACES* VARIABLE LNW'  IDENTIFIER NAMESPACES &OPTIONAL  AS-ATTRIBUTE02{N AS-ATTRIBUTE NAME U IDENTIFIER PREFIX  NAMESPACES p3+-@FLET RESOLVE-IDENTIFIER  INTERN-SYMBOL LN!!<<<=WAG40790>@<>SPECIAL  *AUTO-CREATE-NAMESPACE-PACKAGES* SIMPLE-AUGMENT-ENVIRONMENT !%VAR-DOCUMENTATION QIf t, new packages will be created for namespaces, if needed, named by the prefix.INV-GET /z=UV<atdVǃWWWWWRP^׋F3AWc;Gu VGWYO;K}\ [;tFV v"RP^&׋ɋuÐ NULL 0+ @TOP-LEVEL-FORM <(LN<>W';t*EU^W'Ë^W'E܋^BƋEVFuuRP  IDENTIFIERSTREAM &OPTIONAL  AS-ATTRIBUTE0 2{N STREAM NAME  NAMESPACE  IDENTIFIER PACKAGE PREFIX p3+-AG40798C@XML-PARSER-STATE TYPE LNv:v6v2v.v*v&v"vvvRP3ɱW/E䋇VF8vZv>vVv6vRv.vNv&vJvWvRP3ɱW/EV^0vrv>vnv6vjv&vfvvbvRP3ɱ W/E܋Vv0v>v6v~v&vzvvbvRP3ɱ W/E؋8v>v6v.v&vvRP3ɱW/Eԋ8v>v6v.v&vvRP3ɱW/EЋ8v>v6v.v&vvRP3ɱW/E̋EUuuuuuRP3ɱW/Eȋv&uWRP׋ɋu NULL 0+ @SLOT-DEFINITION-INITFUNCTION XML-PARSER-STATE  MINI-BUFFER LN!!BUFFER LN!!ENTITIES LN SRPu؋3ɱW#FBW[EԋFFVJ SRPuԋ3ɱW#ɋuÐ NULL 0+ @v:v6v2v.v*uv&v"RP^J ׋FNVR vVRP^Z׋ɋuÐ NULL 0+ @INTERNAL v:v6v2v.v*uv&v"RP^J ׋FNVR vVRP^Z׋ɋuÐ NULL 0+ @INTERNAL <^LN<]TOP-LEVEL-FORM <B<\<^<[<_Q@PARSE-WHITESPACE  PEEK-CHAR WHITESPACE-CHAR-P  READ-CHAR_1OP VECTOR-PUSH-EXTEND /l6UV<taUtdЋljUWWRP^;uɋuÉE܋^;t E^׋U^W'tdE볋Eǐ STREAMEXTENDABLE-STRING02{NSTREAM EXTENDABLE-STRING CHAR p3+-@ PARSE-STRING  READ-CHAR_3OP ' CHAR=_2OP "expected string delimiter PARSER-ERROR $encountered eof before end of stringMAKE-EXTENDABLE-STRING & GET-ENTITIES GET-MINI-BUFFER RESOLVE-ENTITY VECTOR-PUSH-EXTEND / >UVL||aU܃]]EtdE׃ WRP^;t#E؋V^W';u4E؋V^W';u$E؉E؋׋F" uRP^&׋׋E׃ WRP^;u0F*^&׋׀td̉E^.׉EXU؉Eԋ^W';t EɋuËEԋV2^W';t4E܋^6׉EЋE܋^:׉E̋EUuuRP^>뇋EԋU^BW'v STREAMSTATE &OPTIONAL STRING02{NSTRING STREAM STATE  DELIMITER CHAR p3+-@ PARSE-TEXT  PEEK-CHAR "encountered unexpected eof in text PARSER-ERROR < CHAR=_2OP  READ-CHAR_1OP & GET-ENTITIES GET-MINI-BUFFER RESOLVE-ENTITY VECTOR-PUSH-EXTEND / fUVDtaUtdЋljUWWRP^;uE܋F^׋׉E܋V^"W';t EɋuËE^&׋E܋V*^"W';tBE^.׉E؋E^2׉EԋEUuuRP^6׀tdE[E܋U^:W' STREAMSTATEEXTENDABLE-STRING02{NSTREAM STATE CHAR p3+-@PARSE-IDENTIFIER  PEEK-CHAR MAKE-EXTENDABLE-STRING IDENTIFIER-CHAR-P  READ-CHAR_1OP VECTOR-PUSH-EXTEND /DUV<||aU~*tdЋljUWWRP^;uEɋuÉE^׉EEĉE܋^;t׋E^׋E܋U^"W'tdE STREAM &OPTIONAL  IDENTIFIER02{N IDENTIFIER STREAM CHAR p3+-@ SKIP-COMMENT  READ-CHAR_3OP > CHAR/=_2OP expected > ending comment PARSER-ERROR &encountered unexpected eof for comment- CHAR=_2OP /yUV<tatdjEEE3ҨuF;uOE׃ WRP^׋V^W';t~׋F uRP^"׋ɋuËW';uE׃ WRP^;uE܋F&^"׋׋V*^.W';t3Ҳ]u"+p%jEtdE9ËW'E STREAM02{NSTREAM DASHES-TO-READ CHAR p3+-@ READ-CDATA [AT>] READ-CHAR_3OP "encountered unexpected eof in text PARSER-ERROR MAKE-EXTENDABLE-STRING  FILL-POINTER .INV-FILL-POINTER  GET-TEXT-HOOK COPY-SEQ GET-SEED SETF-METHOD-LOCATIVE QUOTE !T "VECTOR-PUSH-EXTEND /UV\||aE܉U]]tdEFV vRP3ɱW/E؋FV" v"RP3ɱW/EԋE܋׃ WRP^&;uEЋF*^.׋׋U؉EW+EW[W[ߋIt<Ћ'3W'E;Et*UԋW';^2׉E׉EċE^B׉EE^F׋ЋEu3ɱEFJW[EEUu3ɱW#ɋuËEЋU^NW'tdW'p STREAMSTATE &OPTIONAL STRING0 2{N STRING STATE STREAM LAST-3-CHARACTERS PATTERN CHAR  p3+-@SKIP-SPECIAL-TAG  READ-CHAR_1OP  READ-CHAR_3OP - CHAR=_2OP  SKIP-COMMENT [CDATA[AREF #encountered unexpected eof in cdata PARSER-ERROR 3encountered unexpected eof for special (! or ?) tag GET-BUFFER  READ-CDATA '"<>/:UVTtaUtdE^׋E׃ WRP^׉EԋV^W';t4E׃ WRP^׉EԋV^W';tE^"׋ɋuËEԋV&^W';ujE؉}܋E3Ҩu_;uhы^*3ҋÉ]̉UЋ^.W'EȃEE׃ WRP^;uEċF2^6׋׋Uȋ^W';u]됋W';uE׃ WRP^;u!Eԋ׋F: uRP^6׋;}tLU܋^W';te}`]Ѓ|etdE^>׉EEU uRP^B׋EԋVF^W';uEԋVJ^W';t&uԏE܀tdtd]̋UEԋVN^W';t3Ҳ]u2p,E빋EԋVR^W';t3Ҳ]u+pE뒋Ë_W'ʋËW' STREAMSTATE0 2{N STREAM STATE STRING-DELIMITER TAGLEVEL CHAR PATTERN !  p3+-@PARSE-XML-ELEMENT-ATTRIBUTES SKIP-WHITESPACE GET-MINI-BUFFER PARSE-IDENTIFIER COPY-SEQ  expected = PARSER-ERROR  GET-BUFFER  PARSE-STRING > CHAR=_2OP /= READ-CHAR_1OP / &UVDtaUtd}܉E^;E^׋ЋE^W'^׉E؋E^;׋F" uRP^&׋׋E^׋E^*׉EЋEU uRP^.׋^׋ЋEW+UW+E܀tdEKEԋV2^6W';uEԋV:^6W';9E܋U3ɱɋuËV>^6W';IE^BX STREAMSTATE02{NSTREAM STATE  ATTRIBUTES KEY CHAR p3+-@PARSE-XML-ELEMENT  PEEK-CHAR ! CHAR=_2OP SKIP-SPECIAL-TAG GET-SEED GET-MINI-BUFFER PARSE-IDENTIFIER COPY-SEQ PARSE-XML-ELEMENT-ATTRIBUTES  *NAMESPACES* EXTEND-NAMESPACES RESOLVE-IDENTIFIER GET-NEW-ELEMENT-HOOK SETF-METHOD-LOCATIVE QUOTE !T "/ READ-CHAR_1OP  READ-CHAR_3OP >GET-FINISH-ELEMENT-HOOK ! !!!" GET-BUFFER PARSE-WHITESPACE &encountered unexpected eof handling ~a PARSER-ERROR  expected >BAD-ENDP-ERROR <+found <~a> not matched by but by <~a> PARSE-TEXT  GET-TEXT-HOOK ! !!!"! !!!"! !!!"/!$UVwǁtaUtdЋljUWWRP^׋V^W';tEU^W'ɋuÉ}ЋE^"׉E܋E^&׋ЋE^*W'^.׉E؋EU^2W'r3A׉ŰN6Q_;Z}TR;WucEԋ^:W'V6Z3WGN6Q_;Z}TR;WucE؋^>W'E؋NjW+EEċE;%tdEW[EԋE^B׉EE^"׉|E؋Uԃ |RPu3ɱEFFW[xEU䋵x3ɱW#E̋VJ^W';E^N׋E׃ WRP^R׋ЋFV^W';E^Z׉EE^"׉tE؋UԃtuRPu3ɱEF^W[pEU䋵p3ɱW#r3AW;IEWWEWWEEW[EEW[Eԋ]IӋ'3W'tdErE^N׋E^b׋ЋEUȋ^fW';E؋W+ЋFj^nW'׀td빋׋Fr uRP^n׋׋^v;.N6QG;B}TR;Wuc]E wRP^>׋UW+W+EUW? Vz^W';E^N׋NjUWWRP^׋VJ^W';H;}YE^N׋E^&׋ЋE^*W'N6Q_;Z}TR;Wuc^>W';Et;dE؋Ѓ dRP3ɱW/ЋF~ uRP^n׋׋E׃ WRP^R׋VV^W';Q׋Fr uRP^n׋׋EU uRP׋E䋞׉EEȋ^.׉EE^"׋ЋEu3ɱEW[lEU䋵l3ɱW#wEЋEU3ɱEȋI3]EW[td];uÃpE䋞׉EEȋ^.׉EE^"׋ЋEu3ɱEW[hEU䋵h3ɱW# E^Z׉EE^"׉`E؋Uԃ`uRPu3ɱEW[\EU䋵\3ɱW#r3AW;< STREAMSTATE#2{N#STATE STREAM  PARENT-SEED OPEN-TAG  ATTRIBUTES  HAS-CHILDREN CHAR BUFFER VALUE KEY  CLOSE-TAG "p3+-@START-PARSE-XML SKIP-WHITESPACE ENSURE-CONSTRUCTOR QUOTE XML-PARSER-STATE !"< CHAR=_2OP  expected < PARSER-ERROR  READ-CHAR_1OP  PEEK-CHAR !?SKIP-SPECIAL-TAG PARSE-XML-ELEMENT GET-SEED / zUV<||aU~tdE^;u#ɋuvE؉Eu؋3W#EENjV^W';u׋F" uRP^&׋׋E^*׋NjUWWRP^.׉E܋V2^W';uE܋V6^W';tEU^:W'tdEKEU^>W'E^BA STREAM &OPTIONAL STATE02{NSTATE STREAM CHAR p3+-2xAG40884`@<`TOP-LEVEL-FORM <INDIRECT-CALLS SETF  DOCUMENTATION  DIRECT-CALLS STORE-DOC-FORMS  LOAD-SCM-INFO UPDATE-XREF-INFO CONS  MAKE-PACKAGE  FIND-PACKAGE .INV-GET EQ NOT SIMPLE-AUGMENT-ENVIRONMENT CDR FUNCALL  FIND-CLASS LOAD-DEFMETHOD ENSURE-CLASS-1 RECORD-SOURCE-FILE-1 INTERNAL-IN-PACKAGE  MACRO-CALLS BQ-QUOTE BQ-CONS BQ-LIST  BACKQUOTE  MAKE-INSTANCE BOUNDP WHEN AUGMENT-ENVIRONMENT DECLAIM DEFVAR !LIST  DEFMETHOD RECORD-SOURCE-FILE DEFCLASS DEFINE-CONDITION  IN-PACKAGE SETS  *AUTO-CREATE-NAMESPACE-PACKAGES* *AUTO-EXPORT-SYMBOLS* *REQUIRE-EXISTING-SYMBOLS*  *NAMESPACES* *KNOWN-NAMESPACES* *XML-NAMESPACE* *LOCAL-NAMESPACE* *IGNORE-NAMESPACES* *SOURCE-PATHNAME*   REFERENCES !(!)!*!+!,!-!.*LOAD-DOCUMENTATION* !/!0 < BINDS *NEXT-METHODS* !FORMAT !CALL-NEXT-METHOD !1*PRINT-READABLY* *PRINT-ESCAPE* !4! FILE-POSITION XML-PARSER-ERROR-STREAM ! XML-PARSER-ERROR-ARGS XML-PARSER-ERROR-MESSAGE !5NO-NEXT-METHOD-ERROR !!CAR   PARSER-ERROR !!!!MAKE-CONDITION WHITESPACE-CHAR-P ! CHAR=_2OP !CHAR= IDENTIFIER-CHAR-P !!CCHAR<= !!B CHAR<=_2OP ! SKIP-WHITESPACE ! READ-CHAR_1OP !A!  PEEK-CHAR ! READ-CHAR LOOP MAKE-EXTENDABLE-STRING ! MAKE-ARRAY PRINT-STRING-XML !+_2OP WRITE  CHAR-CODE <=_2OP ! WRITE-CHAR_2OP WRITE-STRING-NOKEY-E ! CHAR >=_2OP LENGTH  !+ 1+ <=  WRITE-CHAR  WRITE-STRING EQL CASE LOOP-REALLY-DESETQ >= !!K MAKE-STANDARD-ENTITIES !EQUAL !%PUTHASH STRING MEMREF SYMBOL-FUNCTION MAKE-HASH-TABLE-INTERNAL !! SY_FUNCTION MAKE-HASH-TABLE RESOLVE-ENTITY !!X!Y!_!`GETHASH !!!!C!J!K !!OAREF !V!WGETHASH_2OP_1RET  CODE-CHAR ! PARSE-INTEGER !UVECTOR-PUSH-EXTEND !B!?ERROR ! NULL  READ-CHAR_3OP !L<!<!PRINT-UNREADABLE-OBJECT-1 <!GET-URI  GET-PREFIX !5!!5FIND-NAMESPACE !!uINTERNAL-STRING-EQUAL !1!,!!e!f FIND-TEST-KEY !!hFIND REGISTER-NAMESPACE !'!,!1!,!! GET-PACKAGE !!v!!PUSH !!!! !!!wFIND-NAMESPACE-BINDING !CAAR  STRING-EQUAL ASSOC !!x!>! !r!SPLIT-IDENTIFIER !!B!!OSUBSEQ VALUES !e!fPOSITION  SYMBOL-NAME SYMBOLP  !!X!Y!h!!!RESOLVE-IDENTIFIER !STRING= !!q!<=!~!|INTERNAL-STRING= ! !r!INTERN !1!.!/<=!!!EXPORT ! !]! !!q FIND-SYMBOL !1!)!* NEW-NAMESPACE !!X!Y!_!!5!K!!!! !1!(!!O! !5!q STRING-UPCASE !! ! !{ EXTEND-NAMESPACES !1!/!!!!w!!!!>BAD-ENDP-ERROR CONSP !r!  !!!!!}!!!_ENDP !!KUNLESS  PRINT-IDENTIFIER !!!|!]!!5!!h!z!!5!!v!>!e!f!y!SYMBOL-PACKAGE !PRINC  !1!,!/_2OP !!!?!qGET-FINISH-ELEMENT-HOOK !s!HGET-NEW-ELEMENT-HOOK !!!RPLACD !!>!!! !r!!!!!!!!!!I!B$!!PLUSP !JLOOP-COLLECT-ANSWER LOOP-COLLECT-RPLACD !_!!!WITH-LOOP-LIST-COLLECTION-HEAD !K!!C!START-PARSE-XML !!!!!I!H!?!q!B! !r!G! !!!J!C!!!K! !/&UV$atdF^׋ɋuÐ NULL 0+ @32x<`TOP-LEVEL-FORM <pQ32yAG40885a@' sequence, unexpected eof or a malformed closing sequence result in a error! READ-CDATA @Reads in the CDATA and calls the callback for CDATA if it exists!SKIP-SPECIAL-TAG Skip an XML special tag (comments and processing instructions) in stream, positioned after the opening '<', unexpected eof is an error!PARSE-XML-ELEMENT-ATTRIBUTES Parse XML element attributes from stream positioned after the tag identifier, returning the attributes as an assoc list, ending at either a '>' or a '/' which is peeked and also returned!PARSE-XML-ELEMENT MParse and return an XML element from stream, positioned after the opening '<'!START-PARSE-XML GParse and return a toplevel XML element from stream, using parser state!STORE-DOC-FORMS /B!UV$atdYO;K}\ [;t F^׋ɋuÐ NULL 0+ @