anchor.diff:              (- remaining-days (* years 365)))))
   
   (defun %timestamp-decode-date (days)
  +  "Returns the day, month, and year, given the number of days from the epoch."
     (declare (type integer days))
     (multiple-value-bind (years remaining-days)
         (days-to-years days)
  
positive.code:       (+ days l1 (- l2) l3))))
  
  (defun days-to-years (days)
    "Returns (values years remaining-days-in-year)"
    (let ((remaining-days days))
      (multiple-value-bind (400-years remaining-days)
          (floor remaining-days 146097)
  
negative.code:        1-based-day))))
  
  (defun %timestamp-decode-time (seconds)
    "Returns the hours, minutes, and seconds, given the number of seconds since midnight."
    (declare (type integer seconds))
    (multiple-value-bind (hours hour-remainder)
        (floor seconds +seconds-per-hour+)
  