anchor.diff:                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)))
  +        (let ((vars (loop
  +                      :for i :upfrom 0 :below (length times)
  +                      :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)))))))))
  +            (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."
  
positive.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 for offset from (* (1- byte-count) 8) downto 0 by 8
       with result = 0
       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)))
  
negative.code:   (let ((default-timezone-file #p"/etc/localtime"))
      (if (probe-file default-timezone-file)
          (define-timezone *default-timezone* default-timezone-file :load t)
          (setf *default-timezone* +utc-zone+))))
  
  (defparameter *location-name->timezone* (make-hash-table :test 'equal)
    "A hashtable with entries like \"Europe/Budapest\" -> timezone-instance")
  