anchor.diff:    nil)
   
   (defun local-time-decoded-date (local-time)
  +  (declare (type local-time local-time))
     (multiple-value-bind (leap-cycle year-days)
         (floor (day-of local-time) 1461)
       (multiple-value-bind (years month-days)
  
positive.code: 
  (defun local-time-compare (time-a time-b)
    "Returns the symbols <, >, or =, describing the relationship between TIME-A and TIME-b."
    (multiple-value-bind (day-a sec-a)
        (local-time-adjust time-a (timezone-of time-b))
      (cond
  
negative.code: (defparameter +modified-julian-date-offset+ -51604)
  
  (defstruct timezone
    (transitions nil :type list)
    (subzones nil :type list)
    (leap-seconds nil :type list)
    (path 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."
  