anchor.diff:         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*)))
  +       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))))
  
positive.code:          (return (not seq-candidates)))))
  
  (defparameter *pos-with-conj-rules*
   '("adj-i" "adj-na" "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"))
  
  
negative.code:     (loop for rule in rules
           collect (cons rule (construct-conjugation word rule)))))
  
  (defparameter *do-not-conjugate* '("n" "vs" "adj-na"))
  
  (defun conjugate-entry-inner (seq)
    (let ((posi (query (:select 'text :distinct :from 'sense-prop
  