anchor.diff:                                               :src-map src-map
                                                ))))
   
  -(defun get-original-text (conj-datas texts)
  +(defun get-original-text* (conj-datas texts)
     (unless (listp texts)
       (setf texts (list texts)))
     (unless (listp conj-datas)
  
positive.code:        (let ((src-text (loop for (txt src-txt) in (conj-data-src-map conj-data)
                            if (find txt texts :test 'equal) collect src-txt)))
           (if (not (conj-data-via conj-data))
               src-text
               (let ((new-cd (get-conj-data (conj-data-via conj-data) (conj-data-from conj-data))))
                       (get-original-text new-cd src-text))))))
  
  
  ;;;;
  
  
negative.code:               (and (not root-p) (skip-by-conj-data conj-data)))
        (return-from calc-score 0))
      (when (and conj-data (not (and (= ord 0) common-p)))
        (let ((conj-of-data (loop for ot in (get-original-text reading) collect (list (common ot) (ord ot)))))
          (when conj-of-data
            (unless common-p
              (let ((conj-of-common (mapcan (lambda (row) (unless (eql (car row) :null) (list (car row)))) conj-of-data)))
  