anchor.diff:  
   ;;; Declaims
   
  -(declaim (inline now format-rfc3339-timestring)
  +(declaim (inline now format-timestring format-rfc3339-timestring)
            (ftype (function * simple-base-string) format-rfc3339-timestring)
            (ftype (function * simple-base-string) format-timestring)
            (ftype (function * fixnum) local-timezone)
  
positive.code:            #:timestamp-year
             #:parse-timestring
             #:format-timestring
             #:format-rfc3339-timestring
             #:encode-timestamp
             #:parse-rfc3339-timestring
  
negative.code:   (let ((result (%construct-timestring timestamp format timezone)))
      (when destination
        (write-string result destination))
      result))
  
  (defun format-http-timestring (destination timestamp)
    (format-timestring destination timestamp
                       :format +rfc-1123-format+
                       :timezone +gmt-zone+))
  
  (defun to-http-timestring (timestamp)
    (format-http-timestring nil timestamp))
  
  (defun format-rfc3339-timestring (destination timestamp &key
                                    omit-date-part
  