Ticket #993: lock-free-hash-table-test-simple.lisp

File lock-free-hash-table-test-simple.lisp, 228 bytes (added by uchida, 22 months ago)
Line 
1(advise ccl::store-gvector-conditional
2        (process-allow-schedule)
3        :when :before)
4
5(let ((table (make-hash-table)))
6  (dotimes (i 1000000)
7    (clrhash table)
8    (setf (gethash i table) 0)
9    (incf (gethash i table))))
10
11(quit)