[Sbcl-devel] Re: Diagnosis of bug 241

[<ger...@t-...>]

Christophe Rhodes <cs...@ca...> writes:

> ISTR that you special cased profile/unprofile to cope with this, did
> you not?  Last time we discussed this bug, I think you even gave us
> this snippet:
> 
> (defun gdefinition (name)
>   (let ((fdefn (fdefinition name))
> 	(info (gethash name profile::*profile-info*)))
>     (if (and info
> 	     (eq fdefn (profile::profile-info-new-definition info)))
> 	(profile::profile-info-old-definition info)
> 	fdefn)))
> 
> (10th May, sbcl-devel; "plus some changes of FDEFINITION to
> GDEFINITION", you said).

You have a better memory than I have; I didn't remember that at all :).