anchor.diff:              (:values (enc 0 0 0 9 9 2010 0) 0))
          
          ;; supplemental this year
  -       (let ((this-year (nth-value 5 (get-decoded-time))))
  +       (let ((this-year (nth-value 5 (decode-universal-time
  +                                      (get-universal-time) 0))))
            (=>? (parse "Thu, 01 Jan")
                 (:values (enc 0 0 0 1 1 this-year 0) 0))
            (=>? (parse "01 Jan")
  
positive.code: ;;;; Last modified : 2013-07-31 20:26:05 tkych
  
  ;; cl-date-time-parser/date-time-parser.lisp
  
  
negative.code:                                                               (* minute #.+minuite-secs+))))))))))))))
  
        (when (equal 0 leap-year?)
          ;; 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)))
  