r10042: add umask to upload scripts

[cl-rss.git] / main.lisp

diff --git a/main.lisp b/main.lisp
index 61b3b508e6b740972a16f6b29380f319c7ebd165..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))))