anchor.diff:        (write-string result destination))
       result))
   
  -(defun format-http-timestring (destination timestamp)
  +(defun format-rfc1123-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 to-rfc1123-timestring (timestamp)
  +  (format-rfc1123-timestring nil timestamp))
   
   (defun format-rfc3339-timestring (destination timestamp &key
                                     omit-date-part
  
positive.code: 
  ;;; Declaims
  
  (declaim (inline now format-timestring format-rfc3339-timestring %get-current-time)
           (ftype (function * simple-base-string) format-rfc3339-timestring)
           (ftype (function * simple-base-string) format-timestring)
           (ftype (function * fixnum) local-timezone)
  
negative.code:            #:timestamp-year
             #:parse-timestring
             #:format-timestring
             #:format-rfc1123-timestring
             #:to-rfc1123-timestring
             #:format-rfc3339-timestring
             #:to-rfc3339-timestring
             #:encode-timestamp
             #:parse-rfc3339-timestring
             #:universal-to-timestamp
  