anchor.diff:  
   (defun definition-to-location (definition)
     (destructuring-bind (title location) definition
  -    (source-location-to-xref-location location title)))
  +    (source-location-to-xref-location location title t)))
   
   (defun definitions-to-locations (definitions)
     (loop :for def :in definitions
  
positive.code:                              :filespec buffer
                               :position (position-at-point point)))))
      ((:error message)
       (editor-error "~A" message))))
  
  (defun location-buffer-to-buffer (location-buffer)
    (alexandria:destructuring-ecase location-buffer
  
negative.code:      (let ((xref-location (source-location-to-xref-location source-location)))
         (go-to-location xref-location t)))))
  
  (defun source-location-to-xref-location (location &optional (title "") no-errors)
    (alexandria:destructuring-ecase location
      ((:location location-buffer position _hints)
       (declare (ignore _hints))
  