:vana-inflector interface for adding rules/exceptions

gistfile1.cl

(defun uncountable (word)
  "Notifies the inflector that a word is uncountable"
  (push word *uncountables*))
 
(defun irregular (singular plural)
  "Adds a irregular single-plural set to the irregular list"
  (push (cons singular plural) *irregulars*))
 
(defun plural (rule replacement)
  "Adds a plural rule, where RULE can be either a string or a regex, and REPLACEMENT can contain capture references defined in RULE"
  (push (list rule replacement) *plurals*))
 
(defun singular (rule replacement)
  "Adds a singular rule, where RULE can be either a string or a regex, and REPLACEMENT can contain capture references defined in RULE"
  (push (list rule replacement) *singulars*))