anchor.diff:              (:values (enc 23 42 19 23 7 2013 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))))
            (=>? (rfc822 "Thu, 01 Jan")
                 (:values (enc 0 0 0 1 1 this-year 0) 0))
            (=>? (rfc822 "01 Jan")
  
positive.code: ;;;; Last modified : 2013-07-31 20:26:05 tkych
  
  ;; cl-date-time-parser/date-time-parser.lisp
  
  
negative.code:             (:values (enc 0 0 0 9 9 2010 0) 0))
         
         ;; supplemental this year
         (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")
  