From xemacs-m  Sun Jun 29 02:58:26 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id CAA23019
	for <xemacs-beta@xemacs.org>; Sun, 29 Jun 1997 02:58:25 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id BAA13368;
	Sun, 29 Jun 1997 01:01:18 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: XEmacs internal corruption integer `0' plist -- test case
References: <m2k9jeppxm.fsf@altair.xemacs.org> <QQcvxt03404.199706281921@crystal.WonderWorks.COM> <m2zpsay0t2.fsf@altair.xemacs.org> <kigzpsatrzb.fsf@jagor.srce.hr> <19970628223549.33959@iria.mines.u-nancy.fr>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
In-Reply-To: Olivier Galibert's message of "Sat, 28 Jun 1997 22:35:49 +0200"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 29 Jun 1997 01:01:17 -0700
Message-ID: <m2k9jdon1u.fsf@altair.xemacs.org>
Lines: 41
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta10) - "Athens"

Olivier Galibert <Olivier.Galibert@mines.u-nancy.fr> writes:

> On Sat, Jun 28, 1997 at 10:03:36PM +0200, Hrvoje Niksic wrote:
>> I think it is time to do that test again.  Whoever of you has purify,
>> it is time to step out.

> *shyly stepping out* Me sir !

Thanks for the offer, it is much appreciated.  I have no idea how to
run `purify' on the XEmacs source, but surely someone does.  This is
sorely needed.

I've done a lot more testing and it's looking more likely that
something is stepping on memory to cause this particular problem.

I've put a `test-atoms' test in loadup.el and verified that things are 
O.K. past making pointers to the DOC file.  So whatever is happening
seems to be between then and entering the main read-eval-print loop.

$ src/xemacs -batch -q -no-site-file -f test-atoms
Bad plist in built-in-variable-doc, 0
$ 


(defun test-atoms ()
  (mapatoms
   #'(lambda (symbol)
       (condition-case nil
           (get symbol 'custom-group)
         (t (princ
             (format "Bad plist in %s, %s\n"
                     (symbol-name symbol)
                     (prin1-to-string (object-plist symbol)))))))))

P.S.
Please *always use* the #'(lambda syntax for writing lambda
expressions.  It will be enforced in future patches and is the only
syntax that works between temacs and xemacs.
-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

