anchor.diff:             (type local-time local-time))
     (let ((str (with-output-to-string (str)
                  (when timezone
  -                 (setf local-time (local-time-adjust local-time timezone (make-local-time))))
  +                 (setf local-time (adjust-to-timezone local-time timezone (make-local-time))))
                  (multiple-value-bind (nsec sec minute hour day month year day-of-week daylight-p zone)
                      (decode-local-time local-time)
                    (declare (ignore day-of-week daylight-p))
  
positive.code: (defun local-time-day-of-week (local-time)
    (mod (+ 3 (day-of local-time)) 7))
  
  (defun encode-local-time (ns ss mm hh day month year &key (timezone *default-timezone*) into)
    "Return a new LOCAL-TIME instance corresponding to the specified time elements."
    (declare (type integer ns ss mm hh day month year)
             (type (or null timezone) timezone))
    (let* ((0-based-rotated-month (if (>= month 3) (- month 3) (+ month 9)))
           (int-year (if (< month 3) (- year 2001) (- year 2000)))
           (zone (realize-timezone timezone))
           (sec (+ (* hh 3600) (* mm 60) ss))
           (day (+ (floor (* int-year +leap-factor+) 4)
                   (aref #.+rotated-month-offsets-without-leap-day+ 0-based-rotated-month)
                   (1- day)))
           (result (if into
                       (progn
                         (setf (day-of into) day)
                         (setf (sec-of into) sec)
                         (setf (timezone-of into) zone)
                         into)
                       (make-local-time
                        :nsec ns
                        :sec sec
                        :day day
                        :timezone zone))))
      result))
  
  (defun local-time (&key universal unix nsec timezone)
    "Produce a LOCAL-TIME instance from the provided numeric time representation or try to extract the most accurate current time if none of them is provided."
  
negative.code:       ((< (nsec-of time-a) (nsec-of time-b)) '<)
        ((> (nsec-of time-a) (nsec-of time-b)) '>)
        (t '=))))
  
  (defun normalize-month-year-pair (month year)
    "Normalizes the month/year pair: in case month is < 1 or > 12 the month and year are corrected to handle the overflow."
  