Fix order of entity caps in hash function

This commit is contained in:
eta 2020-08-01 17:37:36 +01:00
parent 599123dbef
commit 912c09edc4

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, ;; intentionally take the same lambda lists,
;; we can just do this. ;; we can just do this.
(apply #'format-disco-identity call)) (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) ;; DISCO-FEATURE takes one argument (the feature name)
(mapcar #'car features))))))) (mapcar #'car (nreverse features))))))))