r8307: accept atoms as well as lists

[cl-rss.git] / main.lisp

diff --git a/main.lisp b/main.lisp
index e458724514d52ea9286e11dda335b627ef9bf814..f469ee7f9597b4da2039532c1704b13ce73c0681 100644 (file)
--- a/main.lisp
+++ b/main.lisp
@@ -26,7 +26,7 @@
     '("http://www.cliki.net/recent-changes.rdf"))
 
 (defun show-sites (&optional (sites *sites*))
-  (dolist (site sites)
+  (dolist (site (mklist sites))
     (awhen (rss-site site)
           (display-site it))))
 
@@ -87,7 +87,7 @@
              (cond
               ((string= "title" (car pair))
                (setf (title item) (second pair)))
-              ((string= "links" (car pair))
+              ((string= "link" (car pair))
                (setf (link item) (second pair)))))
            (push item (items rss))))
        (incf pos))