Skip to content
Snippets Groups Projects
Commit 3b9ca962 authored by rtoy's avatar rtoy
Browse files

From Gerd Moellman, cmucl-imp, 2005-05-15:

    Bruno reported an endless loop in the following test case:

    (let ((tab (make-hash-table :test 'eq :weak-p t)))
      (let ((a (list 'x)))
	(let ((b (list 'y)))
	  (setf (gethash a tab) 'xxx)
	  (setf (gethash b tab) (cons 'yyy b)))
	(gc)
	(list (hash-table-count tab)
	      (gethash a tab)
	      (let ((l nil))
		(maphash #'(lambda (k v) (push k l)) tab) l))))

But we return (2 XXX ((Y) (X))) instead of (1 XXX ((X))).
parent 5f1fcac9
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment