destructuring-bind aus with-element raus

2006-02-17 12:53:19 +00:00
parent 574ad5510b
commit 0b361f3908
1 changed files with 0 additions and 5 deletions
--- a/xml/unparse.lisp
+++ b/xml/unparse.lisp
@ -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 ()