anchor.diff:    (flash "Micropost created!")
     (redirect "/home"))
   
  -(defroute ("/microposts/:id/delete" :method :POST) (&key id)
  +@route POST "/microposts/:id/delete"
  +(defun microposts-delete (&key id)
     (logged-in-user)
     (setf post (find-dao 'micropost :id id))
     (when (equal (current-user-id) (object-id (micropost-user post)))
  
positive.code:     (redirect (format nil "/users/~A" (current-user-id))))
    (redirect (format nil  "/users/~A/edit" (current-user-id))))
  
  (defroute  ("/users/:id/delete" :method :POST) (&key id)
    (logged-in-user)
    (when (admin-p)
        (handler-case (delete-by-values 'user :id id)
  
negative.code:                                  :flash (flash) :type "success"
                                   :admin (user-admin (find-dao 'user :id (current-user-id)))))))
  
  @route GET "/users/new"
  (defun users-new-page  ()
    (flash "Please input infomation.")
    (render-with-current #P"users/new.html"
                         (list :flash (flash)
                               :type "info")))
  
  @route POST "/users/create"
  (defun users-create (&key _parsed)
    (setf params (get-value-from-params "user" _parsed))
    (when (valid-user params)
      (if (gethash :user-id *session*)
  