anchor.diff:                              (atomic-integer-decf aint))))))
       (join-thread thread-inc)
       (join-thread thread-dec)
  -    (is (= (atomic-integer-value aint) 1000000))))
  +    (is (= 1000000 (atomic-integer-value aint)))))
  
positive.code:                :name (format nil "acquire-recursive-lock Proc #~D" i))
                threads)))
      (map 'nil #'join-thread threads)
      (is (equalp results #(:enter :leave :enter :leave)))))
  
  (test acquire-lock.try-lock
    (let ((lock (make-lock)))
  
negative.code: #+(or abcl allegro ccl clisp ecl lispworks sbcl)
  (test atomic-integer-incf-decf.return-value
    (let ((aint (make-atomic-integer :value 0)))
      (is (= 5 (atomic-integer-incf aint 5)))
      (is (= 4 (atomic-integer-decf aint 1)))))
  
  #+(or abcl allegro ccl clisp ecl lispworks sbcl)
  (test atomic-integer-cas.return-value
  