anchor.diff:  
   (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)
  
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 "/logged-in-p" ()
    (format nil "~A" (logged-in-p)))
  
  (defroute "/check/:id" (&key id)
    (format nil "~A ~A"
            (type-of (format nil "~A" (current-user-id)))
            (type-of (format nil "~A" id))))
  
  ;;
  ;; Helper functions
  (defun current-user-id ()
  