anchor.diff:    "Returns the decoded time as multiple values: ms, ss, mm, hh, day, month, year, day-of-week, daylight-saving-time-p, timezone, and the customary timezone abbreviation."
     (declare (type local-time local-time))
     (multiple-value-bind (hours minutes seconds)
  -      (local-time-decoded-time local-time)
  +      (local-time-decode-time local-time)
       (multiple-value-bind (year month day)
  -        (local-time-decoded-date local-time)
  +        (local-time-decode-date local-time)
         (values
          (usec-of local-time)
          seconds minutes hours
  
positive.code:               year-difference
                (1- year-difference)))))))
  
  (defun month-days (month)
    (aref +month-days+ month))
  
  (defun decode-month (day)
    (position day +month-days+ :from-end t :test #'>=))
  
  (defun local-time-day-of-week (local-time)
    (mod (+ 3 (day-of local-time)) 7))
  
  (defun encode-local-time (us ss mm hh day month year &key timezone into)
    "Return a new LOCAL-TIME instance corresponding to the specified time elements."
    (declare (type integer us ss mm hh day month year)
             (type (or null timezone) timezone))
    (let* ((int-month (if (< month 3) (+ month 9) (- month 3)))
           (int-year (if (< month 3) (- year 2001) (- year 2000)))
           (zone (realize-timezone (or timezone *default-timezone*)))
           (sec (+ (* hh 3600) (* mm 60) ss))
           (day (+ (floor (* int-year 1461) 4)
                   (month-days int-month)
                   (1- day)))
           (result (if into
                       (progn
  
negative.code:   '("" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov"
      "Dec"))
  
  (defparameter +rotated-month-days-without-leap-day+ #(31 30 31 30 31 31 30 31 30 31 31 28))
  
  (defparameter +rotated-month-offsets-without-leap-day+
    (coerce
     (cons 0
           (loop with sum = 0
                 for days :across +rotated-month-days-without-leap-day+
                 collect (incf sum days)))
     'simple-vector))
  
  ;;; Day information
  (defparameter +day-names+
  