[music] Slurp importing errors.

plugins/music.lisp

@@ -137,7 +137,8 @@
 (defun run-import (paths &optional dry)
   (let ((cmd (beets-import-cmd paths)))
     (if dry (format t "Running ~{~a~^ ~}" cmd)
-        (uiop:run-program cmd))))
+        (handler-case (uiop:run-program cmd)
+          (error (e) (log:error "Error importing" paths e))))))
 
 (defun deluge-get-seeding-torrents ()
   (loop for (torrent state) on (deluge-get-torrents-status '(:|state| "Seeding") '("name")) by #'cddr