anchor.diff:                 (let* ((,root-var (subseq ,str 0 ,pos))
                         (,primary-words (progn ,@get-primary-words)))
                    (mapcar (lambda (pw)
  -                           (make-instance 'compound-text
  -                                          :text ,str
  -                                          :kana (let ((k (get-kana pw)))
  -                                                  (concatenate 'string
  -                                                               (subseq k 0 (- (length k) ,stem))
  -                                                               (text ,suf)))
  -                                          :primary pw
  -                                          :words (list pw ,suf)
  -                                          :score-mod ,score))
  +                           (adjoin-word pw ,suf
  +                                        :text ,str
  +                                        :kana (let ((k (get-kana pw)))
  +                                                (concatenate 'string
  +                                                             (subseq k 0 (- (length k) ,stem))
  +                                                             ,connector
  +                                                             (text ,suf)))
  +                                        :score-mod ,score))
                            ,primary-words)))))))))
     
            
   (conj-suffix suffix-chau ("ちゃ" :chau) (root)
  -  (loop with str = (concatenate 'string root "て")
  -     for word in (find-word str)
  -     for conj-data = (get-conj-data (seq word))
  -     if (member 3 conj-data
  -                :key (lambda (cdata) (conj-type (conj-data-prop cdata))))
  -       collect word))
  +  (find-word-with-conj-type (concatenate 'string root "て") 3))
   
   (conj-suffix suffix-jau ("じゃ" :chau) (root)
  -  (loop with str = (concatenate 'string root "で")
  -     for word in (find-word str)
  -     for conj-data = (get-conj-data (seq word))
  -     if (member 3 conj-data
  -                :key (lambda (cdata) (conj-type (conj-data-prop cdata))))
  -       collect word))
  +  (find-word-with-conj-type (concatenate 'string root "で") 3))
  +
  +(conj-suffix suffix-tai ("たい" :tai :stem 0 :connector "-") (root)
  +  (find-word-with-conj-type root 13))
  +
   
   (defun find-word-full (word)
     (init-suffixes)
  
positive.code:                   'n-kanji (:select (:count 'id) :from 'kanji-text :where (:= 'kanji-text.seq 'entry.seq))
                    'n-kana (:select (:count 'id) :from 'kana-text :where (:= 'kana-text.seq 'entry.seq)))))
  
  (defclass kanji-text ()
    ((id :reader id :col-type serial)
     (seq :reader seq :col-type integer :initarg :seq)
     (text :reader text :col-type string :initarg :text)
  
negative.code:    :score 15
     :connector ""))
  
  (defsynergy synergy-na-adjectives (l r)
    (generic-synergy (l r)
     (filter-is-pos ("adj-na") (segment k p c l) (or k l (and p c)))
     (filter-in-seq-set 2029110 2028990) ;; な ; に 
     :description "na-adjective"
     :score 15
     :connector ""))
  
  ;; (defsynergy synergy-tai (l r)
  ;;   (generic-synergy (l r)
  ;;    (filter-is-conjugation 13)
  ;;    (filter-in-seq-set 2017560) ;; たい 
  ;;    :description "verb+tai"
  ;;    :score 10
  ;;    :connector "-"))
  
  (defsynergy synergy-o-prefix (l r)
    (generic-synergy (l r)
  