anchor.diff:      (loop for rule in rules
            collect (cons rule (construct-conjugation word rule)))))
   
  -(defparameter *do-not-conjugate* '("n" "vs"))
  +(defparameter *do-not-conjugate* '("n" "vs" "adj-na"))
   
   (defun conjugate-entry-inner (seq)
     (let ((posi (query (:select 'text :distinct :from 'sense-prop
  
positive.code:   (generic-synergy (l r)
     (lambda (segment)
       (and (typep (segment-word segment) 'kanji-text)
            (intersection '("n" "n-adv" "n-t")
                          (getf (segment-info segment) :posi)
                          :test #'equal)))
     (lambda (segment)
  
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))))
  