anchor.diff:                         (setf (timezone-of into) zone)
                          into)
                        (make-local-time
  -                      :usec us
  +                      :nsec ns
                         :sec sec
                         :day day
                         :timezone zone))))
       result))
   
  -(defun local-time (&key (universal nil) (unix nil) (usec 0) (timezone nil))
  +(defun local-time (&key (universal nil) (unix nil) (nsec 0) (timezone nil))
     "Produce a LOCAL-TIME instance from the provided numeric time representation or try to extract the most accurate current time if none of them is provided."
     (cond
       (universal
        (multiple-value-bind (sec minute hour date month year)
            (decode-universal-time universal)
  -       (encode-local-time usec sec minute hour date month year
  +       (encode-local-time nsec sec minute hour date month year
                             :timezone (realize-timezone (or timezone
                                                             *default-timezone*)))))
       (unix
  
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:   "Returns the number of whole years elapsed between time-a and time-b (hint: anniversaries)."
    (declare (type local-time time-b time-a))
    (let ((modified-time-b (local-time-adjust time-b (timezone-of time-a) (make-local-time))))
      (multiple-value-bind (nsec-a sec-a minute-a hour-a day-a month-a year-a)
          (decode-local-time modified-time-b)
        (multiple-value-bind (nsec-b sec-b minute-b hour-b day-b month-b year-b day-of-week-b daylight-p-b zone-b)
            (decode-local-time time-a)
          (declare (ignore nsec-b sec-b minute-b hour-b day-b month-b day-of-week-b daylight-p-b zone-b))
          (let ((year-difference (- year-b year-a)))
            (if (local-time<= (encode-local-time nsec-a sec-a minute-a hour-a day-a month-a
                                                 (+ year-difference year-a)
                                                 :timezone (timezone-of time-a))
                              time-a)
  