anchor.diff:                 (try (third rest))
                  (return)))))
   
  -(defun find-reference-by-locative-string (locative-string known-references
  +(defun find-reference-by-locative-string (locative-string possible-references
                                             &key if-dislocated)
     (let ((locative (read-locative-from-string locative-string)))
       (when locative
  
positive.code:       ;; generalization of that to locative-types.
        (if (and if-dislocated (eq locative 'dislocated))
            (make-reference if-dislocated 'dislocated)
            (find locative known-references
                  :key #'reference-locative :test #'locative-equal)))))
  
  (defun translate-to-code (parent tree known-references)
  
negative.code: ;;; with which NAME occurs in KNOWN-REFERENCES. Return the matching
  ;;; REFERENCE, if found. KNOWN-REFERENCES must only contain references
  ;;; to the symbol.
  (defun find-locative-around (tree name-element possible-references)
    (labels ((try (element)
               (let ((reference
                       (cond ((stringp element)
                              (find-reference-by-locative-string
                               element possible-references))
                             ((eq :code (first element))
                              (find-reference-by-locative-string
                               (second element) possible-references))
                             ;; (:REFERENCE-LINK :LABEL ((:CODE
                             ;; "CLASS")) :DEFINITION "0524")
                             ((eq :reference-link (first element))
  