[Sbcl-commits] master: Use STABLE-SORT instead of SORT when sorting slot name lists

[Jan M. <sc...@us...>]

The branch "master" has been updated in SBCL:
       via  2d2a267b5a2ce7db080574d7de6b8088f3ffef84 (commit)
      from  0038790653e05feb0d87384845edadd6dade29b8 (commit)

- Log -----------------------------------------------------------------
commit 2d2a267b5a2ce7db080574d7de6b8088f3ffef84
Author: Jan Moringen <jmo...@te...>
Date:   Sun Jul 17 13:16:28 2016 +0200

    Use STABLE-SORT instead of SORT when sorting slot name lists
    
    Sorting slot name lists is intended to reduce the number of interned
    permutation vectors. After 93b0a4e, the sort predicate no longer takes
    symbol packages into account. Thus, SORT may produce any permutation for
    identically named symbols with different home packages. Using
    STABLE-SORT improves this a bit by at least keeping the original order.
    
    Suggested-by: Douglas Katzman <do...@go...>
---
 src/pcl/vector.lisp |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 05796a3..207ddbb 100644
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -555,7 +555,8 @@
 (defun sort-slots (slots)
   (mapcar (lambda (parameter-entry)
             (destructuring-bind (name . entries) parameter-entry
-              (cons name (sort entries #'symbol-or-cons-lessp :key #'car))))
+              (cons name (stable-sort entries #'symbol-or-cons-lessp
+                                      :key #'car))))
           slots))
 
 

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL