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:   (let ((result (%construct-timestring timestamp format timezone)))
      (when destination
        (write-string result destination))
      (coerce result 'simple-base-string)))
  
  (defun format-rfc3339-timestring (destination timestamp &key
                                    omit-date-part
  
negative.code: (defun modified-julian-date (timestamp)
    "Returns the modified julian date referred to by the timestamp."
    (- (day-of timestamp) +modified-julian-date-offset+))
  
  (declaim (notinline format-timestring))
  