anchor.diff:       :name name
        :loaded t))))
   
  -(defparameter +utc-zone+ (%make-simple-timezone "UTC" "UTC" 0)
  -  "The zone for Coordinated Universal Time.")
  +(defparameter +utc-zone+ (%make-simple-timezone "Coordinated Universal Time" "UTC" 0))
  +
  +(defparameter +gmt-zone+ (%make-simple-timezone "Greenwich Mean Time" "GMT" 0))
   
   (defmacro define-timezone (zone-name zone-file &key (load nil))
     "Define zone-name (a symbol or a string) as a new timezone, lazy-loaded from zone-file (a pathname designator relative to the zoneinfo directory on this system.  If load is true, load immediately."
  
positive.code:     (:hour 2) #\: (:min 2) #\: (:sec 2) #\space
      (:year 4)))
  (defparameter +rfc-1123-format+
    '(:short-weekday ", " (:day 2) #\space :short-month #\space (:year 4) #\space
      (:hour 2) #\: (:min 2) #\: (:sec 2) #\space :timezone))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defparameter +rotated-month-days-without-leap-day+
  
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))
  