anchor.diff:  
   (defroute "/blog" ()
     (let ((post-list nil))
  -    (dotimes (n 2) 
  +    (dotimes (n (row-count)) 
         (let ((id (+ n 1)))
           (push (list :subject (post-subject (post-by-id id))
                       :date (format-date (post-date (post-by-id id)))
  
positive.code:   (with-connection (db)
      (retrieve-one
        (select :*
          (from :post)
          (order-by (:desc :id)))
        :as 'post)))
  
  
negative.code:   (with-connection (db)
      (retrieve-one
        (select :*
          (from :posts)
          (where (:= :id id)))
        :as 'post)))
  
  (defun post-count ()
    (with-connection (db)
      (cadr (retrieve-one (select ((:count :*)) (from :post))))))
  
  (defun render-post (post)
    (render (absolute-path "post.html")
  