aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Corallo2024-02-11 10:43:57 +0100
committerAndrea Corallo2024-02-11 11:15:27 +0100
commit614b244a7fa03fcb27d76757e14ef0fa895d6f23 (patch)
tree333ea836a36e5d24a8360bae40387c39095bf3a8
parent9f9da26e0dcb242327af7cd8414fad7afedbbaa9 (diff)
downloademacs-614b244a7fa03fcb27d76757e14ef0fa895d6f23.tar.gz
emacs-614b244a7fa03fcb27d76757e14ef0fa895d6f23.zip
* Improve reproducibility of inferred values by native comp
* lisp/emacs-lisp/comp-cstr.el (comp-normalize-valset): Do not try to reorder conses using 'sxhash-equal' as its behavior is not reproducible over different sessions.
-rw-r--r--lisp/emacs-lisp/comp-cstr.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 812a79f070d..ecbe6e38a1d 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -203,6 +203,8 @@ Return them as multiple value."
203 t) 203 t)
204 ((and (not (symbolp x)) (symbolp y)) 204 ((and (not (symbolp x)) (symbolp y))
205 nil) 205 nil)
206 ((or (consp x) (consp y)
207 nil))
206 (t 208 (t
207 (< (sxhash-equal x) 209 (< (sxhash-equal x)
208 (sxhash-equal y))))))) 210 (sxhash-equal y)))))))