anchor.diff:  ;; Routing rules
   
   (defun render-with-current (template-path &optional args)
  -  (render template-path (append args (list :current (current-user)))))
  +  (render template-path (append args (list :current
  +                                           (current-user-id)))))
   
   (defroute "/" ()
     (redirect "/home"))
  
positive.code:                                    (list :flash (flash) :type "success")))))
  
  (defroute "/users/:id/edit" (&key id)
    (render #P"users/edit.html"
            (list :user (list :id (object-id (current-user))
                              :name (user-name (current-user))
                              :email (user-email (current-user))
                              :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" (object-id (current-user)))))
  
  (defroute "/login" ()
    (render-with-current #P"sessions/new.html"))
  
  (defroute ("/login" :method :POST) (&key _parsed)
    (setf params (get-value-from-params "session" _parsed))
  
negative.code: (defroute "/test" ()
    (format nil "~A" (user-name (current-user))))
  
  (defroute "/logged-in-p" ()
    (format nil "~A" (logged-in-p)))
  
  ;;
  ;; Helper functions
  (defun current-user-id ()
    (gethash :user-id *session* nil))
  
  (defun reset-current-user ()
    (remhash :user-id *session*))
  