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