fix: sync-music: with-cue with :string type

sync-music/libcue/libcue.lisp

@@ -33,14 +33,14 @@ Only works on Unix systems with a /dev/fd/ filesystem."
 If TYPE is :FILE, use cue_parse_file with fopen on DATA. If TYPE is :STRING,
 use cue_parse_string directly."
   (once-only (data)
-    `(let ((,var ,(ecase type
+    `(let ((,var (with-ignore-stderr
+                   ,(ecase type
                       (:file
                        (with-gensyms (file)
                          `(with-read-file (,file ,data)
-                          (with-ignore-stderr
-                            (cue-parse-file ,file)))))
+                            (cue-parse-file ,file))))
                       (:string
-                     data))))
+                       `(cue-parse-string ,data))))))
        (declare (dynamic-extent ,var))
        (unless (cffi:null-pointer-p ,var)
          (unwind-protect