anchor.diff:        (values nsec utc-sec utc-day))))
   
   (defun encode-timestamp (nsec sec minute hour day month year
  -                     &key (timezone *default-timezone*) offset into)
  +                         &key (timezone *default-timezone*) offset into)
     "Return a new TIMESTAMP instance corresponding to the specified time
   elements."
     (declare (type integer nsec sec minute hour day month year))
  
positive.code:                                              :nsec nsec :sec sec :minute minute :hour hour
                                               :day day :month month :year year
                                               :timezone timezone :offset utc-offset)
                                              time
                        (let ((position (position offset +day-names-as-keywords+ :test #'eq)))
                          (assert position (position) "~S is not a valid day name" offset)
                          (let ((offset (+ (- (if (zerop day-of-week)
  
negative.code: 
  (defun %tz-read-header (inf)
    `(:utc-count ,(%read-binary-integer inf 4)
           :wall-count ,(%read-binary-integer inf 4)
           :leap-count ,(%read-binary-integer inf 4)
           :transition-count ,(%read-binary-integer inf 4)
           :type-count ,(%read-binary-integer inf 4)
           :abbrev-length ,(%read-binary-integer inf 4)))
  
  (defun %tz-read-transitions (inf count)
    (make-array count
                :initial-contents
                (loop for idx from 1 upto count
                   collect (%read-binary-integer inf 4 t))))
  
  (defun %tz-read-indexes (inf count)
    (make-array count
                :initial-contents
                (loop for idx from 1 upto count
                   collect (%read-binary-integer inf 1))))
  
  (defun %tz-read-subzone (inf count)
    (loop for idx from 1 upto count
       collect (list (%read-binary-integer inf 4 t)
                     (%read-binary-integer inf 1)
                     (%read-binary-integer inf 1))))
  
  (defun %tz-read-leap-seconds (inf count)
    (loop for idx from 1 upto count
       collect (list (%read-binary-integer inf 4)
                     (%read-binary-integer inf 4))))
  
  (defun %tz-read-abbrevs (inf length)
    (let ((a (make-array length :element-type '(unsigned-byte 8))))
  