anchor.diff:    (multiple-value-bind (nsec seconds minutes hours day month year day-of-week daylight-saving-time-p timezone)
         (decode-local-time local-time)
       (declare (ignore nsec day-of-week daylight-saving-time-p))
  -    (encode-universal-time seconds minutes hours day month year (floor (timezone local-time timezone) -3600))))
  +    (encode-universal-time seconds minutes hours day month year (floor (timezone local-time timezone) #.(- +seconds-per-hour+)))))
   
   (defun internal-time (local-time)
     "Return the internal system time corresponding to the LOCAL-TIME"
  
positive.code: (defun unix-time (local-time)
    "Return the Unix time corresponding to the LOCAL-TIME"
    (declare (type local-time local-time))
    (+ (* (+ (day-of local-time) 11017) 86400)
       (sec-of local-time)))
  
  (defun timezone (local-time &optional timezone)
  
negative.code:                          (princ #\Z str)
                           (format str "~c~2,'0d~c~2,'0d"
                                   (if (minusp offset) #\- #\+)
                                   (abs (floor offset +seconds-per-hour+))
                                   time-separator
                                   (abs (floor (mod offset +seconds-per-hour+)
                                               +seconds-per-minute+))))))))))
      (when destination
        (princ str destination))
      str))
  