anchor.diff:    (:keys id)
     (:index package name id entity-id))
   
  -(defun entity-id (entity)
  -  ;; Just numbers for now.
  -  entity)
  -
   (defun list-modifiers (entity &optional (package *package*))
     (with-db ()
       (query (sql-compile `(:select :* :from 'modifier
  
positive.code:     (bt:destroy-thread *entity-system-thread*))
    (setf *entity-system-thread* nil))
  
  (defdao entity ()
    ((id :col-type serial :reader id)
     (comment :col-type (or db-null text)))
    (:keys id))
  
  (defdao modifier ()
    ((id :col-type serial :reader id)
     (entity-id :col-type bigint :initarg :entity-id)
  
negative.code:                     :where (:and (:= 'entity-id (entity-id entity))
                                   (:= 'package (package-name (symbol-package name)))
                                   (:= 'name (symbol-name name)))))))
  
  (defun find-by-modifier-value (modifier-name value &key (test :=) (allp nil))
    (with-db ()
  