anchor.diff:                          :name "entity-system-processing")))
   
   (defun teardown-entity-system ()
  -  (when (and *es-thread* (bt:thread-alive-p *es-thread*))
  -    (bt:destroy-thread *es-thread*))
  -  (setf *es-thread* nil))
  +  (when (and *entity-system-thread* (bt:thread-alive-p *entity-system-thread*))
  +    (bt:destroy-thread *entity-system-thread*))
  +  (setf *entity-system-thread* nil))
   
   (defdao entity ()
     ((id :col-type serial :reader id)
  
positive.code:     (maphash-values #'funcall callbacks)))
  
  (defparameter *ticks-per-second* 5)
  (defvar *es-thread* nil)
  (defun init-entity-system ()
    (setf *es-thread*
          (bt:make-thread (lambda ()
                            (loop with timer = (make-timer *ticks-per-second*)
                               do (timer-tick timer)
  
negative.code:     (flet ((process-penalty (p)
               (destructuring-bind (event-execution-id modifier-id)
                   p
                 (query (:delete-from 'modifier :where (:= 'id modifier-id)))
                 (query (:update 'event-execution :set 'completedp t
                                 :where (:= 'id event-execution-id))))))
  