anchor.diff:                         (list :flash (flash) :type "success"
                                :user current-user)))
   
  -(defroute ("/users/:id/update" :method :POST) (&key id _parsed)
  +@route POST "/users/:id/update"
  +(defun users-update (&key id _parsed)
     (logged-in-user)
     (correct-user id)
     (setf params (get-value-from-params "user" _parsed))
  
positive.code: ;;
  ;; login, logout
  
  (defroute "/login" ()
    (render-with-current #P"sessions/new.html"
                         (list :flash (flash)
                               :type "danger")))
  
  (defroute ("/login" :method :POST) (&key _parsed)
    (setf params (get-value-from-params "session" _parsed))
    (setf login-user (find-dao 'user
                               :email
  
negative.code:     (redirect-back-or (format nil "/users/~A" (current-user-id))))
    (redirect "/users/new"))
  
  @route GET "/users/:id"
  (defun users-show-page  (&key id |page|)
    (setf user (find-dao 'user :id id))
    (if (null user)
        (throw-code 404))
  