From 912c09edc4de1f990f0fb1269219e3768fa59597 Mon Sep 17 00:00:00 2001 From: eta Date: Sat, 1 Aug 2020 17:37:36 +0100 Subject: [PATCH] Fix order of entity caps in hash function --- xep-0115.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/xep-0115.lisp b/xep-0115.lisp index 7f0dbd9..a6b7fe5 100644 --- a/xep-0115.lisp +++ b/xep-0115.lisp @@ -24,6 +24,8 @@ WARNING: You must pre-sort DISCO-INFO-LIST according to the rules in XEP-0115 ยง ;; intentionally take the same lambda lists, ;; we can just do this. (apply #'format-disco-identity call)) - identities) + ;; NREVERSE because pushing things does it the wrong + ;; way round (FIXME, inefficient) + (nreverse identities)) ;; DISCO-FEATURE takes one argument (the feature name) - (mapcar #'car features))))))) + (mapcar #'car (nreverse features))))))))