anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (test format-timestring/simple
  -  (let ((local-time::*default-timezone* local-time:+utc-zone+)
  +  (let ((*default-timezone* local-time:+utc-zone+)
           (test-timestamp (encode-timestamp 1000 2 3 4 5 6 2008 :offset 0)))
       (is-every string=
         "2008-06-05T04:03:02.000001Z"
  
positive.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (test parse-timestring
    (let ((timestamp (now)))
      (is (timestamp= timestamp
                       (parse-timestring
                        (format-timestring nil timestamp)))))
    (let ((timestamp (encode-timestamp 0 0 0 0 1 1 1)))
      (is (timestamp= timestamp
                       (parse-timestring "0001-01-01T00:00:00,0"
  
negative.code:       "11th" (format-ordinal 11)
        "22nd" (format-ordinal 22)
        "3rd" (format-ordinal 3))))
  
  (test format-timestring/bug/1
    (let ((*default-timezone* (find-timezone-by-location-name "Pacific/Auckland")))
      (finishes (format-timestring nil (now)))))
  
  (test format-timestring/errors
    (with-output-to-string (*standard-output*)
  