(string-contains
                   (call-with-output-string
                     (lambda (out)
                       (let ((pid (spawn "git" '("git" "lfs" "ls-files")
                                         #:output out)))
                         (assert (zero? (cdr (waitpid pid)))))))
                   "one-mebibyte.blob")

Generated by apteryx using scpaste at Tue Apr 28 10:53:42 2026. JST. (original)