From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Tassilo Horn Newsgroups: gmane.emacs.devel Subject: Re: problems with flet on last emacs Date: Wed, 27 Jun 2012 15:24:40 +0200 Message-ID: <87ehp099bb.fsf@thinkpad.tsdh.de> References: <87pq8lnd7v.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1340803515 7585 80.91.229.3 (27 Jun 2012 13:25:15 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 27 Jun 2012 13:25:15 +0000 (UTC) Cc: emacs-devel@gnu.org To: Thierry Volpiatto Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jun 27 15:25:12 2012 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1SjsEx-0003np-O2 for ged-emacs-devel@m.gmane.org; Wed, 27 Jun 2012 15:25:03 +0200 Original-Received: from localhost ([::1]:55213 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjsEx-0003fP-Mv for ged-emacs-devel@m.gmane.org; Wed, 27 Jun 2012 09:25:03 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:59348) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjsEq-0003ev-5M for emacs-devel@gnu.org; Wed, 27 Jun 2012 09:25:01 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SjsEf-0008UF-L1 for emacs-devel@gnu.org; Wed, 27 Jun 2012 09:24:55 -0400 Original-Received: from deliver.uni-koblenz.de ([141.26.64.15]:37197) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjsEf-0008TA-E1 for emacs-devel@gnu.org; Wed, 27 Jun 2012 09:24:45 -0400 Original-Received: from localhost (localhost [127.0.0.1]) by deliver.uni-koblenz.de (Postfix) with ESMTP id 77065D23B1; Wed, 27 Jun 2012 15:24:43 +0200 (CEST) X-Virus-Scanned: amavisd-new at uni-koblenz.de Original-Received: from deliver.uni-koblenz.de ([127.0.0.1]) by localhost (deliver.uni-koblenz.de [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 6Wiod1GVTySP; Wed, 27 Jun 2012 15:24:42 +0200 (CEST) X-CHKRCPT: Envelopesender noch tassilo@member.fsf.org Original-Received: from thinkpad.tsdh.de (tsdh.uni-koblenz.de [141.26.67.142]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by deliver.uni-koblenz.de (Postfix) with ESMTPSA id E11E0D23AE; Wed, 27 Jun 2012 15:24:42 +0200 (CEST) In-Reply-To: <87pq8lnd7v.fsf@gmail.com> (Thierry Volpiatto's message of "Wed, 27 Jun 2012 14:36:36 +0200") User-Agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.1 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 141.26.64.15 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:151213 Archived-At: Thierry Volpiatto writes: > All functions that use flet don't work anymore. > The anonymous function defined by the flet is not read. > (i.e void function foo) Oh, yes, that occured to me too. > I could make it working by restarting my computer, recompiling > some libraries, (helm, slime) and it worked. Not for me. I've tried to rebuild every elisp package, but the error persists. > When I recompile files, restart Emacs, the problem occur again. > I have not this problem on 24.1. Ditto, currently I'm running the released version without problems. > Any ideas? > If not I will send a bug report. Please do so. Here's a recipe: 1. emacs -Q 2. goto *scratch* 3. eval (require 'cl) (flet ((foo () 1)) (foo)) Debugger entered--Lisp error: (void-function foo) symbol-function(foo) (let* ((x (cl-function (lambda nil (cl-block foo 1)))) (x (symbol-function (quote foo)))) (unwind-protect (progn (fset (quote foo) x) (foo)) (fset (quote foo) x))) (letf* (((symbol-function (quote foo)) (cl-function (lambda nil (cl-block foo 1))))) (foo)) (flet ((foo nil 1)) (foo)) eval((flet ((foo nil 1)) (foo)) nil) eval-last-sexp-1(nil) eval-last-sexp(nil) call-interactively(eval-last-sexp nil nil) The macroexpansion is a bit strange: (let* ((x (cl-function (lambda nil (cl-block foo 1)))) (x (symbol-function (quote foo)))) (unwind-protect (progn (fset (quote foo) x) (foo)) (fset (quote foo) x))) Two times `x', and those should probably gensyms, anyway... Bye, Tassilo