From debbugs-submit-bounces@debbugs.gnu.org Tue Jan 27 03:07:06 2015 Received: (at submit) by debbugs.gnu.org; 27 Jan 2015 08:07:06 +0000 Received: from localhost ([127.0.0.1]:57491 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YG1Aw-0006Zr-Ej for submit@debbugs.gnu.org; Tue, 27 Jan 2015 03:07:06 -0500 Received: from eggs.gnu.org ([208.118.235.92]:55908) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YG1Au-0006ZK-Bo for submit@debbugs.gnu.org; Tue, 27 Jan 2015 03:07:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YG1Al-0004oN-J8 for submit@debbugs.gnu.org; Tue, 27 Jan 2015 03:06:58 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-0.5 required=5.0 tests=BAYES_05 autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:44196) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YG1Al-0004oJ-GG for submit@debbugs.gnu.org; Tue, 27 Jan 2015 03:06:55 -0500 Received: from eggs.gnu.org ([2001:4830:134:3::10]:57616) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YG1Af-0006Ae-9M for bug-gnu-emacs@gnu.org; Tue, 27 Jan 2015 03:06:55 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YG1AZ-0004mV-6E for bug-gnu-emacs@gnu.org; Tue, 27 Jan 2015 03:06:49 -0500 Received: from memphis-mail.hostforweb.net ([216.246.47.48]:39973 helo=memphis.hostforweb.net) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YG1AZ-0004mI-1t for bug-gnu-emacs@gnu.org; Tue, 27 Jan 2015 03:06:43 -0500 Received: from localhost ([127.0.0.1]:33518) by memphis.hostforweb.net with smtp (Exim 4.84) (envelope-from ) id 1YG1AX-003Sza-SF; Tue, 27 Jan 2015 02:06:41 -0600 Date: Tue, 27 Jan 2015 17:06:44 +0900 Message-ID: From: Katsumi Yamaoka To: bug-gnu-emacs@gnu.org Subject: 25.0.50; lexical-let + mapcar cause infloop Organization: Emacsen advocacy group X-Face: #kKnN,xUnmKia.'[pp`; Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu; B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.130012 (=?iso-2022-jp?B?GyRCPz8bKEI=?= Gnus v0.12) Emacs/25.0.50 (i686-pc-cygwin) Cancel-Lock: sha1:DG9wx/yzm2J4UGFvNi8Dmdbli6o= MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - memphis.hostforweb.net X-AntiAbuse: Original Domain - gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Get-Message-Sender-Via: memphis.hostforweb.net: acl_c_authenticated_local_user: yamaokac X-Source: X-Source-Args: X-Source-Dir: X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) A Lisp form that uses `lexical-let' and `mapcar' (or `mapc'), like this, cannot be evaluated nor byte-compiled because it looks like causing an infinite loop[1]. (defun testing () (lexical-let (var) (mapcar #'identity '("Hello" "World")))) [1] There is no means to stop infloop on Cygwin Emacs, so I'm hard to debug it. In GNU Emacs 25.0.50.1 (i686-pc-cygwin, GTK+ Version 3.10.9) of 2015-01-27 on localhost Windowing system distributor `The Cygwin/X Project', version 11.0.11501000 Configured using: `configure --verbose --with-x-toolkit=gtk3' From debbugs-submit-bounces@debbugs.gnu.org Tue Jan 27 18:55:46 2015 Received: (at 19699-done) by debbugs.gnu.org; 27 Jan 2015 23:55:46 +0000 Received: from localhost ([127.0.0.1]:58376 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YGFz0-0006Rr-9R for submit@debbugs.gnu.org; Tue, 27 Jan 2015 18:55:46 -0500 Received: from memphis-mail.hostforweb.net ([216.246.47.48]:45619 helo=memphis.hostforweb.net) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YGFyx-0006Rc-2e for 19699-done@debbugs.gnu.org; Tue, 27 Jan 2015 18:55:43 -0500 Received: from localhost ([127.0.0.1]:47341) by memphis.hostforweb.net with smtp (Exim 4.84) (envelope-from ) id 1YGFyq-000q7j-Qu; Tue, 27 Jan 2015 17:55:37 -0600 Date: Wed, 28 Jan 2015 08:55:39 +0900 Message-ID: From: Katsumi Yamaoka To: 19699-done@debbugs.gnu.org Subject: Re: bug#19699: 25.0.50; lexical-let + mapcar cause infloop References: Organization: Emacsen advocacy group X-Face: #kKnN,xUnmKia.'[pp`; Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu; B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.130012 (=?iso-2022-jp?B?GyRCPz8bKEI=?= Gnus v0.12) Emacs/25.0.50 (i686-pc-cygwin) Cancel-Lock: sha1:zjmDD5ztSJNL3ixh+VgK9oCurnM= MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - memphis.hostforweb.net X-AntiAbuse: Original Domain - debbugs.gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Get-Message-Sender-Via: memphis.hostforweb.net: acl_c_authenticated_local_user: yamaokac X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 19699-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.0 (/) On Tue, 27 Jan 2015 17:06:44 +0900, Katsumi Yamaoka wrote: > A Lisp form that uses `lexical-let' and `mapcar' (or `mapc'), > like this, cannot be evaluated nor byte-compiled because it > looks like causing an infinite loop[1]. Oops, this is my fault that was made as the revno <1fe087a1ab4182b2e6c1d05444461acc4e78e2d8> in cl.el. > (defun testing () > (lexical-let (var) > (mapcar #'identity '("Hello" "World")))) The cause of the infinite loop is that the macro expander tries to expand #'foo again and again. Fixed. From unknown Sat Jun 21 10:38:40 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Wed, 25 Feb 2015 12:24:04 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator