(let ((comments (load-comments args))) (if comments (let ((allcomments "")) (dolist (comment comments) (setf allcomments (concat allcomments (load-template args "/controls/comment.html" ("comment" (car comment)) ("from" (cadr comment)) ("url" (caddr comment)) ("time" (nth 3 comment)) ("date" (nth 4 comment)))))) allcomments) "(No comments yet.)"))
/root/htoot/roxapp-simplog/blog/post/First-Post.aspx.html
(let ((comments (load-comments args))) (if comments (let ((allcomments "")) (dolist (comment comments) (setf allcomments (concat allcomments (load-template args "/controls/comment.html" ("comment" (car comment)) ("from" (cadr comment)) ("url" (caddr comment)) ("time" (nth 3 comment)) ("date" (nth 4 comment)))))) allcomments) "(No comments yet.)"))