anchor.diff:  
   (defun post-by-id (id)
     (retrieve-post
  -   (where (:= id id))))
  +    (where (:= :id id))))
   
   (defun get-posts (post-limit &key (post-offset 0) (tag "%"))
     (if (< post-offset 0)
  
positive.code:   `(with-connection (db)
       (retrieve-one
        (select :*
                (from :posts)
                ,@body)
        :as 'post)))
  
  (defun latest-post ()
  
negative.code:                   :song (enough-namestring 
                           (random-file songs)
                           *static-directory*)))))
  ;;
  ;; Error pages
  
  