Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp:/tmp/cvs-serv9336/xml

Modified Files: unparse.lisp Log Message: destructuring-bind aus with-element raus

--- /project/cxml/cvsroot/cxml/xml/unparse.lisp 2006/01/23 21:48:27 1.8 +++ /project/cxml/cvsroot/cxml/xml/unparse.lisp 2006/02/17 12:53:19 1.9 @@ -521,11 +521,6 @@ (sax:end-document *sink*)))

(defmacro with-element (qname &body body) - ;; XXX Statt qname soll man in zukunft auch mal (lname prefix) angeben - ;; koennen. Hat aber Zeit bis DOM 2. - (when (listp qname) - (destructuring-bind (n) qname - (setf qname n))) `(invoke-with-element (lambda () ,@body) ,qname))

(defun maybe-emit-start-tag ()