If you want this:

CL-USER> (float (alexandria:median '(1 2 3 4))) 2.5

CL-USER> (alexandria:median '(100 0 99 1 98 2 97 96)) 193/2

Then you need this patch (the test is also wrong):

johan@perle:~/prg/cllibs/alexandria$ darcs diff -u diff -rN -u old-alexandria/numbers.lisp new-alexandria/numbers.lisp --- old-alexandria/numbers.lisp 2009-09-12 01:24:20.000000000 +0200 +++ new-alexandria/numbers.lisp 2009-09-12 01:24:20.000000000 +0200 @@ -97,7 +97,7 @@ (middle (truncate length 2))) (if (oddp length) (aref vector middle) - (/ (+ (aref vector middle) (aref vector (1+ middle))) 2)))) + (/ (+ (aref vector middle) (aref vector (1- middle))) 2))))

(declaim (inline variance)) (defun variance (sample &key (biased t)) diff -rN -u old-alexandria/tests.lisp new-alexandria/tests.lisp --- old-alexandria/tests.lisp 2009-09-12 01:24:20.000000000 +0200 +++ new-alexandria/tests.lisp 2009-09-12 01:24:20.000000000 +0200 @@ -855,7 +855,7 @@

(deftest median.2 (median '(100 0 99 1 98 2 97 96)) - 195/2) + 193/2)

(deftest variance.1 (variance (list 1 2 3))

johan@perle:~/prg/cllibs/alexandria$