anchor.diff:               (number (list :numeric-value value))
                (string (list :text-value value))
                (vector (list :text-array-value value))
  +             (boolean (list :boolean-value value))
                (symbol (list :text-value (princ-to-string value)))))))
   
   (defun delete-modifier (modifier-id)
  
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:                                                              (number 'numeric-value)
                                                               (string 'text-value)
                                                               (vector 'text-array-value)
                                                               (boolean 'boolean-value)
                                                               (symbol 'text-value)))))
                (:desc 'precedence)))
             (if allp
  