anchor.diff:                                        "end-date" (awhen local-end-time
                                                      (humanize-exact-time it))))))
   
  -                ((post-parameter "submit-edits")
  +                ((or (post-parameter "submit-edits")
  +                     (post-parameter "confirm-location"))
                    (submit-data))
  -
  -                ((post-parameter "confirm-location")
  -                 (submit-data :lat lat :long long :address location))
   
                   (t (try-again)))))))))))
   
  
positive.code:                                 #'< :key #'result-time)))
  
        (flet ((trim-and-update (results)
                 (do* ((events results (cdr results))
                       (event (car events)))
                      ((or (not events) (not (stale-eventp event now)))
  
negative.code:                   (groups-selected (or (post-parameter-integer-list "groups-selected")
                                         (getf item :privacy))))
  
               (labels ((submit-event (fn &key host id)
                          (let ((arguments (list :lat lat
                                                 :long long
                                                 :local-time local-time
                                                 :privacy groups-selected
                                                 :title title
                                                 :details details
                                                 :address location
                                                 :recurring recurring)))
                            (when (or recurring
                                      ;;reset parameters when :recurring t -> nil
                                      (getf item :recurring))
                              (asetf arguments
                                     (append
                                       (list :frequency symbol-frequency
                                             :interval interval
                                             :days-of-week symbol-days-of-week
                                             :by-day-or-date symbol-day-or-date
                                             :weeks-of-month symbol-weeks-of-month
                                             :local-end-date local-end-time)
                                      it)))
                            (when host
                              (asetf arguments (append (list :host host) it)))
  
                            (if id (apply fn id arguments)
                                   (apply fn arguments))))
  
                        (try-again (&optional e not-recurring)
                ;; needs to be labels not flet because of
                ;; submit-data's parameter precedence
                          (enter-event-details :title title
  