From unknown Sat Jun 14 03:54:48 2025 X-Loop: help-debbugs@gnu.org Subject: bug#33890: 27.0.50; Incorrect behaviour of cl-loop macro Resent-From: Quek Yu Han Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 27 Dec 2018 17:37:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 33890 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 33890@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.154593219524609 (code B ref -1); Thu, 27 Dec 2018 17:37:01 +0000 Received: (at submit) by debbugs.gnu.org; 27 Dec 2018 17:36:35 +0000 Received: from localhost ([127.0.0.1]:39515 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gcZaF-0006Or-1D for submit@debbugs.gnu.org; Thu, 27 Dec 2018 12:36:35 -0500 Received: from eggs.gnu.org ([208.118.235.92]:57653) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gcRyY-0006Ha-MM for submit@debbugs.gnu.org; Thu, 27 Dec 2018 04:29:11 -0500 Received: from lists.gnu.org ([208.118.235.17]:40504) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gcRyT-0007RX-92 for submit@debbugs.gnu.org; Thu, 27 Dec 2018 04:29:05 -0500 Received: from eggs.gnu.org ([208.118.235.92]:40126) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gcRyR-0003wv-K9 for bug-gnu-emacs@gnu.org; Thu, 27 Dec 2018 04:29:05 -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.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, UNPARSEABLE_RELAY autolearn=disabled version=3.3.2 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gcRyQ-0007ED-4w for bug-gnu-emacs@gnu.org; Thu, 27 Dec 2018 04:29:03 -0500 Received: from mail-yb1-xb30.google.com ([2607:f8b0:4864:20::b30]:41791) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gcRyP-00079Y-Ry for bug-gnu-emacs@gnu.org; Thu, 27 Dec 2018 04:29:02 -0500 Received: by mail-yb1-xb30.google.com with SMTP id j10so4079776ybj.8 for ; Thu, 27 Dec 2018 01:29:01 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:mime-version:date:message-id:subject:to :content-transfer-encoding; bh=MwXJyW1smoQSmWW0cRiq68GDc69dgK7Aad6tCkM95Sc=; b=QNvjsAHZ4rxF571rc+VWvpZcBHzwDQnx0AO0JJRscrwfaB+pWdKrDxr4vZVCX9Q4Wd 0tiafNEhqUjA8zwRcqHOpvyjLGAA6AAV/5qpSGGoFPXkc+uMj1OKKAsqbDf/YPSzUx6/ qzmw0fNF9/YhmsB6Ekcfz0U70fPRbyjZWuautzO4ArXZK/QYv0cVy5Pfy+DzRF2r4cyI fROfUjDWYDVvADlKG7XjaVQw69o3EYq83377SOqwPJh+GD6Xa4vemXhJWJTcKKiVY2gg I71hoo/D0MQeGJggrbjS1D66zek88/0rDRqcUOf0DKN6B2JAK6ihmwNVlOyM/qoCcenD nV/A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:mime-version:date:message-id:subject:to :content-transfer-encoding; bh=MwXJyW1smoQSmWW0cRiq68GDc69dgK7Aad6tCkM95Sc=; b=Qp7ptAodmpVa2+47iG5TiiQcsyJru3YyL85UXEciNaYNBFq8GX02TJfscT5L2/7dYB 1JBBT+JYoXnlbJPgXE6wi0LWTwJjl9p5X1mkl0ZsY3R+hbbY43sUsF1i01k5IqbKc+jQ VibtUuCMc44deBPEtcW/BBM2JhRk3qYXpBHJrgWCE9wxr2PBcEFygmixwRTA5EGAaY/U gqA4Kc6gJOgrYx3tYFyoucIfKuXv+NKxYN2x9Ts9HLh5E5FA1ttiaVGI9QD05wtbIpqP wKauSDUHjLnFvlTY5d+UuXkzrZMBPJQ2a31gNXPbf6GLEBtjaZ0dYpsX/R6kpP46xqXu e3FA== X-Gm-Message-State: AJcUukccwGyxZs8USWpV1v1shODTtRvf4DqUQq1wqq791dwAgu8zLui8 epbhTp8SswOICeaKUAcHv1WfX/drSY1gMlVZ3hwG8A== X-Google-Smtp-Source: ALg8bN46Qz8LySNguxArxZcvOQ0s449Up58knvlit5f8q2kL7HnHFFF6wcWEn3NxKKHLMtkAl45F8XALvoklmZtO/HA= X-Received: by 2002:a25:98c4:: with SMTP id m4mr11294967ybo.214.1545902940163; Thu, 27 Dec 2018 01:29:00 -0800 (PST) Received: from 1058052472880 named unknown by gmailapi.google.com with HTTPREST; Thu, 27 Dec 2018 04:28:59 -0500 From: Quek Yu Han MIME-Version: 1.0 Date: Thu, 27 Dec 2018 04:28:59 -0500 Message-ID: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2607:f8b0:4864:20::b30 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Spam-Score: -4.0 (----) X-Mailman-Approved-At: Thu, 27 Dec 2018 12:36:33 -0500 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 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 (-----) It appears that a change to the `cl-loop` macro in Emacs 27 introduced a bug where certain clauses would be evaluated more than once in a loop with a "when" clause. See the following minimal example which finds the index of an element in a list: (cl-loop =C2=A0for x in '(a b c d e) =C2=A0for index =3D 0 then (1+ index) =C2=A0when (eq x 'e) =C2=A0return index) In Emacs 26.1 this returns `4` as expected, but in Emacs 27.0.50 it returns `7`, due to the index being incremented twice per loop. The same occurs after a `emacs -Q` restart. For reference here is the macroexpanded form of the above expression, with the difference between 26 and 27 outlined (everything else is identical): (cl-block nil =C2=A0 (let* ((--cl-var-- '(a b c d e)) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(x nil) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(index nil) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(--cl-var-- t) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(--cl-var-- t) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0--cl-var--) =C2=A0 =C2=A0 (while (and (consp --cl-var--) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (progn =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq x (car= --cl-var--)) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq index =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 (if --cl-var-- 0 (1+ index))) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if (eq x 'e= ) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 (setq --cl-var-- index =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 --cl-var-- nil) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 t))) =C2=A0 =C2=A0 =C2=A0 (setq --cl-var-- (cdr --cl-var--)) ;;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ADDED IN EMACS 27 =3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D =C2=A0 =C2=A0 =C2=A0 (and (and (consp --cl-var--) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (progn =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq x (car= --cl-var--)) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq index =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 (if --cl-var-- 0 (1+ index))) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if (eq x 'e= ) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 (setq --cl-var-- index =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 --cl-var-- nil) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 t)))) ;;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D =C2=A0 =C2=A0 =C2=A0 (setq --cl-var-- nil)) =C2=A0 =C2=A0 --cl-var--)) Thanks! In GNU Emacs 27.0.50 (build 1, x86_64-apple-darwin17.6.0, NS appkit-1561.40 Version 10.13.5 (Build 17F77)) =C2=A0of 2018-07-08 built on QYH.local Repository revision: 98463bed07ecc9057094928ffdc2321eaaf3ab52 Windowing system distributor 'Apple', version 10.3.1671 System Description: =C2=A0Mac OS X 10.14.2 Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. Configured using: =C2=A0'configure --disable-dependency-tracking --disable-silent-rules =C2=A0--enable-locallisppath=3D/usr/local/share/emacs/site-lisp =C2=A0--infodir=3D/usr/local/Cellar/emacs-plus/HEAD-98463be/share/info/emac= s =C2=A0--prefix=3D/usr/local/Cellar/emacs-plus/HEAD-98463be --with-xml2 =C2=A0--without-dbus --with-gnutls --with-imagemagick --with-modules =C2=A0--with-rsvg --with-xwidgets --with-ns --disable-ns-self-contained' Configured features: RSVG IMAGEMAGICK NOTIFY ACL GNUTLS LIBXML2 ZLIB TOOLKIT_SCROLL_BARS NS MODULES THREADS XWIDGETS LCMS2 Important settings: =C2=A0 value of $LC_ALL: en_US.UTF-8 =C2=A0 value of $LC_CTYPE: UTF-8 =C2=A0 value of $LANG: en_US.UTF-8 =C2=A0 locale-coding-system: utf-8-unix Major mode: Lisp Interaction Minor modes in effect: =C2=A0 tooltip-mode: t =C2=A0 global-eldoc-mode: t =C2=A0 eldoc-mode: t =C2=A0 electric-indent-mode: t =C2=A0 mouse-wheel-mode: t =C2=A0 tool-bar-mode: t =C2=A0 menu-bar-mode: t =C2=A0 file-name-shadow-mode: t =C2=A0 global-font-lock-mode: t =C2=A0 font-lock-mode: t =C2=A0 blink-cursor-mode: t =C2=A0 auto-composition-mode: t =C2=A0 auto-encryption-mode: t =C2=A0 auto-compression-mode: t =C2=A0 line-number-mode: t =C2=A0 transient-mark-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message rmc puny seq byte-opt gv bytecomp byte-compile cconv dired dired-loaddefs format-spec rfc822 mml easymenu mml-sec password-cache epa derived epg epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader cl-loaddefs cl-lib sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils elec-pair time-date tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/ns-win ns-win ucs-normalize mule-util term/common-win tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core term/tty-colors frame cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer cl-preloaded nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote xwidget-internal kqueue cocoa ns lcms2 multi-tty make-network-process emacs) Memory information: ((conses 16 203880 9574) =C2=A0(symbols 48 20001 1) =C2=A0(miscs 40 33 114) =C2=A0(strings 32 28869 1418) =C2=A0(string-bytes 1 768776) =C2=A0(vectors 16 35252) =C2=A0(vector-slots 8 725502 18860) =C2=A0(floats 8 47 69) =C2=A0(intervals 56 230 0) =C2=A0(buffers 992 11)) From unknown Sat Jun 14 03:54:48 2025 X-Loop: help-debbugs@gnu.org Subject: bug#33890: 27.0.50; Incorrect behaviour of cl-loop macro Resent-From: Glenn Morris Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 31 Dec 2018 06:23:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33890 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Quek Yu Han Cc: 33890@debbugs.gnu.org Received: via spool by 33890-submit@debbugs.gnu.org id=B33890.154623737525820 (code B ref 33890); Mon, 31 Dec 2018 06:23:01 +0000 Received: (at 33890) by debbugs.gnu.org; 31 Dec 2018 06:22:55 +0000 Received: from localhost ([127.0.0.1]:42782 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gdqyV-0006iO-IW for submit@debbugs.gnu.org; Mon, 31 Dec 2018 01:22:55 -0500 Received: from eggsout.gnu.org ([209.51.188.92]:48585) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gdqyT-0006iF-C7 for 33890@debbugs.gnu.org; Mon, 31 Dec 2018 01:22:53 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gdqyS-0008OL-8C for 33890@debbugs.gnu.org; Mon, 31 Dec 2018 01:22:52 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:58961) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gdqyM-0008Cn-AX; Mon, 31 Dec 2018 01:22:46 -0500 Received: from rgm by fencepost.gnu.org with local (Exim 4.82) (envelope-from ) id 1gdqyC-0003nq-97; Mon, 31 Dec 2018 01:22:37 -0500 From: Glenn Morris References: X-Spook: SAPO beanpole terrorist Bridge UOP Drug trade clones X-Ran: 0@/c^edKg5-ya)C2>xt_D>c!%~BA_qGxn-W[e#7DwJ,Z~Iz~ZKd}j<'-[S~(+0}%=;!TaI X-Hue: brightwhite X-Attribution: GM Date: Mon, 31 Dec 2018 01:22:34 -0500 In-Reply-To: (Quek Yu Han's message of "Thu, 27 Dec 2018 04:28:59 -0500") Message-ID: User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 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: -1.0 (-) Quek Yu Han wrote: > It appears that a change to the `cl-loop` macro in Emacs 27 introduced a > bug where certain clauses would be evaluated more than once in a loop > with a "when" clause. This seems to be another manifestation of https://debbugs.gnu.org/32506 due to a0365437c9ee308ad7978e436631020f513b25e7. From debbugs-submit-bounces@debbugs.gnu.org Mon Dec 31 01:23:18 2018 Received: (at control) by debbugs.gnu.org; 31 Dec 2018 06:23:18 +0000 Received: from localhost ([127.0.0.1]:42786 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gdqyr-0006jg-Qz for submit@debbugs.gnu.org; Mon, 31 Dec 2018 01:23:18 -0500 Received: from eggs.gnu.org ([208.118.235.92]:53988) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gdqyq-0006jZ-0C for control@debbugs.gnu.org; Mon, 31 Dec 2018 01:23:16 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gdqyo-0000l8-H7 for control@debbugs.gnu.org; Mon, 31 Dec 2018 01:23:15 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:58983) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gdqyo-0000kH-6U for control@debbugs.gnu.org; Mon, 31 Dec 2018 01:23:14 -0500 Received: from rgm by fencepost.gnu.org with local (Exim 4.82) (envelope-from ) id 1gdqyo-0003qM-4I for control@debbugs.gnu.org; Mon, 31 Dec 2018 01:23:14 -0500 Subject: control message for bug 33890 To: X-Mailer: mail (GNU Mailutils 2.99.98) Message-Id: From: Glenn Morris Date: Mon, 31 Dec 2018 01:23:14 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 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: -6.0 (------) merge 32506 33890 From debbugs-submit-bounces@debbugs.gnu.org Wed Apr 29 14:27:51 2020 Received: (at control) by debbugs.gnu.org; 29 Apr 2020 18:27:51 +0000 Received: from localhost ([127.0.0.1]:44533 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jTrR1-0001D8-5E for submit@debbugs.gnu.org; Wed, 29 Apr 2020 14:27:51 -0400 Received: from mail-qt1-f176.google.com ([209.85.160.176]:46365) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jTrQy-0001Cr-UY; Wed, 29 Apr 2020 14:27:50 -0400 Received: by mail-qt1-f176.google.com with SMTP id t20so2688629qtq.13; Wed, 29 Apr 2020 11:27:48 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=socbD9LMxr7idXo+VuHkLs1YZXRLxKEqrrgkDofRPyg=; b=W0zEZkmH9Q/7cfzc+uppYkzjTjB00vwj7KPcMEvd8OQJ7YQngAlP7lRgJrJijb5VCx Iy2ToVfN4SO2sf/pg2SyMTzEbk1uyaKqGKtHAiNAEG6q3HffGONjpdodkmTUp+DGirPx FtLGr+FXX2jI7Xp5+Ygx9vbLeZ6XwgjnHHh2APBOovJX3EhnJP5Q2In4NwEZrl7ocNtT 8GoNlSEAqFFli6FdwgqQxBnqmtbIUnLXymtJors/QgD50kCF8Y1ru25bXJuJC6UpYgLi aYR294R58fLbhmdOuNKbB8trMsr8ylMx46q+0/r+/nUfi1TG2HAhkdye0bv3+B9X+zhU EJfg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=socbD9LMxr7idXo+VuHkLs1YZXRLxKEqrrgkDofRPyg=; b=Jub1hD7nz47kJWAZ95Z2tLM1AbaFTbildyMkOPdQ2kkczA103rUZvePcc05dbYoE0U 728CbWwnjsKZr6HAclBJ3O8qarCn9U8s+J84l+V+WgEcJFM2KeT5Wwrma42Gv6lfvrao DorNceL+lNawR9Jv0z+aLuHoOHbwxFUFeE9u2vSxZCo0JXlMlc6DwYhQULVejrPZG7xo ruWT+NnB8owZ8A9I3iv6r9FK+C0nQcHBaecu+d3BpEDLho24Si6Zf+fHniq7suaMPysF kh4ehvo83XJNZuQTe9Ctn+zEAF5GUcRtWkTJew/bAuZdDtOuN1tszP1K2sAfkYa1PV9j nZvw== X-Gm-Message-State: AGi0Puai3aQlFhilKLXKzJKJUiwfXhH7clvRKo0/s+v6JfFuo1jdfngL xa3BJEuJmwIo+tWqB0n23vp+oW+b X-Google-Smtp-Source: APiQypJX7uLqRAUBHMB3OdJe5RhXukT/Q1t43DosOEMGajD9oATKyMo3MaAOLxUrQwxzeS5wTCSoBA== X-Received: by 2002:aed:2f25:: with SMTP id l34mr35513287qtd.339.1588184863150; Wed, 29 Apr 2020 11:27:43 -0700 (PDT) Received: from vhost2 (CPE001143542e1f-CMf81d0f809fa0.cpe.net.cable.rogers.com. [99.230.38.42]) by smtp.gmail.com with ESMTPSA id 190sm16479397qkl.46.2020.04.29.11.27.42 (version=TLS1_2 cipher=ECDHE-ECDSA-CHACHA20-POLY1305 bits=256/256); Wed, 29 Apr 2020 11:27:42 -0700 (PDT) From: Noam Postavsky To: Helmut Eller Subject: Re: bug#32506: 27.0.50; loop regression References: Date: Wed, 29 Apr 2020 14:27:24 -0400 In-Reply-To: (Helmut Eller's message of "Thu, 23 Aug 2018 09:17:12 +0200") Message-ID: <85r1w6gnar.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (windows-nt) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: control Cc: 32506@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 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: -1.0 (-) tags 32506 fixed close 32506 27.0.90 quit Helmut Eller writes: > With Emacs25 this > > (require 'cl) > > (defun foo (vector) > (loop for i from -1 > for exp = 0 then (list exp e i) > for e across vector > finally (return exp))) > > (assert (equal (foo [a b]) '((0 a 0) b 1))) > > works as it should. With the current Emacs version (foo [a b]) > incorrectly returns (0 a 0). This was fixed by [1: 045cfbef09a]. [1: 045cfbef09a]: 2019-11-22 15:53:58 +0100 Refix conditional step clauses in cl-loop https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=045cfbef09a67c334e4772cb045181cf2203d839