[cxml-cvs] CVS cxml/xml

[dlichteblau]

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 () , at body) ,qname))
 
 (defun maybe-emit-start-tag ()