diff --git a/sync-music/sync-music.lisp b/sync-music/sync-music.lisp index af3b8fd..77d177a 100644 --- a/sync-music/sync-music.lisp +++ b/sync-music/sync-music.lisp @@ -31,7 +31,8 @@ Return the action if it exists, or NIL if the file should not be copied." (uiop:run-program (list "cueprint" "-d" "%N" cue-file) - :output :string) + :output :string + :ignore-error-status t) :junk-allowed t))) (when (> cue-track-count (count-if (lambda (f) (funcall test (pathname-type f) "flac"))