anchor.diff:            (loop for month :from 1 :to 12 do
                   (loop for day :in '(1 2 3 27 28 29 30 31) do
                         (when (valid-date-p year month day)
  -                        (multiple-value-bind (usec sec minute hour day* month* year* day-of-week daylight-p zone)
  +                        (multiple-value-bind (nsec sec minute hour day* month* year* day-of-week daylight-p zone)
                               (decode-local-time (encode-local-time 0 0 0 0 day month year))
  -                          (declare (ignore usec sec minute hour day-of-week daylight-p zone))
  +                          (declare (ignore nsec sec minute hour day-of-week daylight-p zone))
                             (is (= year year*))
                             (is (= month month*))
                             (is (= day day*)))))))))
  
positive.code:                                      :start 5
                                       :end 15))))
    (is (eql (day-of (parse-timestring "2006-06-06TZ")) 2288))
    (is (local-time= (encode-local-time 20000 3 4 5 6 7 2008)
                     (parse-timestring "2008-07-06T05:04:03,02")))
    (is (local-time= (encode-local-time 0 02 0 0 23 3 2000)
                     (parse-timestring "--23T::02" :allow-missing-elements-p t)))
    (is (local-time= (encode-local-time 80000 7 6 5 1 3 2000)
                     (parse-timestring "T05:06:07,08"))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: 
  (test read-universal-time
    (let ((now (now)))
      (setf (nsec-of now) 0)
      (is (local-time= now
                       (with-input-from-string (ins (princ-to-string (universal-time now)))
                         (local-time::read-universal-time ins #\@ nil))))))
  