marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor cleanup to RENDER-FEED.

Browse source
This commit is contained in:
Brit Butler 2012-09-04 17:21:07 -04:00
parent 411079b15c
commit 215c9f3d9c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/feeds.lisp
View file

@ -18,7 +18,7 @@
(defun render-feeds () (defun render-feeds ()
"Render and write the feed for the site." "Render and write the feed for the site."
(let* ((bydate (by-date (hash-table-values *posts*))) (let* ((bydate (by-date (hash-table-values *posts*)))
(posts (subseq bydate 0 (when (>= (length bydate) 10) 10))) (posts (subseq bydate 0 (min (length bydate) 10)))
(content (loop for post in posts (content (loop for post in posts
collect (list :title (post-title post) collect (list :title (post-title post)
:url (post-url post) :url (post-url post)