anchor.diff:  
   (pushnew (cons :sa
                  (lambda (match &aux (seq (seq match)))
  -                 (and seq (query (:select 'root-p :from 'entry :where (:= 'seq seq)) :single))))            
  +                 (and seq (query (:select 'root-p :from 'entry :where (:= 'seq seq)) :single))))
            *suffix-unique-only*)
   
   (def-simple-suffix suffix-garu :garu (:connector "" :score 0) (root suf patch)
  
positive.code:     (loop for cd in conj-data
         for prop = (conj-data-prop cd)
         unless (test-conj-prop prop *weak-conj-forms*)
         collect (conj-id prop)))) 
  
  (defun get-kana-forms* (seq)
    (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)
  
negative.code:           (t uniq))))
  
  (defun find-word-suffix (word &key matches)
    (loop with suffixes = (if *suffix-map-temp*
                              (gethash *suffix-next-end* *suffix-map-temp*)
                              (get-suffixes word))
         and slice = (make-slice)
  