anchor.diff:          (unless (eql common :null)
             (if (or primary-p long-p)
                 (incf score (if (= common 0) 10 (max (- 20 common) 10)))
  -              (incf score 5)))
  +              (incf score 2)))
           (when long-p
             (setf score (max 5 score)))
           (setf score (* score (expt len (if (or kanji-p katakana-p) 3 2))))
  -        ))
  -    score))
  +        (values score (list :posi posi :seq-set seq-set
  +                            :conj (get-conj-data seq)))))))
   
   (defun gen-score (segment &optional final)
  -  (setf (segment-score segment) (calc-score (segment-word segment) final))
  +  (setf (values (segment-score segment) (segment-info segment))
  +        (calc-score (segment-word segment) final))
     segment)
   
   (defun find-sticky-positions (str)
  
positive.code: (defmethod print-object ((obj conj-prop) stream)
    (print-unreadable-object (obj stream :type t :identity nil)
      (princ (conj-info-short obj) stream)))
  
  (defun init-tables ()
    (with-connection *connection*
  
negative.code:   (:method ((obj top-array))
      (with-slots (array count) obj
        (if (>= count (length array)) array (subseq array 0 count)))))
  
  (defun find-best-path (segments &key (limit 5))
    ;;assume segments are sorted by (start, end) (as is the result of find-substring-words)
  