add ignore errors

archimag · Jun 23, 2009 · 51a4a7b · 51a4a7b
1 parent d055f76
commit 51a4a7b
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/src/planet.lisp b/src/planet.lisp
@@ -166,12 +166,14 @@
     (let ((entries nil)
           (feeds (planet-feeds planet)))
       (iter (for feed in feeds)
-            (xtree:with-parse-document (rawfeed (puri:parse-uri (feed-url feed)))
-              (update-feed-class feed rawfeed)
-              (xtree:with-object (nodeset (find-feed-entities feed rawfeed))
-                (iter (for rawentry in-nodeset (xpath:xpath-object-value nodeset))
-                      (push (parse-feed-entry feed rawentry)
-                            entries)))))
+            (ignore-errors
+              (xtree:with-parse-document (rawfeed (puri:parse-uri (feed-url feed)))
+                (update-feed-class feed rawfeed)
+                (xtree:with-object (nodeset (find-feed-entities feed rawfeed))
+                  (iter (for rawentry in-nodeset (xpath:xpath-object-value nodeset))
+                        (ignore-errors
+                          (push (parse-feed-entry feed rawentry)
+                                entries)))))))
       (setf syndicate-feed
             (xfactory:with-document-factory ((atom "http://www.w3.org/2005/Atom"))
               (atom :feed