anchor.diff:     (number-text :reader number-text :initarg :number-text)
      (number :reader number-value)
      (source :reader source :initform nil :initarg :source)
  -   (ordinalp :reader ordinalp :initarg :ordinalp)
  +   (ordinalp :reader ordinalp :initform nil :initarg :ordinalp)
      ))
   
   (defgeneric verify (counter unique)
  
positive.code:                                         (sort (cdr value) '< :key 'ord))))
         hash)
        hash)))
  
negative.code:         (loop for seq being each hash-key of readings-hash using (hash-value readings)
             for (kanji . kana) = readings
             for special = (gethash seq *special-counters*)
             if special do (mapcar (lambda (args) (apply #'add-args args)) (funcall special (append kanji kana)))
             else do (loop for kt in kanji
                        for text = (text kt)
                        do (add-args text 'counter-text
  