Custom Query (1030 matches)

See ​http://lists.clozure.com/pipermail/openmcl-devel/2015-January/010839.html

The problem seems to be the lock-free version of clrhash not resetting nhash.grow-threshold.

? (let ((h (make-hash-table :size 100)))
    (format t "~&initial: ~s" (ccl::nhash.grow-threshold h))
    (dotimes (i 7) (setf (gethash i h) i))
    (format t "~&after use: ~s" (ccl::nhash.grow-threshold h))
    (clrhash h)
    (format t "~&after clrhash: ~s" (ccl::nhash.grow-threshold h)))
initial: 100
after use: 93
after clrhash: 93

Non-lock-free version works fine:

? (let ((h (make-hash-table :size 100 :lock-free nil)))
    (format t "~&initial: ~s" (ccl::nhash.grow-threshold h))
    (dotimes (i 7) (setf (gethash i h) i))
    (format t "~&after use: ~s" (ccl::nhash.grow-threshold h))
    (clrhash h)
    (format t "~&after clrhash: ~s" (ccl::nhash.grow-threshold h)))
initial: 100
after use: 93
after clrhash: 100

Open a largish file, e.g. cocoa-editor.lisp

Right click in it and select Duplicate this window.

Go back to the first window and scroll it down to near the end, and click somewhere in the text.

Go back to the second window, and scroll by large amounts and try to click in the text. For me, most of the time, clicking places the insertion point in an apparently random location in the buffer, instead of where I clicked.

? (make-random-state t)
> Error: Can't determine primary IP interface
> While executing: CCL::PRIMARY-IP-INTERFACE-ADDRESS, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.

System is Windows XP SP3. CCL is version 1.4.