anchor.diff:  (defparameter +modified-julian-date-offset+ -51604)
   
   (defstruct timezone
  -  (transitions nil)
  -  (subzones nil)
  -  (leap-seconds nil)
  +  (transitions nil :type list)
  +  (subzones nil :type list)
  +  (leap-seconds nil :type list)
     (path nil)
  -  (loaded nil))
  +  (loaded nil :type boolean))
   
   (defun read-binary-integer (stream byte-count &optional (signed nil))
     "Read BYTE-COUNT bytes from the binary stream STREAM, and return an integer which is its representation in network byte order (MSB).  If SIGNED is true, interprets the most significant bit as a sign indicator."
  
positive.code: 
  (defun encode-local-time (us ss mm hh day month year &optional timezone)
    "Return a new LOCAL-TIME instance corresponding to the specified time elements."
    (let* ((int-month (if (< month 3) (+ month 9) (- month 3)))
           (int-year (if (< month 3) (- year 2001) (- year 2000)))
           (zone (realize-timezone (or timezone *default-timezone*)))
  
negative.code: 
  (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."
    (declare (type local-time local-time))
    (multiple-value-bind (hours minutes seconds)
        (local-time-decoded-time local-time)
      (multiple-value-bind (year month day)
  