anchor.diff:           (id (parse-integer id-string))
            (post (post-by-id id)))
       (unless post (throw-code 404))
  -    (if (of-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)))
  -        (throw-code 403))))
  +    (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|)
  -  (when (of-group "dev")
  +  (with-group "dev"
       (alter-post (parse-integer (first captures))
                   :subject |subject|
                   :content |content|
  
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:   (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*)))))
  
  ;;
  ;; Error pages
  