GNU bug report logs - #8206
24.0.50; flet breaks advised functions

Previous Next

Full log

Message #8 received at 8206 <at> debbugs.gnu.org (full text, mbox):

From: Alex <agrambot <at> gmail.com>
To: Andreas Politz <politza <at> fh-trier.de>
Cc: 8206 <at> debbugs.gnu.org
Subject: Re: bug#8206: 24.0.50; flet breaks advised functions
Date: Wed, 07 Sep 2016 22:14:37 -0600

close 8206 24.4
quit

Andreas Politz <politza <at> fh-trier.de> writes:

> I just discovered that `flet' does not work with (at least some form of)
> advised functions, such that it doesn't restore the original function.
> The underlying problem is demonstrated by the following code and seems
> to date back to at least Version 22.3.1 .
>
> (progn
>   (defun foo () 'defun)
>   (defadvice foo (around foo activate)
>     ad-do-it)
>   (setq letf-save (symbol-function
>                    ;;'ad-Orig-foo
>                    'foo
>                    ))
>   (fset 'foo (lambda nil 'flet))
>   (fset 'foo letf-save)
>   (foo))
>
> => flet

This results in 'defun' since at least 24.4, so I'm closing this as fixed.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.