anchor.diff:         for katakana-group-end = (cdr (assoc start katakana-groups))
          for number-group-end = (cdr (assoc start number-groups))
          unless (member start sticky)
  -       nconcing 
  +       nconcing
          (loop for end from (1+ start) upto (length str)
               unless (member end sticky)
               nconcing
  
positive.code:      if (funcall test-fn wi) nconc (list (cons wi wi-next))
       nconc (loop for (wf . wf-next) in (word-info-rec-find components test-fn)
                collect (cons wf (or wf-next wi-next)))))
         
  (defun process-word-info (wi-list)
    "Process readings such as nani/nan (hardcoded so far)"
    (loop for (wi wi-next) on wi-list
  
negative.code:           (if kana-seq (list word)
                (let* ((kanji-seq (query (:select 'seq :from 'kanji-text
                                                  :where (:= 'text word)) :column)))
                  (query (:order-by
                          (:select 'text :from 'kana-text :where
                                   (:in 'seq (:set kanji-seq)))
                          'id) :column)))))
  