From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Pascal Bourguignon Newsgroups: gmane.emacs.help Subject: Re: Lisp help: problem with uninterned symbols Date: 12 Dec 2003 16:09:11 +0100 Organization: [posted via Easynet Spain] Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: <87smjqoyy0.fsf@thalassa.informatimago.com> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1071242328 17548 80.91.224.253 (12 Dec 2003 15:18:48 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 12 Dec 2003 15:18:48 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Dec 12 16:18:35 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AUp3r-0000L8-00 for ; Fri, 12 Dec 2003 16:18:35 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AUpye-0003tH-ER for geh-help-gnu-emacs@m.gmane.org; Fri, 12 Dec 2003 11:17:16 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!nntp.cs.ubc.ca!freenix!teaser.fr!fr.ip.ndsoftware.net!newsfeed.freenet.de!feed.news.tiscali.de!easynet-melon!easynet.net!easynet-post2!not-for-mail Original-Newsgroups: gnu.emacs.help User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 Original-Lines: 34 Original-NNTP-Posting-Host: 62.93.174.79 Original-X-Trace: DXC=GCbcB7h8Ld>D1=7V129791V1L<_KKdG_2bBd4DjF1d]1 Original-Xref: shelby.stanford.edu gnu.emacs.help:119255 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:15193 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:15193 Lars Brinkhoff writes: > ;;; file foobar.el > (let () > (defun foo () (eval-when-compile (my-intern "foo"))) > (defun bar () (eval-when-compile (my-intern "foo")))) > > the result is: > > ;;; file foobar.elc > [...] > (byte-code "\300\301M\210\302\303M\207" > [foo #[nil "\300\207" [#1=#:foo] 1] bar #[nil "\300\207" [#1#] 1]] > 2) > > Here, there's only one #:foo which is referenced a second time with > #1#. Great, (eq (foo) (bar)) works again. However, that trick > doesn't work if foo and bar are defined in two separate file. > > Any idea how to solve this? Doctor, when I do this, it hurts! You have the solution: encapsulate your compilation units in a progn. -- __Pascal_Bourguignon__ . * * . * .* . http://www.informatimago.com/ . * . .* There is no worse tyranny than to force * . . /\ () . * a man to pay for what he does not . . / .\ . * . want merely because you think it .*. / * \ . . would be good for him. -- Robert Heinlein . /* o \ . http://www.theadvocates.org/ * '''||''' . SCO Spam-magnet: postmaster@sco.com ******************