anchor.diff:                               (get-value-from-params "password" params))
         (log-in login-user)
         (flash "Welcome to the Sample App!")
  -      (redirect (format nil  "/users/~A" (gethash :user-id *session*)))))
  +      (redirect-back-or (format nil  "/users/~A" (current-user-id)))))
     (flash "Invalid email/password combination")
     (render-with-current #P"sessions/new.html"
                          (list :flash (flash)
  
positive.code:         (reset-current-user))
      (log-in (create-user params))
      (flash "Welcome to the Sample App!")
      (redirect (format nil "/users/~A" (current-user-id))))
    (redirect "/users/new"))
  
  (defroute "/users/:id" (&key id)
  
negative.code:            (format nil "~A" (current-user-id))
             (format nil "~A" id))
      (redirect "/home")))
  
  (defun redirect-back-or (default)
    (let ((forwarding-url (gethash :forwarding-url *session* nil)))
      (remhash :forwarding-url *session*)
      (redirect
       (or forwarding-url
           default))))
  
  (defun store-location ()
    (if (equal "GET" (format nil "~A" (request-method *request*)))
        (setf (gethash :forwarding-url *session*)
              (request-path-info *request*))))
  ;;
  ;; Error pages
  
  