anchor.diff:                                                               (number 'numeric-value)
                                                                (string 'text-value)
                                                                (vector 'text-array-value)
  +                                                             (boolean 'boolean-value)
                                                                (symbol 'text-value)))))
                 (:desc 'precedence)))
              (if allp
  
positive.code: (defun modifier-value (entity name)
    (with-db ()
      (find-if-not (curry #'eq :null)
                   (query (:order-by (:select 'text-value 'numeric-value 'text-array-value
                                              :from 'modifier
                                              :where (:and (:= 'entity-id (entity-id entity))
                                                           (:= 'package (package-name (symbol-package name)))
  
negative.code:    ;; NOTE: If another value type is added here, update:
     ;; ADD-MODIFIER, MODIFIER-VALUE, FIND-BY-MODIFIER-VALUE.
     (numeric-value :col-type (or db-null numeric) :initarg :numeric-value)
     (boolean-value :col-type (or db-null boolean) :initarg :boolean-value)
     (text-value :col-type (or db-null text) :initarg :text-value)
     (text-array-value :col-type (or db-null text[]) :initarg :text-array-value))
    (:keys id)
  