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 ()
