anchor.diff:         hours
          minutes
          seconds))))
  -
  -(defparameter +leap-factor+ 1461)
   
   (defun decode-local-time (local-time)
     "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."
  
positive.code:          (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)
                   (aref +rotated-month-offsets-without-leap-day+ 0-based-rotated-month)
                   (1- day)))
           (result (if into
  
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))
  
  