X-Git-Url: http://dolda2000.com/gitweb/?p=lisp-utils.git;a=blobdiff_plain;f=mpcl.lisp;h=de3e41012501aa1eae32ce3c1455b5dfc855eeb9;hp=98a545e9ee2c2bc85685595b5aed2e7e2506542b;hb=HEAD;hpb=5a4158dd6fb3a1ed9e358900f53c582c4ae30148

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)