From debbugs-submit-bounces@debbugs.gnu.org Thu Jun 28 17:23:08 2012 Received: (at submit) by debbugs.gnu.org; 28 Jun 2012 21:23:08 +0000 Received: from localhost ([127.0.0.1]:35856 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SkMB9-0006Cz-U9 for submit@debbugs.gnu.org; Thu, 28 Jun 2012 17:23:08 -0400 Received: from eggs.gnu.org ([208.118.235.92]:48873) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SkLf2-0005SY-0b for submit@debbugs.gnu.org; Thu, 28 Jun 2012 16:49:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SkLau-0004yy-6N for submit@debbugs.gnu.org; Thu, 28 Jun 2012 16:45:41 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-6.9 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_HI autolearn=unavailable version=3.3.2 Received: from lists.gnu.org ([208.118.235.17]:40198) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SkLau-0004yr-2x for submit@debbugs.gnu.org; Thu, 28 Jun 2012 16:45:40 -0400 Received: from eggs.gnu.org ([208.118.235.92]:41504) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SkLas-0007yD-6L for bug-gnu-emacs@gnu.org; Thu, 28 Jun 2012 16:45:39 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SkLap-0004wH-Lq for bug-gnu-emacs@gnu.org; Thu, 28 Jun 2012 16:45:37 -0400 Received: from dusk.niksula.hut.fi ([130.233.40.6]:40869 helo=mail.niksula.hut.fi) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SkLap-0004tr-Br for bug-gnu-emacs@gnu.org; Thu, 28 Jun 2012 16:45:35 -0400 Received: by mail.niksula.hut.fi (Postfix, from userid 60001) id 7A47F8BB3E; Thu, 28 Jun 2012 23:45:32 +0300 (EEST) Received: from kekkonen.cs.hut.fi (kekkonen.cs.hut.fi [130.233.41.50]) by mail.niksula.hut.fi (Postfix) with ESMTP id 3DBEB8BB3C for ; Thu, 28 Jun 2012 23:45:25 +0300 (EEST) Received: (from jnykopp@localhost) by kekkonen.cs.hut.fi (8.14.3+Sun/8.14.3/Submit) id q5SKjO4W005662 for bug-gnu-emacs@gnu.org; Thu, 28 Jun 2012 23:45:24 +0300 (EEST) Date: Thu, 28 Jun 2012 23:45:24 +0300 From: Janne Nykopp To: bug-gnu-emacs@gnu.org Subject: 23.2; Macro pushnew in cl.el captures variable x Message-ID: <20120628204524.GC925@kekkonen.niksula.hut.fi> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.5.19 (2009-01-05) X-detected-operating-system: by eggs.gnu.org: Solaris 10 (beta) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 208.118.235.17 X-Spam-Score: -6.9 (------) X-Debbugs-Envelope-To: submit X-Mailman-Approved-At: Thu, 28 Jun 2012 17:23:06 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.9 (------) Evaluating the following forms triggers a lisp error: (require 'cl) (let ((x (list 1 2 3))) (pushnew 'a x)) Evaluating in *scratch* buffer results in the following debugger backtrace: Debugger entered--Lisp error: (wrong-type-argument listp a) memql(a a) (if (memql x x) x (setq x (cons x x))) (let ((x ...)) (if (memql x x) x (setq x ...))) (pushnew (quote a) x) (let ((x ...)) (pushnew (quote a) x)) eval((let ((x ...)) (pushnew (quote a) x))) eval-last-sexp-1(t) eval-last-sexp(t) eval-print-last-sexp() call-interactively(eval-print-last-sexp nil nil) The macro `pushnew' seems to capture variable x when no keyword arguments are given: (macroexpand '(pushnew 'a x)) => (let ((x (quote a))) (if (memql x x) x (setq x (cons x x)))) This bug still exists in emacs-24 developer branch cl.el revision 108062 (latest version at the time of writing). Information collected by M-x report-emacs-bug follows. In GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.0) of 2010-12-11 on raven, modified by Debian Windowing system distributor `The X.Org Foundation', version 11.0.10707000 configured using `configure '--build' 'i486-linux-gnu' '--build' 'i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib' '--localstatedir=/var/lib' '--infodir=/usr/share/info' '--mandir=/usr/share/man' '--with-pop=yes' '--enable-locallisppath=/etc/emacs23:/etc/emacs:/usr/local/share/emacs/23.2/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/23.2/site-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/23.2/leim' '--with-x=yes' '--with-x-toolkit=gtk' '--with-toolkit-scroll-bars' 'build_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -g -O2' 'LDFLAGS=-g' 'CPPFLAGS='' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: en_US.utf8 value of $XMODIFIERS: nil locale-coding-system: utf-8-unix default enable-multibyte-characters: t Major mode: Lisp Interaction Minor modes in effect: tooltip-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent input: ( r e q u i r e SPC ' c l ) C-j ( l e t SPC ( ( x SPC ( l i s t SPC 1 SPC 3 SPC 4 2 SPC 4 ) 3 ) ) ) ( p u s h n e w SPC ' a SPC x ) ) C-j q M-x r e p o r t - Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. Entering debugger... Back to top level. Load-path shadows: /usr/share/emacs/23.2/site-lisp/debian-startup hides /usr/share/emacs/site-lisp/debian-startup /usr/share/emacs/23.2/site-lisp/dictionaries-common/ispell hides /usr/share/emacs/23.2/lisp/textmodes/ispell /usr/share/emacs/23.2/site-lisp/dictionaries-common/flyspell hides /usr/share/emacs/23.2/lisp/textmodes/flyspell Features: (shadow sort mail-extr message sendmail regexp-opt ecomplete rfc822 mml mml-sec password-cache mm-decode mm-bodies mm-encode mailcap mail-parse rfc2231 rfc2047 rfc2045 qp ietf-drums mailabbrev nnheader gnus-util netrc time-date mm-util mail-prsvr gmm-utils wid-edit mailheader canlock sha1 hex-util hashcash mail-utils emacsbug help-mode easymenu view debug cl cl-19 tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd font-setting tool-bar dnd fontset image fringe lisp-mode register page menu-bar rfn-eshadow timer select scroll-bar mldrag mouse jit-lock font-lock syntax facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev loaddefs button minibuffer faces cus-face files text-properties overlay md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process dbusbind system-font-setting font-render-setting gtk x-toolkit x multi-tty emacs) From debbugs-submit-bounces@debbugs.gnu.org Thu Jun 28 17:43:38 2012 Received: (at 11811) by debbugs.gnu.org; 28 Jun 2012 21:43:39 +0000 Received: from localhost ([127.0.0.1]:35878 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SkMV0-0006fL-PT for submit@debbugs.gnu.org; Thu, 28 Jun 2012 17:43:38 -0400 Received: from acsinet15.oracle.com ([141.146.126.227]:51838) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SkMUz-0006fE-1o for 11811@debbugs.gnu.org; Thu, 28 Jun 2012 17:43:37 -0400 Received: from acsinet21.oracle.com (acsinet21.oracle.com [141.146.126.237]) by acsinet15.oracle.com (Sentrion-MTA-4.2.2/Sentrion-MTA-4.2.2) with ESMTP id q5SLdKKf005619 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Thu, 28 Jun 2012 21:39:21 GMT Received: from acsmt358.oracle.com (acsmt358.oracle.com [141.146.40.158]) by acsinet21.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id q5SLdJQo017721 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Thu, 28 Jun 2012 21:39:20 GMT Received: from abhmt119.oracle.com (abhmt119.oracle.com [141.146.116.71]) by acsmt358.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id q5SLdJdO019789; Thu, 28 Jun 2012 16:39:19 -0500 Received: from dradamslap1 (/130.35.178.194) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Thu, 28 Jun 2012 14:39:19 -0700 From: "Drew Adams" To: "'Janne Nykopp'" , <11811@debbugs.gnu.org> References: <20120628204524.GC925@kekkonen.niksula.hut.fi> Subject: RE: bug#11811: 23.2; Macro pushnew in cl.el captures variable x Date: Thu, 28 Jun 2012 14:39:17 -0700 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook 11 In-Reply-To: <20120628204524.GC925@kekkonen.niksula.hut.fi> Thread-Index: Ac1Vc8SAoljjVYx3RYm47LXGtdmJbQAAp1+g X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: acsinet21.oracle.com [141.146.126.237] X-Spam-Score: -6.9 (------) X-Debbugs-Envelope-To: 11811 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.9 (------) Seems to be a regression introduced in Emacs 22. Works OK (wrt this bug) in Emacs 21 and 20, but not in 22+. From debbugs-submit-bounces@debbugs.gnu.org Thu Jun 28 19:11:14 2012 Received: (at 11811-done) by debbugs.gnu.org; 28 Jun 2012 23:11:14 +0000 Received: from localhost ([127.0.0.1]:35967 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SkNri-0000E1-Fw for submit@debbugs.gnu.org; Thu, 28 Jun 2012 19:11:14 -0400 Received: from mail-pb0-f44.google.com ([209.85.160.44]:52071) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SkNrc-0000Do-7O for 11811-done@debbugs.gnu.org; Thu, 28 Jun 2012 19:11:08 -0400 Received: by pbcwy7 with SMTP id wy7so3538485pbc.3 for <11811-done@debbugs.gnu.org>; Thu, 28 Jun 2012 16:06:49 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc:content-type:content-transfer-encoding; bh=aiQ2JKSE1x77ckXEKIFzfVtVaUZDdSveFyvZ9HLGGuQ=; b=KcvKOHTW1mVjpNRHg7P02RprD4gmD/Wxm6y5RBTqYXDPkFDFKeKSxVtFYokSFMXZvQ hpfj3rm6hODAN4SapJxezPPh40RhTYhLmUgSFxvkP4iiJX1bHpMZre3GpfxS51iFDPFV P0koL5s/QZS8QGTsl8tQdplUCofyO0Z8zP7kpAd56ktF9O9AhtklkwxQHzMGUgcpf2Ja jBvI7qzz7nSLxpJvc72oPzZ2KFd1E/F+S0WNH0UDzdk1qgytvGYZSS30I8oz/Ngs1piQ bBb8STUVnSwMSk08TDJONerBSt5NT0WFrP9doDsWFmfUd/7DgZ3I1jErtjiUUVMoo5cf Khiw== Received: by 10.66.74.66 with SMTP id r2mr405466pav.45.1340924808802; Thu, 28 Jun 2012 16:06:48 -0700 (PDT) MIME-Version: 1.0 Received: by 10.142.162.16 with HTTP; Thu, 28 Jun 2012 16:06:08 -0700 (PDT) In-Reply-To: <20120628204524.GC925@kekkonen.niksula.hut.fi> References: <20120628204524.GC925@kekkonen.niksula.hut.fi> From: Juanma Barranquero Date: Fri, 29 Jun 2012 01:06:08 +0200 Message-ID: Subject: Re: bug#11811: 23.2; Macro pushnew in cl.el captures variable x To: Janne Nykopp Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.6 (--) X-Debbugs-Envelope-To: 11811-done Cc: 11811-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -2.6 (--) On Thu, Jun 28, 2012 at 10:45 PM, Janne Nykopp wrote: > The macro `pushnew' seems to capture variable x when no keyword > arguments are given: > (macroexpand '(pushnew 'a x)) =3D> > (let ((x (quote a))) (if (memql x x) x (setq x (cons x x)))) Yes. > This bug still exists in emacs-24 developer branch cl.el revision > 108062 (latest version at the time of writing). Should be fixed in the trunk, in revno:108794. =C2=A0 =C2=A0 Juanma From unknown Mon Aug 18 11:32:01 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Fri, 27 Jul 2012 11:24:03 +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