r8081: Automated commit for Debian build of cl-rss upstream-version-0.1.1

[cl-rss.git] / main.lisp

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