anchor.diff:    (let ((default-timezone-file #p"/etc/localtime"))
       (if (probe-file default-timezone-file)
           (define-timezone *default-timezone* default-timezone-file :load t)
  -        (defparameter *default-timezone* +utc-zone+))))
  +        (setf *default-timezone* +utc-zone+))))
   
   (defparameter *location-name->timezone* (make-hash-table :test 'equal)
     "A hashtable with entries like \"Europe/Budapest\" -> timezone-instance")
  
positive.code:               while time-b
                always (,pair-comparator-name time-a time-b)))
        (define-compiler-macro ,name (&rest times)
          (let ((vars (loop for time :in times
                            for i :upfrom 0
                            collect (gensym (concatenate 'string "TIME-" (princ-to-string i) "-")))))
            `(let (,@(loop for var :in vars
                           for time :in times
                           collect (list var time)))
              ;; we could evaluate comparisons of timestamp literals here
              (and ,@(loop for (time-a time-b) :on vars
                           while time-b
                           collect `(,',pair-comparator-name ,time-a ,time-b)))))))))
  
  (defun %timestamp-compare (time-a time-b)
    "Returns the symbols <, >, or =, describing the relationship between TIME-A and TIME-b."
  
negative.code: 
  (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."
    (loop
      :with result = 0
      :for offset :from (* (1- byte-count) 8) :downto 0 :by 8
      :do (setf (ldb (byte 8 offset) result) (read-byte stream))
      :finally (if signed
                   (let ((high-bit (* byte-count 8)))
                     (if (logbitp (1- high-bit) result)
                         (return (- result (ash 1 high-bit)))
  