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: (defparameter +short-month-names+
    '("" "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))
  
  
negative.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) +leap-factor+)
      (multiple-value-bind (leap-cycle-years year-days)
          (floor leap-cycle-days 365)
        (let* ((leap-day-p (and (= leap-cycle-years 4)
  