anchor.diff:  (defun modifier-value (entity name)
     (with-db ()
       (find-if-not (curry #'eq :null)
  -                 (query (:order-by (:select 'text-value 'numeric-value 'text-array-value
  +                 (query (:order-by (:select 'text-value 'numeric-value
  +                                            'boolean-value 'text-array-value
                                               :from 'modifier
                                               :where (:and (:= 'entity-id (entity-id entity))
                                                            (:= 'package (package-name (symbol-package name)))
  
positive.code:              (number (list :numeric-value value))
               (string (list :text-value value))
               (vector (list :text-array-value value))
               (symbol (list :text-value (princ-to-string value)))))))
  
  (defun delete-modifier (modifier-id)
  
negative.code:                                                              (number 'numeric-value)
                                                               (string 'text-value)
                                                               (vector 'text-array-value)
                                                               (boolean 'boolean-value)
                                                               (symbol 'text-value)))))
                (:desc 'precedence)))
             (if allp
  