Permalink
Browse files

Fixed timer cancellation bug.

  • Loading branch information...
1 parent 996b0cf commit b395732be1c56110acf59be7e11a0fe0c9e15ac2 @willijar committed Aug 17, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 core/scheduler.lisp
View
3 core/scheduler.lisp
@@ -106,7 +106,8 @@ called after all entities created before running simulation")
(:documentation "Cancel an event")
(:method((event event) (scheduler scheduler))
(when (>= (slot-value event 'rank) 0)
- (alg:delete event (slot-value scheduler 'event-queue)))))
+ (alg:delete event (slot-value scheduler 'event-queue))
+ (setf (slot-value event 'rank) -1))))
(defmethod stop((event event) &key &allow-other-keys)
(cancel event (scheduler)))

0 comments on commit b395732

Please sign in to comment.