anchor.diff:    (with-connection (db)
       (retrieve-one
         (select :*
  -        (from :post)
  +        (from :posts)
           (order-by (:desc :id)))
         :as 'post)))
   
  
positive.code: 
  (defroute "/blog" ()
    (let ((post-list nil))
      (dotimes (n 2) 
        (let ((id (+ n 1)))
          (push (list :subject (post-subject (post-by-id id))
                      :date (format-date (post-date (post-by-id id)))
  
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")
  