anchor.diff:    (declare (type integer needle)
              (type (simple-array integer (*)) haystack))
     (loop
  -    with start = 0
  -    with end = (1- (length haystack))
  -    for middle = (floor (+ end start) 2)
  -    while (and (< start end)
  -               (/= needle (elt haystack middle)))
  -    do (cond
  -         ((> needle (elt haystack middle))
  -          (setf start (1+ middle)))
  -         (t
  -          (setf end (1- middle))))
  -    finally
  +     with start = 0
  +     with end = (1- (length haystack))
  +     for middle = (floor (+ end start) 2)
  +     while (and (< start end)
  +                (/= needle (elt haystack middle)))
  +     do (cond
  +          ((> needle (elt haystack middle))
  +           (setf start (1+ middle)))
  +          (t
  +           (setf end (1- middle))))
  +     finally
          (return (max 0 (cond
                           ((minusp end)
                            0)
  
positive.code:                           :into into)))))
  
  (defmacro with-decoded-timestamp ((&key nsec sec minute hour day month year day-of-week daylight-p timezone offset)
                                    timestamp &body forms)
    "This macro binds variables to the decoded elements of TIMESTAMP. The TIMEZONE argument is used for decoding the timestamp, and is not bound by the macro. The value of DAY-OF-WEEK starts from 0 which means Sunday."
    (let ((ignores)
          (types)
  
negative.code:               :element-type 'subzone
                :initial-contents
                (loop for info in raw-info collect
                     (make-subzone
                      :offset (first info)
                      :daylight-p (/= (second info) 0)
                      :abbrev (%string-from-unsigned-byte-vector abbrevs (third info))))))
  
  (defun %realize-timezone (zone &optional reload)
    "If timezone has not already been loaded or RELOAD is non-NIL, loads the timezone information from its associated unix file.  If the file is not a valid timezone file, the condition INVALID-TIMEZONE-FILE will be signaled."
  