X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=main.lisp;fp=main.lisp;h=61b3b508e6b740972a16f6b29380f319c7ebd165;hb=82ec93589f75e888da61a4b9db168c1b8563b198;hp=e458724514d52ea9286e11dda335b627ef9bf814;hpb=e168886371ab8fef7008b8e06e9307725b08ff7e;p=cl-rss.git diff --git a/main.lisp b/main.lisp index e458724..61b3b50 100644 --- a/main.lisp +++ b/main.lisp @@ -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))