anchor.diff:  
   (defmethod clear-events ((game game))
     (let ((pause-state (paused-p game)))
  -   (setf (event-queue queue) (make-priority-queue :key #'exec-time))
  +   (setf (event-queue game) (make-priority-queue :key #'exec-time))
      (setf (paused-p game) pause-state)))
   
   ;;;
  
positive.code:     :documentation "A function, that contains the code to be executed.")
     (exec-time
      :initarg :exec-time
      :initform (/ (* (get-internal-real-time) internal-time-units-per-second) 1000)
      :accessor exec-time
      :documentation "The time of execution when this event will be considered 'cooked'. 
  By default, all events are immediately cooked.")))
  
  ;;;
  ;;; Event-queue
  
negative.code: 
  (defmethod cooked-p ((event event))
    "Simply checks that it doesn't shoot its load prematurely.."
    (let  ((time-difference (time-difference (exec-time event))))
      (when (>= time-difference 0)
        t)))
  
  (defmethod execute-event ((event event))
    "Executes a standard event. Nothing fancy, just a funcall."
  