Permalink
Browse files

Allow timeouts to be cancelled twice

  • Loading branch information...
1 parent 3cf38ec commit 7088842e93d42ff31e2336f1c6cb60060e44cfb7 @vii committed Oct 24, 2010
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/lib/quick-queue.lisp
@@ -40,6 +40,7 @@
(my-defun quick-queue-entry del ()
(my-declare-fast-inline)
(setf (quick-queue-entry-next (my prev)) (my next))
- (setf (quick-queue-entry-prev (my next)) (my prev)))
+ (setf (quick-queue-entry-prev (my next)) (my prev))
+ (setf (my prev) me (my next) me))

0 comments on commit 7088842

Please sign in to comment.