anchor.diff:                         (list :flash (flash)
                                :type "danger")))
   
  -(defroute ("/logout" :method :DELETE) ()
  +(defroute ("/logout" :method :POST) ()
     (reset-current-user)
     (redirect "/home"))
   
  
positive.code:     (redirect (format nil "/users/~A" (current-user-id))))
    (redirect (format nil  "/users/~A/edit" (current-user-id))))
  
  (defroute  ("/users/:id/delete" :method :DELETE) (&key id)
    (logged-in-user)
    (when (admin-p)
        (handler-case (delete-by-values 'user :id id)
  
negative.code:   (flash "Micropost created!")
    (redirect "/home"))
  
  (defroute ("/microposts/:id/delete" :method :POST) (&key id)
    (logged-in-user)
    (setf post (find-dao 'micropost :id id))
    (when (equal (current-user-id) (object-id (micropost-user post)))
  