anchor.diff:       (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 ""))
  +(defun source-location-to-xref-location (location &optional (title "") no-errors)
     (alexandria:destructuring-ecase location
       ((:location location-buffer position _hints)
        (declare (ignore _hints))
  
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: 
  (defun definition-to-location (definition)
    (destructuring-bind (title location) definition
      (source-location-to-xref-location location title t)))
  
  (defun definitions-to-locations (definitions)
    (loop :for def :in definitions
  