fix borked XEP-0363
This commit is contained in:
parent
e7b27f39f0
commit
8ef02aec12
|
@ -26,6 +26,6 @@
|
||||||
(when (equal name "header")
|
(when (equal name "header")
|
||||||
(setf headers (cons
|
(setf headers (cons
|
||||||
(cons (dom:get-attribute node "name")
|
(cons (dom:get-attribute node "name")
|
||||||
(dom:node-value (elt (child-elements node) 0)))
|
(get-node-text node))
|
||||||
headers)))))
|
headers)))))
|
||||||
`((,(dom:get-attribute put-node "url") . ,headers) ,(dom:get-attribute get-node "url")))))))
|
`((,(dom:get-attribute put-node "url") . ,headers) ,(dom:get-attribute get-node "url")))))))
|
||||||
|
|
Loading…
Reference in a new issue