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:                        finally (unread-char c stream))))))
  
  (defun enable-read-macros ()
    (set-macro-character #\@ '%read-timestring)
    (set-dispatch-macro-character #\# #\@ '%read-universal-time)
    (values))
  
negative.code: 
  (eval-when (:compile-toplevel :load-toplevel)
    (defun years-to-days (years)
      "Given a number of years, returns the number of days in those years."
      (let* ((days (* years 365))
             (l1 (floor years 4))
             (l2 (floor years 100))
  