
(/VERSIONCHECK 2) 

(DEFUN |XMLAT;xmlAttribute;2S$;1| (|name| |value| $)
  (CONS |name| (LIST |value|))) 

(PUT '|XMLAT;xmlAttribute;SL$;2| '|SPADreplace| 'CONS) 

(DEFUN |XMLAT;xmlAttribute;SL$;2| (|name| |values| $) (CONS |name| |values|)) 

(DEFUN |XMLAT;coerce;$S;3| (|rp| $)
  (PROG (|val| #1=#:G1806 |vn|)
    (RETURN
     (SEQ (LETT |val| "" . #2=(|XMLAT;coerce;$S;3|))
          (SEQ (LETT |vn| NIL . #2#) (LETT #1# (QCDR |rp|) . #2#) G190
               (COND
                ((OR (ATOM #1#) (PROGN (LETT |vn| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ
                (EXIT
                 (COND ((EQUAL |val| "") (LETT |val| |vn| . #2#))
                       ('T
                        (LETT |val|
                              (SPADCALL (LIST |val| " " |vn|) (QREFELT $ 12))
                              . #2#)))))
               (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
          (EXIT
           (SPADCALL
            (LIST " " (QCAR |rp|)
                  (SPADCALL "=" (SPADCALL (QREFELT $ 14)) (QREFELT $ 15))
                  (SPADCALL |val| (SPADCALL (QREFELT $ 14)) (QREFELT $ 15)))
            (QREFELT $ 12))))))) 

(DEFUN |XMLAT;outputVRML;$TfV;4| (|rp| |f1| $)
  (PROG (|val| #1=#:G1811 |vn|)
    (RETURN
     (SEQ (LETT |val| "" . #2=(|XMLAT;outputVRML;$TfV;4|))
          (SEQ (LETT |vn| NIL . #2#) (LETT #1# (QCDR |rp|) . #2#) G190
               (COND
                ((OR (ATOM #1#) (PROGN (LETT |vn| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ
                (EXIT
                 (COND ((EQUAL |val| "") (LETT |val| |vn| . #2#))
                       ('T
                        (LETT |val|
                              (SPADCALL (LIST |val| "," |vn|) (QREFELT $ 12))
                              . #2#)))))
               (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
          (SPADCALL |f1| (SPADCALL (LIST (QCAR |rp|) " " |val|) (QREFELT $ 12))
                    (QREFELT $ 18))
          (EXIT (|Void|)))))) 

(DEFUN |XmlAttribute| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G1813)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|XmlAttribute|)
                . #3=(|XmlAttribute|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|XmlAttribute|
                         (LIST (CONS NIL (CONS 1 (|XmlAttribute;|))))))
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#) (HREM |$ConstructorCache| '|XmlAttribute|))))))))))) 

(DEFUN |XmlAttribute;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|XmlAttribute|) . #1=(|XmlAttribute|))
      (LETT $ (GETREFV 21) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|XmlAttribute| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (SETF |pv$| (QREFELT $ 3))
      (QSETREFV $ 6
                (|Record| (|:| |n| (|String|)) (|:| |v| (|List| (|String|)))))
      $)))) 

(MAKEPROP '|XmlAttribute| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL '|Rep| (|String|)
              |XMLAT;xmlAttribute;2S$;1| (|List| 7) |XMLAT;xmlAttribute;SL$;2|
              (|List| $) (0 . |concat|) (|Character|) (5 . |quote|)
              (9 . |concat|) |XMLAT;coerce;$S;3| (|TextFile|)
              (15 . |writeLine!|) (|Void|) |XMLAT;outputVRML;$TfV;4|)
           '#(|xmlAttribute| 21 |outputVRML| 33 |coerce| 39) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 20
                                                 '(1 7 0 11 12 0 13 0 14 2 7 0
                                                   0 13 15 2 17 7 0 7 18 2 0 0
                                                   7 9 10 2 0 0 7 7 8 2 0 19 0
                                                   17 20 1 0 7 0 16)))))
           '|lookupComplete|)) 

(MAKEPROP '|XmlAttribute| 'NILADIC T) 
