anchor.diff:                              :hash-email (make-md5-hexdigest
                                            (user-email current-user))))))
   
  -(defroute ("/users/:id/update" :method :POST) (&key _parsed)
  +(defroute ("/users/:id/update" :method :POST) (&key id  _parsed)
     ;;ひとまずリダイレクトさせるだけ
  +  (logged-in-user)
  +  (correct-user id)
     (flash "update success")
     (redirect (format nil "/users/~A" (current-user-id))))
   
  
positive.code:     (progn
        (flash "Please login.")
        (redirect "/login"))))
  ;;
  ;; Error pages
  
  
negative.code: 
  (defroute "/users/:id/edit" (&key id)
    (logged-in-user)
    (correct-user id)
    (setf current-user (find-dao 'user :id id))
    (render-with-current #P"users/edit.html"
            (list :user (list :id (object-id current-user)
  