anchor.diff:    (let ((year
            (etypecase local-time-or-year
              (local-time
  -            (multiple-value-bind (usec sec min hour day month year day-of-week daylight-saving-time-p original-timezone)
  +            (multiple-value-bind (nsec sec min hour day month year day-of-week daylight-saving-time-p original-timezone)
                   (decode-local-time local-time-or-year)
  -              (declare (ignore usec sec min hour day month day-of-week daylight-saving-time-p original-timezone))
  +              (declare (ignore nsec sec min hour day month day-of-week daylight-saving-time-p original-timezone))
                 year))
              (integer
               local-time-or-year))))
  
positive.code:   (and local-time
         (eq (timezone-of local-time) +utc-zone+)
         (zerop (sec-of local-time))
         (zerop (usec-of local-time))))
  
  (defun format-rfc3339-timestring (local-time &rest args &key omit-date-part-p omit-time-part-p
                                               omit-timezone-part-p &allow-other-keys)
  
negative.code:                  (when (> time-elements 2)
                     (format str "~c~2,'0d" time-separator sec))
                   (when (and (> time-elements 3)
                              (not (zerop nsec)))
                     (format str ".~6,'0d" (floor nsec 1000)))
                   (unless omit-timezone-part-p
                     (let* ((offset (local-timezone local-time zone)))
                       (if (and use-zulu-p
  