X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftimer.lisp;fp=src%2Fcode%2Ftimer.lisp;h=b644f712e9c6c0a0c4443ec0575a77143a159df7;hb=26265f96389d737bf2e1e4c787ea8943ae499944;hp=774ee2b4a6f768e0b039c1d565f836562f764b64;hpb=47b7637b3e7c012c6dfa754e107c9bc7d74e73bd;p=sbcl.git

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 774ee2b..b644f71 100644
--- a/src/code/timer.lisp
+++ b/src/code/timer.lisp
@@ -65,7 +65,7 @@
     (aref heap 0)))
 
 (defun heap-extract (heap i &key (key #'identity) (test #'>=))
-  (when (< (length heap) i)
+  (unless (> (length heap) i)
     (error "Heap underflow"))
   (prog1
       (aref heap i)