anchor.diff:  (def-suite :local-time)
   
   (in-suite* #:local-time.make :in :local-time)
  +
  +(reread-timezone-repository)
   
   (test make-timestamp
     (let ((timestamp (make-timestamp :nsec 1 :sec 2 :day 3)))
  
positive.code:       "04:03"
        (format-timestring nil test-timestamp
                           :format '((:hour 2) #\: (:min 2))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
  
negative.code:     
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (test format-timestring/simple
    (let ((local-time::*default-timezone* local-time:+utc-zone+)
          (test-timestamp (encode-timestamp 1000 2 3 4 5 6 2008 :offset 0)))
      (is-every string=
  