Browse code
Update server-test.lisp
Ed Langley authored on 02/03/2016 17:05:56Showing 1 changed files
| ... | ... |
@@ -73,7 +73,7 @@ |
| 73 | 73 |
do (araneus:view 'root item))))))))) |
| 74 | 74 |
|
| 75 | 75 |
(araneus:define-controller root (params) |
| 76 |
- (let* ((url "http://thomism.wordpress.com/feed/atom") |
|
| 76 |
+ (let* ((url "http://reddit.com/r/programming.rss") |
|
| 77 | 77 |
(feed (alimenta.pull-feed::fetch-doc-from-url url))) |
| 78 | 78 |
(alimenta:to-feed feed :feed-link url))) |
| 79 | 79 |
|