anchor.diff:             #:days-in-month
              #:timestamp-
              #:timestamp+
  -           #:duration
  -           #:decode-duration
  -           #:parse-duration
  -           #:format-duration
              #:timestamp-minimize-part
              #:timestamp-maximize-part
              #:with-decoded-timestamp
  
positive.code:       (write-string result destination))
      result))
  
  (defun format-datestring (date)
    (format-timestring date :omit-time-part-p t))
  
  (defun %read-timestring (stream char)
    (declare (ignore char))
    (parse-timestring
  
negative.code:        (declare (ignore ,@ignores))
         ,@forms)))
  
  (defun %normalize-month-year-pair (month year)
    "Normalizes the month/year pair: in case month is < 1 or > 12 the month and year are corrected to handle the overflow."
    (multiple-value-bind (year-offset month-minus-one)
  