anchor.diff:           (int-year (if (< month 3) (- year 2001) (- year 2000)))
            (zone (realize-timezone timezone))
            (sec (+ (* hh 3600) (* mm 60) ss))
  -         (day (+ (floor (* int-year 1461) 4)
  +         (day (+ (floor (* int-year +leap-factor+) 4)
                    (aref +rotated-month-offsets-without-leap-day+ 0-based-rotated-month)
                    (1- day)))
            (result (if into
  
positive.code: (defun local-time-decode-date (local-time)
    (declare (type local-time local-time))
    (multiple-value-bind (leap-cycles leap-cycle-days)
        (floor (day-of local-time) 1461)
      (multiple-value-bind (leap-cycle-years year-days)
          (floor leap-cycle-days 365)
        (let* ((leap-day-p (and (= leap-cycle-years 4)
  
negative.code: (defparameter +short-month-names+
    '("" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov"
      "Dec"))
  
  (defparameter +leap-factor+ 1461)
  
  (defparameter +rotated-month-days-without-leap-day+ #(31 30 31 30 31 31 30 31 30 31 31 28))
  
  