anchor.diff:                      '(:gmt-offset)))))))
       (format-timestring destination timestamp :format rfc3339-format :timezone timezone)))
   
  +(defun to-rfc3339-timestring (timestamp)
  +  (format-rfc3339-timestring nil timestamp))
  +
   (defun %read-timestring (stream char)
     (declare (ignore char))
     (parse-timestring
  
positive.code:       (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
  
negative.code: 
  ;;; Declaims
  
  (declaim (inline now format-timestring %get-current-time
                   format-rfc3339-timestring to-rfc3339-timestring
                   format-rfc1123-timestring to-rfc1123-timestring)
           (ftype (function * simple-base-string) format-rfc3339-timestring)
           (ftype (function * simple-base-string) format-timestring)
           (ftype (function * fixnum) local-timezone)
  