[Sbcl-commits] master: Add type declarations in stable-sort-list

[Paul K. <pk...@us...>]

The branch "master" has been updated in SBCL:
       via  c64c82cf73278e160a528343f675590ab22d68ee (commit)
      from  088583ae2b22d8d861fbc354568bd24edc0333cb (commit)

- Log -----------------------------------------------------------------
commit c64c82cf73278e160a528343f675590ab22d68ee
Author: Paul Khuong <pv...@pv...>
Date:   Mon Aug 13 16:06:50 2012 -0400

    Add type declarations in stable-sort-list
    
     * I'd copied some code from a preliminary development version.
---
 src/code/sort.lisp |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/src/code/sort.lisp b/src/code/sort.lisp
index 970defb..278b79c 100644
--- a/src/code/sort.lisp
+++ b/src/code/sort.lisp
@@ -164,6 +164,9 @@
            (type function test key)
            (dynamic-extent head))
   (labels ((merge* (size list1 tail1 list2 tail2 rest)
+             (declare (optimize speed)
+                      (type (and fixnum unsigned-byte) size)
+                      (type cons list1 tail1 list2 tail2))
              (when (>= size +stable-sort-fast-merge-limit+)
                (cond ((not (funcall test (funcall key (car list2))   ; stability
                                          (funcall key (car tail1)))) ; trickery

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


hooks/post-receive
-- 
SBCL