OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

destructuring-bind aus with-element raus

Browse Source
This commit is contained in:
dlichteblau
2006-02-17 12:53:19 +00:00
parent 574ad5510b
commit 0b361f3908
1 changed files with 0 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
xml/unparse.lisp
View File

@ -521,11 +521,6 @@
(sax:end-document *sink*))) (sax:end-document *sink*)))
(defmacro with-element (qname &body body) (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)) `(invoke-with-element (lambda () ,@body) ,qname))
(defun maybe-emit-start-tag () (defun maybe-emit-start-tag ()