-
- Downloads
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))).
Loading
Please register or sign in to comment