anchor.diff:      ;; In 2005, April 4th is the start of daylight savings time.  The
       ;; difference between daylight savings and non-daylight savings
       ;; is one hour (for now)
  -  (is-equal (- (local-timezone (encode-local-time 0 0 0 0 4 4 2005 +utc-zone+))
  -               (local-timezone (encode-local-time 0 0 0 0 3 4 2005 +utc-zone+)))
  -            3600))
  +  (is (= (- (local-timezone (encode-local-time 0 0 0 0 4 4 2005 +utc-zone+))
  +            (local-timezone (encode-local-time 0 0 0 0 3 4 2005 +utc-zone+)))
  +         3600)))
   
   (test unix-time
  -  (is-equal (unix-time (encode-local-time 0 0 0 0 1 1 1970)) 0))
  +  (is (eql (unix-time (encode-local-time 0 0 0 0 1 1 1970)) 0)))
   
   (test universal-time
  -  (is-equal (decode-universal-time (universal-time (encode-local-time 1 2 3 4 5 6 2008)))
  -            (values 2 3 4 5 6 2008 3 * *)))
  +  (is (equal (decode-universal-time (universal-time (encode-local-time 1 2 3 4 5 6 2008)))
  +             (values 2 3 4 5 6 2008 3 * *))))
     
   (test local-time
     (let ((now (now)))
       (is (local-time= (local-time :unix (unix-time now))
                        now)))
     (let ((now (get-universal-time)))
  -    (is-equal (universal-time (local-time :universal now))
  -              now)))
  +    (is (equal (universal-time (local-time :universal now))
  +               now))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  
positive.code:   (let ((local-time (encode-local-time 0 0 0 0 1 1 2006)))
      (is (local-time= (parse-timestring "2006-01-01T00:00:00,0")
                       local-time)))
    (is-equal (day-of (parse-timestring "xxxx 2006-01-01T00:00:00,0 xxxx"
                                        :start 5
                                        :end 15))
              (day-of (encode-local-time 0 0 0 0 1 1 2006)))
    (is (local-time= (parse-timestring "2008-07-06T05:04:03,02")
                     (encode-local-time 20000 3 4 5 6 7 2008)))
    (is (local-time= (parse-timestring "--23T::02" :allow-missing-elements-p t)
  
negative.code:   (encode-decode-test (0 0 0 0 1 3 2001 4))
    (encode-decode-test (0 0 0 0 1 3 1998 0))
    (encode-decode-test (1 2 3 4 5 6 2008 4)
      (is (eq (timezone-of local-time) *default-timezone*))
      (is (= (length (multiple-value-list (timezone local-time))) 3)))
    (encode-decode-test (0 0 0 0 1 1 0)
      (is (equal (multiple-value-list (decode-local-time local-time))
                 `(0 0 0 0 1 1 0 5
                   ,(nth-value 1 (timezone local-time))
                   ,*default-timezone*
                   ,(nth-value 2 (timezone local-time))))))
    (let ((local-time (make-local-time
                       :day (- (random 65535) 36767)
                       :sec (random 86400)
  