anchor.diff:    (let ((images (root-directory "static/images/Night/*.jpg"))
           (songs (root-directory "static/music/Jazz/*.ogg")))
       (render (absolute-path "jazz.html")
  -        (list :image (enough-namestring 
  -                      (random-file images)
  -                      *static-directory*)
  -              :song (enough-namestring 
  -                     (random-file songs)
  -                     *static-directory*)))))
  +            (list :image (enough-namestring 
  +                          (random-file images)
  +                          *static-directory*)
  +                  :song (enough-namestring 
  +                         (random-file songs)
  +                         *static-directory*)))))
   
   ;;
   ;; Error pages
  
positive.code:                       :next (if (<= (* limit page) (post-count tag)) (1+ page)))))))
  
  (defroute ("/blog/new" :method :GET) (&key |error|)
    (if (of-group "dev")
        (render (absolute-path "new_post.html")
                (list :title "New Post"))
        (throw-code 403)))
  
  (defroute ("/blog/new" :method :POST) (&key |subject| |content| |tags|)
    (when (of-group "dev")
      (submit-post 
       :subject |subject|
       :date (get-universal-time)
  
negative.code:          (id (parse-integer id-string))
           (post (post-by-id id)))
      (unless post (throw-code 404))
      (with-group "dev"
        (render (absolute-path "new_post.html")
                (list :title "Edit Post"
                      :page (concatenate 'string "/blog/edit/" id-string)
                      :subject (post-subject post)
                      :content (post-content post)
                      :tags (post-tags post))))))
  
  (defroute ("/blog/edit/([\\d]+)" :regexp :t :method :POST)
      (&key captures |subject| |content| |tags|)
    (with-group "dev"
      (alter-post (parse-integer (first captures))
                  :subject |subject|
                  :content |content|
  