anchor.diff:      (:hour 2) #\: (:min 2) #\: (:sec 2) #\space
       (:year 4)))
   (defparameter +rfc-1123-format+
  +  ;; Sun, 06 Nov 1994 08:49:37 GMT
     '(:short-weekday ", " (:day 2) #\space :short-month #\space (:year 4) #\space
  -    (:hour 2) #\: (:min 2) #\: (:sec 2) #\space :timezone))
  +    (:hour 2) #\: (:min 2) #\: (:sec 2) #\space :timezone)
  +  "Please note that you should use the +GMT-ZONE+ timezone to format a proper RFC 1123 timestring. See the RFC for the details about the possible values of the timezone field.")
   
   (eval-when (:compile-toplevel :load-toplevel :execute)
     (defparameter +rotated-month-days-without-leap-day+
  
positive.code:            #:today
             #:enable-read-macros
             #:+utc-zone+
             #:+month-names+
             #:+short-month-names+
             #:+day-names+
  
negative.code:   (defconstant +usecs-per-day+ 86400000000))
  
  (defparameter +iso-8601-format+
    ;; 2008-11-18T02:32:00.586931+01:00
    '((:year 4) #\- (:month 2) #\- (:day 2) #\T
      (:hour 2) #\: (:min 2) #\: (:sec 2) #\.
      (:usec 6) :gmt-offset-or-z))
  (defparameter +rfc3339-format+
    ;; same as +ISO-8601-FORMAT+
    '((:year 4) #\- (:month 2) #\- (:day 2) #\T
      (:hour 2) #\: (:min 2) #\: (:sec 2) #\.
      (:usec 6) :gmt-offset-or-z))
  