anchor.diff:       (second subzone)
        (third subzone))))
   
  -(defun local-time-adjust (source timezone &optional (destination nil))
  +(defun adjust-to-timezone (source timezone &optional (destination nil))
     "Returns two values, the values of new DAY and SEC slots, or, if DESTINATION is a LOCAL-TIME instance, fills the slots with the new values and returns the destination"
     (declare (type local-time source)
              (type (or null local-time) destination))
  
positive.code:             (timestamp2 (encode-local-time 0 0 0 0 1 month2 year2)))
          (- (day-of timestamp2) (day-of timestamp1))))))
  
  (defun fix-overflow-in-days (day month year)
    "In case the day number is higher than the maximal possible for the given month/year pair, returns the last day of the month."
    (let ((max-day (days-in-month month year)))
  
negative.code:          (let ((result (local-time :unix sec
                                     :nsec (or nsec (* usec 1000))
                                     :timezone +utc-zone+)))
             (adjust-to-timezone result (realize-timezone (or timezone
                                                              *default-timezone*))
                                 result)))
         #-sbcl
         (local-time :universal (get-universal-time) :nsec nsec))))
  
  