From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.w3m,gmane.emacs.devel Subject: [emacs-w3m:07185] Re: bogus change(s) in cl-macs.el Date: Fri, 19 Nov 2004 14:55:07 +0900 Organization: Emacsen advocacy group Message-ID: References: Reply-To: emacs-w3m@namazu.org NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1100843768 25607 80.91.229.6 (19 Nov 2004 05:56:08 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 19 Nov 2004 05:56:08 +0000 (UTC) Cc: emacs-devel@gnu.org, emacs-w3m@namazu.org, miles@gnu.org Original-X-From: emacs-w3m-admin@namazu.org Fri Nov 19 06:56:01 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CV1kX-0006Xu-00 for ; Fri, 19 Nov 2004 06:56:01 +0100 Original-Received: from vaj.namazu.org ([61.215.208.42]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1CV1jw-0004LY-00 for ; Fri, 19 Nov 2004 06:55:25 +0100 Original-Received: from vaj.namazu.org (localhost [127.0.0.1]) by vaj.namazu.org (Postfix) with ESMTP id 1A443DB194; Fri, 19 Nov 2004 14:55:21 +0900 (JST) Original-Received: from washington.hostforweb.net (washington.hostforweb.net [69.61.11.2]) by vaj.namazu.org (Postfix) with ESMTP id 3979FDAE32 for ; Fri, 19 Nov 2004 14:55:20 +0900 (JST) Original-Received: from [127.0.0.1] (helo=localhost) by washington.hostforweb.net with esmtpa (Exim 4.42) id 1CV1jx-00018K-DI; Fri, 19 Nov 2004 00:55:25 -0500 Original-To: snogglethorpe@gmail.com X-ML-Name: emacs-w3m X-Mail-Count: 07185 X-MLServer: fml [fml 4.0.3 release (20011202/4.0.3)]; post only (anyone can post) X-ML-Info: If you have a question, send e-mail with the body "help" (without quotes) to the address emacs-w3m-ctl@namazu.org; help= User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) 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&( Cancel-Lock: sha1:FUh4QnxSvFtogSDgSXeko/BvEH4= X-Hashcash: 1:20:041119:snogglethorpe@gmail.com::LWVjjfuWK7GMnctZ:000000000000000000000000000000000000003/nD X-Hashcash: 1:20:041119:emacs-devel@gnu.org::e68bnrIDLyeE0x/5:0000000000000000000000000000000000000000003COA X-Hashcash: 1:20:041119:emacs-w3m@namazu.org::SPGbBV9KwMtXWshE:000000000000000000000000000000000000000009foM X-Hashcash: 1:20:041119:miles@gnu.org::CVv2V2pfNm7alwsC:00003KsT 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 - namazu.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: Precedence: bulk Original-Lines: 39 List-Id: emacs-w3m.namazu.org List-Software: fml [fml 4.0.3 release (20011202/4.0.3)] List-Post: List-Owner: List-Help: List-Unsubscribe: Xref: main.gmane.org gmane.emacs.w3m:4548 gmane.emacs.devel:30071 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:30071 >>>>>> In [emacs-w3m : No.07180] Miles Bader wrote: >> Please describe this "breakage" in greater detail. >>>>> In [emacs-w3m : No.07182] Katsumi Yamaoka wrote: > From yesterday I'm looking for a simpler way rather than to use > emacs-w3m to reproduce the bug. However, it has not been > achieved so far. I'll post it when I found it. I found the simplest way to explain the bug: (macroexpand '(labels ((FOO nil FOO-BODY) (BAR nil BAR-BODY)) (FOO) (BAR))) (let ((--cl---cl-var---- nil) (--cl---cl-var---- nil)) (progn (progn (set '--cl---cl-var---- #'(lambda nil BAR-BODY)) (set '--cl---cl-var---- #'(lambda nil FOO-BODY))) (funcall (symbol-value '--cl---cl-var----)) (funcall (symbol-value '--cl---cl-var----)))) One of two functions FOO and BAR is disregarded as you see. When the patch I posted is applied, it will be corrected as follows: (let ((--cl-G79813-- nil) (--cl-G79812-- nil)) (progn (progn (set '--cl-G79813-- #'(lambda nil BAR-BODY)) (set '--cl-G79812-- #'(lambda nil FOO-BODY))) (funcall (symbol-value '--cl-G79812--)) (funcall (symbol-value '--cl-G79813--))))