- (incf pos)
- (while (and (< pos len)
- (or (string= "title" (car (nth pos content)))
- (string= "link" (car (nth pos content)))
- (string= "description" (car (nth pos content)))))
- (let ((slot (nth pos content)))
- (cond
- ((string= "title" (car slot))
- (setf (title rss) (second slot)))
- ((string= "link" (car slot))
- (setf (link rss) (second slot)))
- ((string= "description" (car slot))
- (setf (description rss) (second slot)))))
- (incf pos)))
+ (incf pos)
+ (while (and (< pos len)
+ (or (string= "title" (car (nth pos content)))
+ (string= "link" (car (nth pos content)))
+ (string= "description" (car (nth pos content)))))
+ (let ((slot (nth pos content)))
+ (cond
+ ((string= "title" (car slot))
+ (setf (title rss) (second slot)))
+ ((string= "link" (car slot))
+ (setf (link rss) (second slot)))
+ ((string= "description" (car slot))
+ (setf (description rss) (second slot)))))
+ (incf pos)))