anchor.diff:                              (getf *user* :admin))
                          (s+ "You can only edit your own events."))
   
  -           (let* ((old-datetime (multiple-value-list
  -                                  (humanize-exact-time
  -                                    (or (getf item :auto-updated-time)
  -                                        (getf item :local-time)))))
  +           (let* ((old-datetime (when item
  +                                  (multiple-value-list
  +                                    (humanize-exact-time
  +                                      (or (getf item :auto-updated-time)
  +                                          (getf item :local-time))))))
                     (new-date-p (scan +date-scanner+ (post-parameter "date")))
                     (new-time-p (scan +time-scanner+ (post-parameter "time")))
                     (test-date (or (when new-date-p (post-parameter "date"))
  
positive.code:       (with-locked-hash-table (*db-results*)
          (setf (result-time result) it))
        (event-index-update result))))
  
  (defun recurring-event-schedule (id &optional data end)
    (let* ((event (or data (db id)))
  
negative.code:             (htm
               (str (day-or-date-selector)) ))))))))
  
  (defun enter-event-details (&key error date time location title restrictedp (identity-selection *userid*) groups-selected details existing-url recurring frequency interval days-of-week by-day-or-date weeks-of-month end-date local-day-of-week editing-schedule)
    (standard-page
      (if existing-url "Edit your event details" "Create a new event")
      (html
  