anchor.diff:      (loop for cd in conj-data
          for prop = (conj-data-prop cd)
          unless (test-conj-prop prop *weak-conj-forms*)
  -       collect (conj-id prop)))) 
  +       collect (conj-id prop))))
   
   (defun get-kana-forms* (seq)
  -  (loop for kt in 
  +  (loop for kt in
          (query-dao 'kana-text (:select 'kt.* :distinct :from (:as 'kana-text 'kt)
                                         :left-join (:as 'conjugation 'conj) :on (:= 'conj.seq 'kt.seq)
                                         :where (:or (:= 'kt.seq seq)
  
positive.code:         (load-abbr :nai-n "ん")
          (load-abbr :nai-n "ねぇ")
          (load-abbr :nai-n "ねー")
          
          (load-abbr :nakereba "なきゃ")
          (load-abbr :nakereba "なくちゃ")
  
  
negative.code:                                                      ,suf-var))
                                  :score-mod ,score))
                   ,primary-words)))))
  
  (def-simple-suffix suffix-tai :tai (:connector "" :score 5) (root)
    (find-word-with-conj-type root 13))
  
  