Hi,
I've written a next to trivial patch for this. Seems to work. :)
SB-DEBUG> (defvar *table* (make-hash-table)) *TABLE* SB-DEBUG> (defun foo () (setf (gethash 'key *table*) 123)) FOO SB-DEBUG> (trace foo :print-all (gethash 'key *table*)) (FOO) SB-DEBUG> (foo) 0: (FOO) 0: (GETHASH 'KEY *TABLE*) = NIL, NIL 0: FOO returned 123 0: (GETHASH 'KEY *TABLE*) = 123, T 123
Hi,
I've written a next to trivial patch for this. Seems to work. :)
SB-DEBUG> (defvar *table* (make-hash-table))
*TABLE*
SB-DEBUG> (defun foo () (setf (gethash 'key *table*) 123))
FOO
SB-DEBUG> (trace foo :print-all (gethash 'key *table*))
(FOO)
SB-DEBUG> (foo)
0: (FOO)
0: (GETHASH 'KEY *TABLE*) = NIL, NIL
0: FOO returned 123
0: (GETHASH 'KEY *TABLE*) = 123, T
123