anchor.diff:                                                                (* minute #.+minuite-secs+))))))))))))))
   
         (when (equal 0 leap-year?)
  -        (let ((this-year (nth-value 5 (get-decoded-time))))
  +        ;; Memo: get-decoded-time returns date-time depending system time-zone.
  +        (let ((this-year (nth-value 5 (decode-universal-time
  +                                       (get-universal-time) 0))))
             (warn "YEAR was not detected in ~S as RFC822-Genus. YEAR was supplemented with this year, \"~S\"."
                   date-time-string this-year)
             (parse-year this-year)))
  
positive.code:             (:values (enc 0 0 0 9 9 2010 0) 0))
         
         ;; supplemental this year
         (let ((this-year (nth-value 5 (get-decoded-time))))
           (=>? (parse "Thu, 01 Jan")
                (:values (enc 0 0 0 1 1 this-year 0) 0))
           (=>? (parse "01 Jan")
  
negative.code:             (:values (enc 23 42 19 23 7 2013 0) 0))
  
         ;; supplemental this year
         (let ((this-year (nth-value 5 (decode-universal-time
                                        (get-universal-time) 0))))
           (=>? (rfc822 "Thu, 01 Jan")
                (:values (enc 0 0 0 1 1 this-year 0) 0))
           (=>? (rfc822 "01 Jan")
  