anchor.diff:                                               :restrictedp restrictedp
                                                :groups-selected groups-selected
                                                :identity-selection identity-selection
  +                                             :editing-schedule (and recurring
  +                                                                    (not not-recurring)
  +                                                                    (not (post-parameter
  +                                                                           "edit-datetime")))
                                                :error e))
   
                         (submit-data (&key lat long address)
  
positive.code:                 ((and recurring (not date)
                   (try-again "Please enter a date." t)))
  
                  ((nor (post-parameter "confirm-location")
                        (post-parameter "submit-edits"))
                   (try-again))
  
negative.code:             (htm
               (str (day-or-date-selector)) ))))))))
  
  (defun enter-event-details (&key error date time location title restrictedp (identity-selection *userid*) groups-selected details existing-url recurring frequency interval days-of-week by-day-or-date weeks-of-month end-date local-day-of-week editing-schedule)
    (standard-page
      (if existing-url "Edit your event details" "Create a new event")
      (html
  