From 8ef02aec12657e2b7d0ac58a702b360c66e8df7f Mon Sep 17 00:00:00 2001 From: eta Date: Tue, 1 Jun 2021 16:54:20 +0100 Subject: [PATCH] fix borked XEP-0363 --- xep-0363.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xep-0363.lisp b/xep-0363.lisp index 6fb2fad..fd3db84 100644 --- a/xep-0363.lisp +++ b/xep-0363.lisp @@ -26,6 +26,6 @@ (when (equal name "header") (setf headers (cons (cons (dom:get-attribute node "name") - (dom:node-value (elt (child-elements node) 0))) + (get-node-text node)) headers))))) `((,(dom:get-attribute put-node "url") . ,headers) ,(dom:get-attribute get-node "url")))))))