diff options
| author | Andrea Corallo | 2024-02-11 10:43:57 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2024-02-11 11:15:27 +0100 |
| commit | 614b244a7fa03fcb27d76757e14ef0fa895d6f23 (patch) | |
| tree | 333ea836a36e5d24a8360bae40387c39095bf3a8 | |
| parent | 9f9da26e0dcb242327af7cd8414fad7afedbbaa9 (diff) | |
| download | emacs-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.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." | |||
| 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))))))) |