projects
/
cl-rss.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8307: accept atoms as well as lists
[cl-rss.git]
/
main.lisp
diff --git
a/main.lisp
b/main.lisp
index e458724514d52ea9286e11dda335b627ef9bf814..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))))
@@
-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))