anchor.diff:              unless (member end sticky)
               nconcing (mapcar 
                         (lambda (word)
  -                        (gen-score (make-segment :start start :end end :word word)))
  +                        (gen-score (make-segment :start start :end end :word word)
  +                                   (= end (length str))))
                         (find-word (subseq str start end))))))
   
   
  
positive.code: (defstruct segment
    start end word (score nil) (top nil)) ;; (accum 0) (path nil)
  
  (defun calc-score (reading)
    (let* ((score 1)
           (kanji-p (typep reading 'kanji-text))
           (len (length (text reading))))
      (with-slots (common seq ord) reading
        (let* ((entry (get-dao 'entry seq))
               (prefer-kana (select-dao 'sense-prop (:and (:= 'seq seq) (:= 'tag "misc") (:= 'text "uk"))))
               (particle-p (select-dao 'sense-prop (:and (:= 'seq seq) (:= 'tag "pos") (:= 'text "prt"))))
  
negative.code:         ))
      score))
  
  (defun gen-score (segment &optional final)
    (setf (segment-score segment) (calc-score (segment-word segment) final))
    segment)
  
  (defun find-sticky-positions (str)
  