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:                                       (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))))))))))
  
                    (:div
                      (:label "End Date (optional)")
  
negative.code:                                          (eql identity-selection prior-identity)))) 
                     (groups-selected (or (post-parameter-integer-list "groups-selected")
                                          (getf item :privacy))))
                  (pprint (post-parameter "date"))
                  (terpri)
  
                (labels ((try-again (&optional e)
                 ;; needs to be labels not flet because of
  