anchor.diff:                                        (str (elt day 0))))))))
   
                     (when (and date (equalp frequency "monthly"))
  -                    (let ((by-date (equalp by-day-or-date "date"))
  -                          (local-day-of-week (string-capitalize local-day-of-week))
  -                          (day-of-month (day-of-month date :formatted-date t))
  -                          (nth-week-in-month (position-of-day-in-month
  -                                               date
  -                                               :formatted-date t)))
  -                      (htm
  -                        (:div
  -                          (:label "Repeat on")
  -                          (:div :class "inline-block"
  -                            (:input :type "radio"
  -                                    :name "by-day-or-date"
  -                                    :value "day"
  -                                    :onclick "this.form.submit()"
  -                                    :checked (unless by-date ""))
  -                            (if frequent
  -                              "day of the week"
  -                              (str
  -                                (strcat "the "
  -                                        nth-week-in-month
  -                                        " "
  -                                        local-day-of-week
  -                                        " of the month" ))))
  -                          (when (< day-of-month 29)
  -                            (htm
  -                              (:div :class "inline-block"
  -                                (:input :type "radio"
  -                                        :name "by-day-or-date"
  -                                        :value "date"
  -                                        :onclick "this.form.submit()"
  -                                        :checked (when by-date ""))
  -                                (unless frequent "date (")
  -                                "the "
  -                                (str (humanize-number day-of-month))
  -                                " day of the month"
  -                                (unless frequent ")")))))
  -
  -                        (when (and (not by-date) frequent)
  -                          (htm
  -                            (:div
  -                              (:label "Days of the month")
  -                                (dolist (option +positions-of-day-in-month+)
  -                                  (htm
  -                                    (:div :class "inline-block"
  -                                      (:input :type "checkbox"
  -                                            :name "weeks-of-month"
  -                                            :checked (when
  -                                                       (aif weeks-of-month
  -                                                         (find option it
  -                                                               :test #'equalp)
  -                                                         (equalp
  -                                                           option
  -                                                           nth-week-in-month))
  -                                                       "checked")
  -                                            :value option)
  -                                      (str option) " " (str local-day-of-week))))))))))
  +                    (str (enter-monthly-recurring-details date
  +                                                          frequent
  +                                                          by-day-or-date
  +                                                          local-day-of-week
  +                                                          weeks-of-month)))
   
                     (:div
                       (:label "End Date (optional)")
  
positive.code:         (see-other (or (referer) "/home")))
        (enter-event-details))))
  
  (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)
    (standard-page
      (if existing-url "Edit your event details" "Create a new event")
  
negative.code:                        (post-parameter "submit-edits"))
                    (try-again))
  
                   ((and recurring (not date))
                    (try-again "Please enter a date first."))
  
                   ((not new-date-p)
                    (try-again "Dates must be in the form of mm/dd/yyyy (e.g. 12/30/2013)"))
  
  