From b488540ffe32092e092a10c1d89fbac154073325 Mon Sep 17 00:00:00 2001
From: eriedaberrie <eriedaberrie@gmail.com>
Date: Thu, 7 Nov 2024 20:27:12 -0800
Subject: [PATCH] feat: sync-music: ignore cueprint erorrs

---
 sync-music/sync-music.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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"))