Browse Source

Fix order of entity caps in hash function

master
η (eta) 5 months ago
parent
commit
912c09edc4
1 changed files with 4 additions and 2 deletions
  1. +4
    -2
      xep-0115.lisp

+ 4
- 2
xep-0115.lisp View File

@@ -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))))))))

Loading…
Cancel
Save