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