X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=main.lisp;h=fb93f7d4098e495730d70a613fbf72abbd1a47af;hb=7ad604f340bcfe94c277993a39352823414b7733;hp=e458724514d52ea9286e11dda335b627ef9bf814;hpb=d1bb961ae72f08578cf302fbaad045839d064de5;p=cl-rss.git

diff --git a/main.lisp b/main.lisp
index e458724..fb93f7d 100644
--- a/main.lisp
+++ b/main.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2003
 ;;;;
-;;;; $Id: rss.asd 7061 2003-09-07 06:34:45Z kevin $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (in-package #:rss)
@@ -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))