From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/59103 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.pretest.bugs,gmane.emacs.gnus.general Subject: Re: Change in bytecomp.el breaks Gnus Date: Thu, 11 Nov 2004 20:18:19 +0900 Organization: Emacsen advocacy group Message-ID: References: <877jouepy8.fsf@telia.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1100171967 27277 80.91.229.6 (11 Nov 2004 11:19:27 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 11 Nov 2004 11:19:27 +0000 (UTC) Cc: emacs-pretest-bug@gnu.org, ding@gnus.org Original-X-From: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Thu Nov 11 12:19:12 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CSCyu-0001oD-00 for ; Thu, 11 Nov 2004 12:19:12 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CSD7P-0006yb-Ay for gebp-emacs-pretest-bug@gmane.org; Thu, 11 Nov 2004 06:27:59 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CSD7M-0006yW-I6 for emacs-pretest-bug@gnu.org; Thu, 11 Nov 2004 06:27:56 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CSD7M-0006yK-3m for emacs-pretest-bug@gnu.org; Thu, 11 Nov 2004 06:27:56 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CSD7M-0006yH-1V for emacs-pretest-bug@gnu.org; Thu, 11 Nov 2004 06:27:56 -0500 Original-Received: from [69.61.11.2] (helo=washington.hostforweb.net) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1CSCy9-0007ZU-3J; Thu, 11 Nov 2004 06:18:25 -0500 Original-Received: from localhost ([127.0.0.1]) by washington.hostforweb.net with esmtpa (Exim 4.42) id 1CSCy8-0007EK-Kf; Thu, 11 Nov 2004 06:18:24 -0500 Original-To: rms@gnu.org 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.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:xb9+BpFEBP4Iyyfjl6Jdp8jfeho= X-Hashcash: 1:17:041111:rms@gnu.org::CsRaxCi5jm31q7Gq:0000000bln X-Hashcash: 1:17:041111:emacs-pretest-bug@gnu.org::l1dpzw2PmAp66B1s:00000000000000000000000000000000000007oL X-Hashcash: 1:17:041111:ding@gnus.org::fR/ycRz6cpDMvup/:000001NE X-Antivirus-Scanner: Clean mail though you should still use an Antivirus X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.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-Source: X-Source-Args: X-Source-Dir: X-BeenThere: emacs-pretest-bug@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: emacs-pretest-bug.gnu.org List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Errors-To: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.pretest.bugs:4553 gmane.emacs.gnus.general:59103 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:59103 >>>>> In Katsumi Yamaoka wrote: > I found that the problem is caused if a Lisp source contains the > following forms: > (eval-when-compile > (defsubst foo ())) > (defun bar () (foo)) Although I'm not sure of it, the following patch seems to solve the problem. *** bytecomp.el~ Tue Nov 9 21:53:14 2004 --- bytecomp.el Thu Nov 11 11:17:58 2004 *************** *** 3720,3726 **** (if (and (consp (cdr form)) (consp (nth 1 form)) (eq (car (nth 1 form)) 'quote) (consp (cdr (nth 1 form))) ! (symbolp (nth 1 (nth 1 form)))) (let ((constant (and (consp (nthcdr 2 form)) (consp (nth 2 form)) --- 3720,3727 ---- (if (and (consp (cdr form)) (consp (nth 1 form)) (eq (car (nth 1 form)) 'quote) (consp (cdr (nth 1 form))) ! (symbolp (nth 1 (nth 1 form))) ! (not (byte-code-function-p (nth 2 form)))) (let ((constant (and (consp (nthcdr 2 form)) (consp (nth 2 form))