anchor.diff: -;;;; Last modified : 2013-07-30 21:48:37 tkych
  +;;;; Last modified : 2013-07-31 20:26:05 tkych
   
   ;; cl-date-time-parser/date-time-parser.lisp
   
  
positive.code:                            (progn
                               ;; c.f. RFC 3339, 3. Two Digit Years, last item
                               (when (<= #.(char-code #\:) (char-code (char token 0)))
                                 (setf (char token 0)
                                       (digit-char (- (char-code (char token 0)) #.(char-code #\:)))))
  
                               (parse-year (+ 2000 (parse-integer token)))
                               (setf year-parsed? t))))
                      ;; "YYYY", "YYYYYY"
  
negative.code: 
        (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 was supplemented with this year, \"~S\"."
                  date-time-string this-year)
            (parse-year this-year)))
  
  