src/*.lisp: replace find-current-root by find-related-root when needed