(progn (loop for post in POSTS do (when (member (ob:tags-safe TAG) (mapcar 'ob:tags-safe (ob:post-tags post))) (insert (format "" (ob:path-to-root) (ob:post-htmlfile post)) (ob:post-title post) ""))))