refactor: sync-music: use y-or-n-p instead of ad-hoc query

sync-music/main.lisp

@@ -54,13 +54,10 @@
     (dolist (actions all-actions)
       (fset:do-set (action actions)
         (action-describe action t)))
-    (unless *dry-run-p*
-      (format t
-              "~2&Perform ~A copies and ~A deletions? [y/N] "
-              (fset:size copy-actions)
-              (fset:size delete-actions))
-      (finish-output)
-      (char-equal (read-char) #\y))))
+    (and (not *dry-run-p*)
+         (y-or-n-p "~2&Perform ~A copies and ~A deletions?"
+                   (fset:size copy-actions)
+                   (fset:size delete-actions)))))
 
 (defun progress-handler (queue task-count)
   (loop :for n :from 1 :upto task-count