1.0.12.5: WITH-ARRAY-DATA touchups

[sbcl.git] / src / code / timer.lisp

diff --git a/src/code/timer.lisp b/src/code/timer.lisp
index 774ee2b..b644f71 100644 (file)
--- 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)