anchor.diff:    
   (test local-time
     (let ((now (now)))
  -    (setf (usec-of now) 0)
  +    (setf (nsec-of now) 0)
       (is (local-time= now
                        (local-time :unix (unix-time now)))))
     (let ((now (get-universal-time)))
  
positive.code: (test encode-local-time
    (let ((local-time (encode-local-time 0 0 0 0 1 3 2000)))
      (is-every =
        (usec-of local-time) 0
        (day-of local-time) 0
        (sec-of local-time) 0))
    (let ((local-time (encode-local-time 0 0 0 0 29 2 2000)))
      (is-every =
        (usec-of local-time) 0
        (day-of local-time) -1
        (sec-of local-time) 0))
    (let ((local-time (encode-local-time 0 0 0 0 2 3 2000)))
      (is-every =
        (usec-of local-time) 0
        (sec-of local-time) 0
        (day-of local-time) 1))
    (let ((local-time (encode-local-time 0 0 0 0 1 1 2000)))
      (is-every =
        (usec-of local-time) 0
        (sec-of local-time) 0
        (day-of local-time) -60))
    (let ((local-time (encode-local-time 0 0 0 0 1 3 2001)))
      (is-every =
        (usec-of local-time) 0
        (sec-of local-time) 0
        (day-of local-time) 365)))
  
  
negative.code: 
  (test local-time=-1
    (is (local-time= (make-local-time) (make-local-time)))
    (is-false (local-time= (make-local-time) (make-local-time :nsec 1))))
  
  (test local-time/=
    (is (local-time/= (make-local-time) (make-local-time :nsec 1)))
    (is-false (local-time/= (make-local-time) (make-local-time))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  