From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel Subject: Re: problems with flet on last emacs Date: Wed, 27 Jun 2012 17:01:18 +0200 Message-ID: References: <87pq8lnd7v.fsf@gmail.com> <87ehp099bb.fsf@thinkpad.tsdh.de> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1340809303 25021 80.91.229.3 (27 Jun 2012 15:01:43 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 27 Jun 2012 15:01:43 +0000 (UTC) Cc: emacs-devel@gnu.org, Thierry Volpiatto To: Tassilo Horn Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jun 27 17:01:40 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 1SjtkP-0007Sl-KC for ged-emacs-devel@m.gmane.org; Wed, 27 Jun 2012 17:01:37 +0200 Original-Received: from localhost ([::1]:54151 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjtkP-0005HI-Ms for ged-emacs-devel@m.gmane.org; Wed, 27 Jun 2012 11:01:37 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:53732) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjtkH-0005Gy-JM for emacs-devel@gnu.org; Wed, 27 Jun 2012 11:01:35 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SjtkA-0007NY-Dh for emacs-devel@gnu.org; Wed, 27 Jun 2012 11:01:29 -0400 Original-Received: from mail-out.m-online.net ([212.18.0.9]:53744) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjtkA-0007Mm-7f for emacs-devel@gnu.org; Wed, 27 Jun 2012 11:01:22 -0400 Original-Received: from frontend4.mail.m-online.net (unknown [192.168.8.183]) by mail-out.m-online.net (Postfix) with ESMTP id 3WMnQ53vHYz4KKQh; Wed, 27 Jun 2012 17:01:33 +0200 (CEST) Original-Received: from igel.home (ppp-88-217-99-69.dynamic.mnet-online.de [88.217.99.69]) by mail.mnet-online.de (Postfix) with ESMTPA id 3WMnPp54WkzbcVy; Wed, 27 Jun 2012 17:01:18 +0200 (CEST) Original-Received: by igel.home (Postfix, from userid 501) id 558B5CA2A2; Wed, 27 Jun 2012 17:01:18 +0200 (CEST) X-Yow: Here I am at the flea market but nobody is buying my urine sample bottles.. In-Reply-To: <87ehp099bb.fsf@thinkpad.tsdh.de> (Tassilo Horn's message of "Wed, 27 Jun 2012 15:24:40 +0200") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-Received-From: 212.18.0.9 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:151219 Archived-At: Tassilo Horn writes: > 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))) > I'm getting this: (let* ((#1=#:x (cl-function (lambda nil (cl-block foo 1)))) (#3=#:x (cl--symbol-function #2='foo))) (unwind-protect (progn (if (eq #1# . #4=('cl--unbound)) (fmakunbound #2#) (fset #2# #1#)) (foo)) (if (eq #3# . #4#) (fmakunbound #2#) (fset #2# #3#)))) > Two times `x', and those should probably gensyms, anyway... Which they are. Andreas. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5 "And now for something completely different."