From b84cd587ccd8be0f7660628e8137aa497ecfae87 Mon Sep 17 00:00:00 2001
From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Mon, 5 Apr 2010 07:08:35 +0200
Subject: [PATCH] Make sure always to close the mpcl socket stream properly.

---
 mpcl.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mpcl.lisp b/mpcl.lisp
index 98a545e..de3e410 100644
--- a/mpcl.lisp
+++ b/mpcl.lisp
@@ -153,7 +153,9 @@
   "Disconnect from MPD."
   (with-conn-lock
     (let ((sk (prog1 *socket* (setf *socket* nil))))
-      (if sk (ignore-errors (close sk))))))
+      (when sk (handler-case
+		   (close sk)
+		 (error () (close sk :abort t)))))))
 
 (defun connection-error (condition-type &rest condition-args)
   (disconnect)
-- 
2.11.0