r8307: accept atoms as well as lists

diff --git a/main.lisp b/main.lisp
index 61b3b508e6b740972a16f6b29380f319c7ebd165..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*))
     '("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))))
 
     (awhen (rss-site site)
           (display-site it))))