anchor.diff:           (return (not seq-candidates)))))
   
   (defparameter *pos-with-conj-rules*
  - '("adj-i" "adj-na" "adj-ix" "cop-da" "v1" "v1-s" "v5aru" 
  + '("adj-i" "adj-ix" "cop-da" "v1" "v1-s" "v5aru" 
      "v5b" "v5g" "v5k" "v5k-s" "v5m" "v5n" "v5r" "v5r-i" "v5s"
      "v5t" "v5u" "v5u-s" "vk" "vs-s" "vs-i"))
   
  
positive.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*)))
           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))))
  
negative.code:   (generic-synergy (l r)
     (lambda (segment)
       (and (typep (segment-word segment) 'kanji-text)
            (intersection '("n" "n-adv" "n-t" "adj-na")
                          (getf (segment-info segment) :posi)
                          :test #'equal)))
     (lambda (segment)
  