anchor.diff:             #:timestamp-week
              #:timestamp-year
              #:parse-timestring
  -           #:parse-datestring
              #:format-timestring
  -           #:format-datestring
              #:format-rfc3339-timestring
              #:encode-timestamp
              #:parse-rfc3339-timestring
  
positive.code: 
  ;;; Declaims
  
  (declaim (inline now today encode-duration format-rfc3339-timestring)
           (ftype (function * (values simple-base-string)) format-rfc3339-timestring)
           (ftype (function * (values simple-base-string)) format-timestring)
           (ftype (function * (values simple-base-string)) format-duration)
           (ftype (function * (values fixnum)) local-timezone)
           (ftype (function (timestamp &key (:timezone timezone))
                            (values (integer 0 999999999)
  
negative.code:       (write-string result destination))
      result))
  
  (defun %read-timestring (stream char)
    (declare (ignore char))
    (parse-timestring
  