anchor.diff:      (progn
         (flash "Please login.")
         (redirect "/login"))))
  +
  +(defun correct-user (id)
  +  (unless (equal
  +           (format nil "~A" (current-user-id))
  +           (format nil "~A" id))
  +    (redirect "/home")))
   ;;
   ;; Error pages
   
  
positive.code:                             :hash-email (make-md5-hexdigest
                                           (user-email current-user))))))
  
  (defroute ("/users/:id/update" :method :POST) (&key _parsed)
    ;;ひとまずリダイレクトさせるだけ
    (flash "update success")
    (redirect (format nil "/users/~A" (current-user-id))))
  
  
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)
  