diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2024-02-11 10:43:57 +0100 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2024-02-11 11:15:27 +0100 |
| commit | 614b244a7fa03fcb27d76757e14ef0fa895d6f23 (patch) | |
| tree | 333ea836a36e5d24a8360bae40387c39095bf3a8 /lisp/emacs-lisp | |
| parent | 9f9da26e0dcb242327af7cd8414fad7afedbbaa9 (diff) | |
| download | emacs-614b244a7fa03fcb27d76757e14ef0fa895d6f23.tar.gz emacs-614b244a7fa03fcb27d76757e14ef0fa895d6f23.tar.bz2 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 2 |
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." t) ((and (not (symbolp x)) (symbolp y)) nil) + ((or (consp x) (consp y) + nil)) (t (< (sxhash-equal x) (sxhash-equal y))))))) |