anchor.diff:      (redirect-back-or (format nil "/users/~A" (current-user-id))))
     (redirect "/users/new"))
   
  -(defroute "/users/:id" (&key id |page|)
  -  (princ |page|)
  +@route GET "/users/:id"
  +(defun users-show-page  (&key id |page|)
     (setf user (find-dao 'user :id id))
     (if (null user)
         (throw-code 404))
  
positive.code:                              :posts posts
                               :flash (flash) :type "success")))
  
  (defroute "/users/:id/edit" (&key id)
    (logged-in-user)
    (correct-user id)
    (setf current-user (find-dao 'user :id id))
  
negative.code: ;;
  ;; static pages
  
  @route GET "/"
  (defun root ()
    (redirect "/home"))
  
  @route GET "/home"
  (defun home-page (&key |page|)
    (render-with-current
     #P"static_pages/home.html"
     (when (logged-in-p)
  