anchor.diff:  
         (when (equal 0 leap-year?)
           (let ((this-year (nth-value 5 (get-decoded-time))))
  -          (warn "Year was not detected in ~S as RFC822-Genus. YEAR is supplemented with this year, ~S."
  +          (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: ;;;; Last modified : 2013-07-30 21:48:37 tkych
  
  ;; cl-date-time-parser/date-time-parser.lisp
  
  
negative.code:                            (progn
                               ;; c.f. RFC 3339, 3. Two Digit Years, last item
                               (when (<= #.(char-code #\:) (char-code (char token 0)))
                                 (let ((broken-two-digit-year (copy-seq token)))
                                   (setf (char token 0)
                                         (digit-char (- (char-code (char token 0)) #.(char-code #\:))))
                                   (warn "Broken two-digit year ~S was parsed as \"~S\". (c.f. RFC 3339, 3.)"
                                         broken-two-digit-year (+ 2000 (parse-integer token)))))
                               (parse-year (+ 2000 (parse-integer token)))
                               (setf year-parsed? t))))
                      ;; "YYYY", "YYYYYY"
  