anchor.diff:                                :next-url (referer)))
   
                ((post-parameter "really-delete")
  -              (modify-db id :auto-updated-time nil)
  -              (deactivate-inventory-item id)
  +              (deactivate-event id)
                 (flash "Your event has been deactivated!")
                 (see-other (or (post-parameter "next") "/home")))
   
  
positive.code:              (progn ,@body)
               (not-found)))))))
  
  (defun eventname-or-id (id &aux (event (db id)))
    (or (getf event :custom-url)
        (write-to-string id)))
  
negative.code:                         (update-recurring-event-time id data event)
                          (unless global-search
                            (push event updated-local-event-list)))
                         ((and (getf data :active)
                               (< (max (or (getf data :local-end-date) 0)
                                       (or (getf data :local-time) 0)
                                       (or (getf data :auto-updated-time) 0))
                                  (- now +day-in-seconds+)))
                          (deactivate-event id)))))))
  
          (setf local-events (populate-calendar (remove-private-items
                                                  (trim-and-update
  