(let* ((dyninfo (file-dynamic-info "a.out"))
              (old     (elf-dynamic-info-runpath dyninfo))
              (new     (strip-runpath "a.out"))
              (new*    (strip-runpath "a.out")))
         (validate-needed-in-runpath "a.out")
         (and (member "/foo" old) (member "/bar" old)
              (not (member "/foo" new))
              (not (member "/bar" new))
              (equal? new* new)))

Generated by apteryx using scpaste at Sun Oct 26 18:52:02 2025. JST. (original)