anchor.diff:                        (lambda (word)
                           (gen-score (make-segment :start start :end end :word word)
                                      (= end (length str))))
  -                      (find-word (subseq str start end))))))
  +                      (find-word (subseq-slice slice str start end))))))
   
   (defparameter *identical-word-score-cutoff* 1/2)
   
  
positive.code:      if (eql char-class :sokuon) collect (1+ pos)
       else if (member char-class modifiers) collect pos))
  
  (defun find-substring-words (str)
    (loop with sticky = (find-sticky-positions str)
         for start from 0 below (length str)
         unless (member start sticky)
         nconcing 
  
negative.code:                                  (when (>= (segment-score segment) *score-cutoff*) (list segment))))
                               (let ((*suffix-map-temp* suffix-map)
                                     (*suffix-next-end* end))
                                 (find-word-full (subseq-slice slice str start end))))))
                (when segments
                  (list (make-segment-list :segments (cull-segments segments)
                                           :start start :end end)))))))
  