1.1--- a/lisp/lib/aud/mpd.lisp	Sun Jun 02 23:14:36 2024 -0400
     1.2+++ b/lisp/lib/aud/mpd.lisp	Sun Jun 02 23:16:44 2024 -0400
     1.3@@ -173,11 +173,6 @@
     1.4       (format stream "~A - ~A (~A)" artist title album))))
     1.5 
     1.6 ;;; MPD
     1.7-(defun ensure-mpd ()
     1.8-  (handler-case
     1.9-      (with-mpc (c) t)
    1.10-    (not-exist () (sb-ext:run-program "mpd" nil :search t :directory (user-homedir-pathname) :wait nil))))
    1.11-
    1.12 (defvar *default-host* "localhost")
    1.13 (defvar *default-port* 6600)
    1.14 
    1.15@@ -210,6 +205,11 @@
    1.16             (progn ,@body)
    1.17          (disconnect ,var)))))
    1.18 
    1.19+(defun ensure-mpd ()
    1.20+  (handler-case
    1.21+      (with-mpc (c) t)
    1.22+    (not-exist () (sb-ext:run-program "mpd" nil :search t :directory (user-homedir-pathname) :wait nil))))
    1.23+
    1.24 (defun send-command (connection command)
    1.25   "Send command to MPD."
    1.26   (let ((stream (socket-make-stream connection :input t)))