Ignore errors from rTorrent.

stassats · Dec 7, 2010 · b5d9d8e · b5d9d8e
1 parent db1f40f
commit b5d9d8e
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/rtorrent-controller.lisp b/rtorrent-controller.lisp
@@ -49,10 +49,14 @@
                "torrent")
     (let ((namestring (remove #\\ (namestring filename))))
       (format t "Loading ~a~%" namestring)
-      (load-torrent namestring :start (equal "v" (pathname-name filename))))
-    (disable-last-torrent)
-    (handler-case (delete-file filename)
-      (file-error ()))))
+      (handler-case
+          (progn
+            (load-torrent namestring :start (equal "v" (pathname-name filename)))
+            (disable-last-torrent)
+            (handler-case (delete-file filename)
+              (file-error ())))
+        (error (e)
+          (warn "An error ~a has occured while communicating with rTorrent." e))))))
 
 (defun inotify-loop (&optional (directory (user-homedir-pathname)))
   (inotify:with-inotify (inot `((,directory ,(logior inotify:in-create