From 0b361f3908a07c33462ea77ef77cd5f77daab31a Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Fri, 17 Feb 2006 12:53:19 +0000 Subject: [PATCH] destructuring-bind aus with-element raus --- xml/unparse.lisp | 5 ----- 1 file changed, 5 deletions(-) diff --git a/xml/unparse.lisp b/xml/unparse.lisp index 5897687..e5a49f7 100644 --- 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 ()