;; Need to make another access to the hash to disable the last-seen-element
;; cache.
(setf (gethash 'y hash) t)
- (assert (gethash a hash)))
\ No newline at end of file
+ (assert (gethash a hash)))
+
+;;; Minimum quality checks
+(assert (/= (sxhash "foo") (sxhash "bar")))
+(assert (/= (sxhash (pathname "foo.txt")) (sxhash (pathname "bar.txt"))))
+(assert (/= (sxhash (list 1 2 3)) (sxhash (list 3 2 1))))
+(assert (/= (sxhash #*1010) (sxhash #*0101)))