anchor.diff:                          (date-separator #\-) (time-separator #\:) (date-time-separator #\T))
     (multiple-value-bind (nsec usec msec second minute hour day week)
         (decode-duration duration)
  -    (with-output-to-string (str)
  +    (with-output-to-string (str nil :element-type 'base-char)
         (when (zerop week)
           (decf date-elements)
           (when (zerop day)
  
positive.code:                     (return (- result #x100000000))
                      (return result))))
  
  (defun string-from-unsigned-vector (vector offset)
    "Returns a string created from the vector of unsigned bytes VECTOR starting at OFFSET which is terminated by a 0."
    (let ((null-pos (or (position 0 vector :start offset) (length vector))))
      (with-output-to-string (str)
  
negative.code:      (second subzone)
       (third subzone))))
  
  (defun local-timezone (adjusted-local-time
                         &optional (timezone *default-timezone*))
    "Return the local timezone adjustment applicable at the already adjusted-local-time. Used to reverse the effect of TIMEZONE and LOCAL-TIME-ADJUST."
  