anchor.diff:            (update-timestamp-until-day)
             (update-timestamp-until-week))))
   
  -    (setf new-time (timestamp-to-universal new-timestamp))
  +    (timestamp-to-universal new-timestamp)))
  +
  +(defun update-recurring-event-time (id &optional data result-struct)
  +  (let ((result (or result-struct (gethash id *db-results*)))
  +        (new-time (next-recurring-event-time id data)))
       (modify-db id :auto-updated-time new-time)
       (with-locked-hash-table (*db-results*)
         (setf (result-time result) new-time))
  
positive.code:                                        "days-of-week" days-of-week
                                         "by-day-or-date" by-day-or-date
                                         "weeks-of-month" weeks-of-month
                                         "end-date" (awhen local-end-time (humanize-exact-time it))))))
  
                   ((post-parameter "submit-edits")
                    (submit-data))
  
negative.code:                         (with-mutex (*event-mutex*)
                            (asetf *event-index* (remove event it)))))))))
  
          (populate-calendar (trim-and-update
                               (if global-search
                                 *event-index*
                                 local-events))
                             :page page
                             :count count
                             :url url
                             :sidebar sidebar
                             :paginate paginate)))))
  
  (defun events-rightbar ()
    (html
  