anchor.diff:                     (new-long (post-parameter-float "long"))
                      (lat (or new-lat (getf item :lat)))
                      (long (or new-long (getf item :long)))
  -                   (recurring (or (when (post-parameter "recurring") t)
  +                   (recurring (or (post-parameter "recurring")
                                     (getf item :recurring)))
                      (frequency (or (post-parameter-string "frequency")
                                     (awhen (getf item :frequency)
  
positive.code:                        (post-parameter "submit-edits"))
                    (try-again))
  
                   ((not new-date-p)
                    (try-again "Dates must be in the form of mm/dd/yyyy (e.g. 12/30/2013)"))
  
  
negative.code:                                       (str (elt day 0))))))))
  
                    (when (and date (equalp frequency "monthly"))
                      (str (enter-monthly-recurring-details date
                                                            frequent
                                                            by-day-or-date
                                                            local-day-of-week
                                                            weeks-of-month)))
  
                    (:div
                      (:label "End Date (optional)")
  