anchor.diff:  
   (defparameter +gmt-zone+ (%make-simple-timezone "Greenwich Mean Time" "GMT" 0))
   
  +(defparameter +none-zone+ (%make-simple-timezone "Explicit Offset Given" "NONE" 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."
     (declare (type (or string symbol) zone-name))
  
positive.code:       (declare-fixnum-type sec minute hour day month year)
        (initialize nsec sec minute hour day month year day-of-week daylight-p))
      `(multiple-value-bind (,@variables)
           (decode-timestamp ,timestamp :timezone ,(or timezone '*default-timezone*))
         (declare (ignore ,@ignores) ,@types)
         ,@forms)))
  
  
negative.code:                              (integer -43199 43199)
                               boolean
                               string)) timestamp-subzone)
           (ftype (function (timestamp &key (:timezone timezone) (:offset (or null integer)))
                            (values (integer 0 999999999)
                                    (integer 0 59)
                                    (integer 0 59)
  