projects
/
cl-rss.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Sep 2003
;;;;
-;;;; $Id
: rss.asd 7061 2003-09-07 06:34:45Z kevin
$
+;;;; $Id$
;;;; *************************************************************************
(in-package #:rss)
;;;; *************************************************************************
(in-package #:rss)
@@
-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))))
@@
-87,7
+87,7
@@
(cond
((string= "title" (car pair))
(setf (title item) (second pair)))
(cond
((string= "title" (car pair))
(setf (title item) (second pair)))
- ((string= "link
s
" (car pair))
+ ((string= "link" (car pair))
(setf (link item) (second pair)))))
(push item (items rss))))
(incf pos))
(setf (link item) (second pair)))))
(push item (items rss))))
(incf pos))