anchor.diff:      :documentation "A function, that contains the code to be executed.")
      (exec-frame
       :initarg :exec-frame
  -    :initform (current-frame *game*)
  +    :initform (current-frame (current-level *game*))
       :accessor exec-frame
       :documentation "The time of execution when this event will be considered 'cooked'. 
   By default, all events are immediately cooked.")))
  
positive.code: ;;; Methods
  
  ;; Why am I not using this in main.lisp? ffs.
  (defmethod process-next-event ((game game))
    "Processes the next event in EVENT-QUEUE, executing it if it's 'baked'."
    (when (event-available-p game)
      (let ((event (pop-next-event game)))
        (execute-event event))))
  
  (defmethod event-available-p ((game game))
    "Simply peeks to see if there's an event in the queue, and if it's cooked."
    (when (and (peek-next-event game)
  	     (cooked-p (peek-next-event game)))
      t))
  
  (defmethod cooked-p ((event event))
    "Simply checks that it doesn't shoot its load prematurely.."
    (let  ((frame-difference (- (exec-frame event) (current-frame *game*))))
      (when (<= frame-difference 0)
        t)))
  
  
negative.code:   "Executes a standard event. Nothing fancy, just a funcall."
    (funcall (payload event)))
  
  (defmethod process-cooked-events ((level level))
    (loop
       while (event-available-p level)
       do (process-next-event level)))