From c64c82cf73278e160a528343f675590ab22d68ee Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Mon, 13 Aug 2012 16:06:50 -0400 Subject: [PATCH] Add type declarations in stable-sort-list * I'd copied some code from a preliminary development version. --- src/code/sort.lisp | 3 +++ 1 file changed, 3 insertions(+) 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 -- 1.7.10.4