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: ;;
  ;; 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:                                  :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*)
  