From dlichteblau at common-lisp.net  Fri Feb 17 12:53:19 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Fri, 17 Feb 2006 06:53:19 -0600 (CST)
Subject: [cxml-cvs] CVS cxml/xml
Message-ID: <20060217125319.2EE5E56018@common-lisp.net>

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