anchor.diff:                              (- year 2000)))
            (years-as-days (years-to-days internal-year))
            (zone (realize-timezone timezone))
  -         (sec (+ (* hour 3600)
  -                 (* minute 60)
  +         (sec (+ (* hour +seconds-per-hour+)
  +                 (* minute +seconds-per-minute+)
                    sec))
            (days-from-zero-point (+ years-as-days
                                     (aref #.+rotated-month-offsets-without-leap-day+ 0-based-rotated-month)
  
positive.code:                          (princ #\Z str)
                           (format str "~c~2,'0d~c~2,'0d"
                                   (if (minusp offset) #\- #\+)
                                   (abs (floor offset 3600))
                                   time-separator
                                   (abs (floor (mod offset 3600) 60))))))))))
      (when destination
        (princ str destination))
      str))
  
negative.code:                           :timezone (realize-timezone (or timezone
                                                            *default-timezone*)))))
      (unix
       (let* ((days (floor unix +seconds-per-day+))
              (secs (- unix (* days +seconds-per-day+))))
         (make-local-time :day (- days 11017)
                          :sec secs
                          :nsec (or nsec 0)
  