The tests currently use the variable HT, and destructively modify in setf-hget, and hget also tries to modify it. As it is, if you run the test setf-hget before hget (5am does not guarantee the order) then hget. Also if you run setf-hget again without force reloading the tests it fails.
The tests should really bind ht lexically, for example:
(test hget (let ((ht (hash ('a (hash ('b 3)))))) ....
The tests currently use the variable HT, and destructively modify in setf-hget, and hget also tries to modify it. As it is, if you run the test setf-hget before hget (5am does not guarantee the order) then hget. Also if you run setf-hget again without force reloading the tests it fails.
The tests should really bind ht lexically, for example:
(test hget (let ((ht (hash ('a (hash ('b 3)))))) ....