r10042: add umask to upload scripts

[cl-rss.git] / main.lisp

diff --git a/main.lisp b/main.lisp
index e458724514d52ea9286e11dda335b627ef9bf814..fb93f7d4098e495730d70a613fbf72abbd1a47af 100644 (file)
--- 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))