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: 
  (eval-when (:compile-toplevel :load-toplevel)
    (defun years-to-days (years)
      (let* ((days (* years 365))
             (l1 (floor years 4))
             (l2 (floor years 100))
  
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+)
  