anchor.diff:    (generic-synergy (l r)
      (lambda (segment)
        (and (typep (segment-word segment) 'kanji-text)
  -          (intersection '("n" "n-adv" "n-t")
  +          (intersection '("n" "n-adv" "n-t" "adj-na")
                           (getf (segment-info segment) :posi)
                           :test #'equal)))
      (lambda (segment)
  
positive.code:     (loop for rule in rules
           collect (cons rule (construct-conjugation word rule)))))
  
  (defparameter *do-not-conjugate* '("n" "vs"))
  
  (defun conjugate-entry-inner (seq)
    (let ((posi (query (:select 'text :distinct :from 'sense-prop
  
negative.code:        for pos in posi
         for pos-id = (get-pos-index pos)
         for rules = (get-conj-rules pos-id)
         if (and rules (not (member pos *do-not-conjugate* :test 'equal)))
           do (loop 
                 for (reading ord kanji-flag) in (query (:union (:select 'text 'ord 1 :from 'kanji-text :where (:= 'seq seq))
                                                                (:select 'text 'ord 0 :from 'kana-text :where (:= 'seq seq))))
  