From: Gabor M. <me...@us...> - 2009-04-06 08:54:41
|
Update of /cvsroot/sbcl/sbcl/src/code In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9359/src/code Modified Files: timer.lisp Log Message: 1.0.27.2: fix bug in heap implementation ... used by timers. Thanks to Ole Arndt for the patch. Index: timer.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/timer.lisp,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- timer.lisp 16 Feb 2009 22:16:20 -0000 1.15 +++ timer.lisp 6 Apr 2009 08:54:27 -0000 1.16 @@ -16,7 +16,7 @@ (declaim (inline heap-parent heap-left heap-right)) (defun heap-parent (i) - (ash i -1)) + (ash (1- i) -1)) (defun heap-left (i) (1+ (ash i 1))) |