(dotimes (i 256) (let ((ht (aref hash-tables i))) (dotimes (j 16) (unless (eq (/= 0 (logand (lsh 1 j) i)) (gethash (lsh 1 j) ht)) (error "hash table corruption at table %S, bit %S" i j))))) (aref hash-tables 17) ;; #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 t 0 t 16 t)) (gethash 1 (aref hash-tables 17)) ;; nil