"#<> /home/bmw20/tmp/s-xml/src/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)AG40943<*SOURCE-PATHNAME* PATHNAME  UNSPECIFIC ABSOLUTE homebmw20tmps-xmlsrcdomlisp!"/home/bmw20/tmp/s-xml/src/dom.lisp/home/bmw20/tmp/s-xml/src/  /(UV$atdVFɋuÐ NULL 0+ @dom.lispLN<TOP-LEVEL-FORM <QAG40944@<S-XML INTERNAL-IN-PACKAGE /&UV$atdF׋^W'ɋu NULL 0+ @<TOP-LEVEL-FORM <QAG40945@S-XML PARSE-XML-DOM  DEFGENERIC LN<!OPERATOR <RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @TOP-LEVEL-FORM <LN<<QAG40946@< PARSE-XML-DOM  LAMBDA-LIST STREAM  OUTPUT-TYPE INITIAL-METHODS  DOCUMENTATION AParse a character stream as XML and generate a DOM of output-typeENSURE-GENERIC-FUNCTION /:UV<atdFVv&v"WvvRP^*׋ɋu NULL 0+ @<<Q PARSE-XML  OUTPUT-TYPE LXML  PARSE-XML-DOM /L&UV4}aU EIE U3۳HWO]܋;uVtdE^"W'ɋuËS STREAM&KEY  OUTPUT-TYPE02{NSTREAM p3+-@PARSE-XML-STRING  OUTPUT-TYPE LXML MAKE-STRING-INPUT-STREAM  PARSE-XML-DOM ENSURE-RESOURCE QUOTE STRING-INPUT-SIMPLE-STREAM "/UVt}aU EЍIE U3۳HWO]ċ;vE܀tdE3҃ WRP^"׉EjE䋟MwiwǏA a7AYWwdYOEU܋^&W'r3AEQO1GYv*E̋E׋ű3ɱV}t)E3I]Wk[]QQOqEYjE뢋]ԋˋAQwAOItɋuÐ STRING&KEY  OUTPUT-TYPE02{NSTREAM  OUTPUT-TYPE STRING p3+-@PARSE-XML-FILE  OUTPUT-TYPE LXML  DIRECTION INPUT OPEN  PARSE-XML-DOM ABORT CLOSE / tUVt}aU EЍIE U3۳HWO]ċ;vE؀tdEЋV" v&RP^*׉EwEjE䋟MwiwǏA a7AYWwYOEU؋^.W'r3A}܋ȋAQwAOItr3AQO1GY]ˀuK t,}tT3I]Wk[]%QOqEYjE[3Ҳ #tÉE̋EV2 uRP^6׋E릋ȋAQwAOItɋu FILENAME&KEY  OUTPUT-TYPE02{NIN  OUTPUT-TYPE FILENAME p3+-AG40949@ PRINT-XML-DOM  DEFGENERIC LN<!OPERATOR < RECORD-SOURCE-FILE-1 /0UV,atdFV vRP^׋ɋu NULL 0+ @TOP-LEVEL-FORM <3LN<< QAG40950 @<  PRINT-XML-DOM  LAMBDA-LIST DOM  INPUT-TYPE STREAM PRETTY LEVEL INITIAL-METHODS  DOCUMENTATION jGenerate XML output on a character stream from a DOM of input-type, optionally pretty printing using levelENSURE-GENERIC-FUNCTION /:UV<atdFVv&v"WvvRP^*׋ɋu NULL 0+ @< < Q PRINT-XML STREAM PRETTY  INPUT-TYPE HEADER LXML TERPRI  PRINT-XML-DOM / ]UVd}aU EIE U3۳HWO];uCW‹C;u>}C;uWRITE-STRING-NOKEY-E /J%UV4taEtdUF^W'EU^W'UF jRP^"ɋu TAGSTREAM02{NSTREAM TAG p3+-@PRINT-CLOSING-TAG WRITE-CHAR_2OP /J%UV4taEtdUF jRP^׋EU^W'UF^"W'ɋu TAGSTREAM02{NSTREAM TAG p3+-@PRINT-ATTRIBUTE  WRITE-CHAR_2OP PRINT-IDENTIFIER ="WRITE-STRING-NOKEY-E PRINT-STRING-XML "/n7UV4taEUtdUF^W'EU wRP^׋UF jRP^"׋EU^&W'UF*^W'ɋu NAMEVALUESTREAM02{NVALUE NAME p3+-2xAG40954 @< TOP-LEVEL-FORM < DIRECT-CALLS STORE-DOC-FORMS  LOAD-SCM-INFO UPDATE-XREF-INFO ENSURE-GENERIC-FUNCTION RECORD-SOURCE-FILE-1 INTERNAL-IN-PACKAGE  MACRO-CALLS WHEN RECORD-SOURCE-FILE  DEFGENERIC  IN-PACKAGE SETS *SOURCE-PATHNAME*  REFERENCES *LOAD-DOCUMENTATION* ! PARSE-XML ! PARSE-XML-DOM PARSE-XML-STRING !FUNCALL !MAKE-STRING-INPUT-STREAM !DEALLOCATE-RESOURCE WITH-INPUT-FROM-STRING PARSE-XML-FILE !CLOSE MEMREF STANDARD-INSTANCE-P NOT !OPEN !STREAMP ! WITH-OPEN-FILE  PRINT-XML ! PRINT-XML-DOM TERPRI FORMAT !! PRINT-XML-STRING !GET-OUTPUT-STREAM-STRING ! !!!PROG1 ALLOCATE-RESOURCE WITH-OUTPUT-TO-STRING  PRINT-SPACES !WRITE-CHAR_2OP -_2OP <_2OP !"! WRITE-CHAR - DECF MINUSP LOOP ! PRINT-SOLITARY-TAG !WRITE-STRING-NOKEY-E PRINT-IDENTIFIER !*! WRITE-STRING !-PRINT-CLOSING-TAG !!*!4!3!!-!5PRINT-ATTRIBUTE !PRINT-STRING-XML !3!4!*!!5!- !/&UV$atdF^׋ɋuÐ NULL 0+ @32x< TOP-LEVEL-FORM <P Q32yAG40955 @< PRINT-ATTRIBUTE OPERATOR !!PRINT-CLOSING-TAG !!!PRINT-SOLITARY-TAG !!! PRINT-SPACES !!!PRINT-XML-STRING !!! PRINT-XML !!! PRINT-XML-DOM !< PARSE-XML-FILE !!!PARSE-XML-STRING !! ! PARSE-XML !! ! PARSE-XML-DOM !<  LOAD-SCM-INFO /&UV$atdF^׋ɋuÐ NULL 0+ @32y< TOP-LEVEL-FORM <P Q3AG40956@< PARSE-XML VParse a character stream as XML and generate a DOM of output-type, defaulting to :lxml%FUN-DOCUMENTATION PARSE-XML-STRING LParse a string as XML and generate a DOM of output-type, defaulting to :lxml!PARSE-XML-FILE TParse a character file as XML and generate a DOM of output-type, defaulting to :lxml! PRINT-XML Generate XML output on a character stream (t by default) from a DOM of input-type (:lxml by default), optionally pretty printing (off by default), or adding a header (none by default)!PRINT-XML-STRING xGenerate XML output to a string from a DOM of input-type (:lxml by default), optionally pretty printing (off by default)!STORE-DOC-FORMS /B!UV$atdYO;K}\ [;t F^׋ɋuÐ NULL 0+ @<TOP-LEVEL-FORM <P QAG40957@< PARSE-XML  .DE-ARGS. MPARSE-XML-STRING !PARSE-XML-FILE ! PRINT-XML !PRINT-XML-STRING ! PRINT-SPACES !PRINT-SOLITARY-TAG !PRINT-CLOSING-TAG !PRINT-ATTRIBUTE ! STORE-DOC-FORMS /&UV$atdF^׋ɋuÐ NULL 0+ @<TOP-LEVEL-FORM <P Q