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

Indexing fix to RENDER-POSTS.

Browse source
This commit is contained in:
Brit Butler 2012-08-21 23:12:40 -04:00
parent 492a36e781
commit 2044751cde
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/posts.lisp
View file

@ -33,7 +33,7 @@
for i from 1 upto (length posts) for i from 1 upto (length posts)
for prev = nil then post for prev = nil then post
for post = (nth (1- i) posts) for post = (nth (1- i) posts)
for next = (nth (1+ i) posts) for next = (nth i posts)
do (write-post post :prev (and prev (post-url prev)) do (write-post post :prev (and prev (post-url prev))
:next (and next (post-url next))))) :next (and next (post-url next)))))