anchor.diff:                          (with-mutex (*event-mutex*)
                             (asetf *event-index* (remove event it)))))))))
   
  -        (populate-calendar (remove-private-items
  -                             (trim-and-update
  -                               (if global-search
  -                                 *event-index*
  -                                 local-events)))
  -                           :page page
  -                           :count count
  -                           :url url
  -                           :sidebar sidebar
  -                           :paginate paginate)))))
  +        (upcoming-events-html (remove-private-items
  +                                (trim-and-update
  +                                  (if global-search
  +                                    *event-index*
  +                                    local-events)))
  +                              :page page
  +                              :count count
  +                              :url url
  +                              :sidebar sidebar
  +                              :paginate paginate)))))
   
   (defun events-rightbar ()
     (html
  
positive.code:                (asetf new-timestamp
                        (adjust-timestamp (or it prior-timestamp)
                          (offset offset-period offset-count)))
                 (cond
                   ((and end-timestamp
                         (local-time:timestamp> new-timestamp end-timestamp))
  
negative.code:             (s+ " until "
                  (caddr (multiple-value-list (humanize-exact-time end-date)))))))))
  
  (defun upcoming-events-html (event-list &key (page 0) (count 20) paginate url (location t) (sidebar nil))
    (let ((items (populate-calendar event-list))
          (start (* page count))
          (calendar-date nil))
      (html
        (iter (for i from 0 to (- (+ start count) 1))
  