Comment 4 for bug 457053

Revision history for this message
Matthias Benkard (mulk) wrote :

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