1
0
Преглед на файлове

Ignore errors on rss fetch fail

Innokenty Enikeev преди 10 години
родител
ревизия
8a5804ad43
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      rss.lisp

+ 1 - 1
rss.lisp

@@ -37,7 +37,7 @@
 
 (defun refresh-feed (feed &optional (skip-p #'not))
   (let* ((items
-          (loop for item in (fetch-feed-items feed)
+          (loop for item in (ignore-errors (fetch-feed-items feed))
              unless (funcall skip-p item)
              collect item))
          (new-period (adjust-period (feed-period feed) (length items))))