From xemacs-m  Thu Feb  6 14:06:39 1997
Received: from martigny.ai.mit.edu (martigny.ai.mit.edu [18.43.0.152])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA19821
	for <xemacs-beta@xemacs.org>; Thu, 6 Feb 1997 14:06:38 -0600 (CST)
Received: from berne.ai.mit.edu by martigny.ai.mit.edu with SMTP
	(1.40.112.8/16.2) id AA003329590; Thu, 6 Feb 1997 15:06:30 -0500
From: Bill Dubuque <wgd@martigny.ai.mit.edu>
Message-Id: <199702062006.AA003329590@martigny.ai.mit.edu>
Received: by berne.ai.mit.edu
	(1.40.112.8/16.2) id AA268029589; Thu, 6 Feb 1997 15:06:29 -0500
Date: Thu, 6 Feb 1997 15:06:29 -0500
To: steve@miranova.com
Cc: xemacs-beta@xemacs.org, raman@Adobe.COM
In-Reply-To: <m2d8udvmvt.fsf@altair.xemacs.org> (message from Steven L Baur on
	06 Feb 1997 09:56:54 -0800)
Subject: Re: Hashtable + CL lossage

: From: Steven L Baur <steve@miranova.com>
: Date: 06 Feb 1997 09:56:54 -0800
: 
: How about this instead?
: 
: --- cl-macs.el	1996/12/18 03:47:05	1.1.1.2
: +++ cl-macs.el	1997/02/06 17:46:23
: @@ -1399,7 +1399,8 @@
:   (cond ((eq (car-safe spec) 'special)
: 	(if (boundp 'byte-compile-bound-variables)
: 	    (setq byte-compile-bound-variables
: -		   (append (cdr spec) byte-compile-bound-variables))))
: +		   (append (list (append (cdr spec) byte-compile-global-bit))
: +			   byte-compile-bound-variables))))
: 

No, that's worse than before. Special decls looks like 

(declare (special var1 var2 ....))

so you need

 	(if (boundp 'byte-compile-bound-variables)
 	    (setq byte-compile-bound-variables
                  ;; todo: this should compute correct binding bits vs. 0
		  (append (mapcar #'(lambda (v) (cons v 0)) 
                                  (cdr spec))
		          byte-compile-bound-variables)))

: > Caveat: above analysis was based on FSF 19.34 CL-MACS and
: > XEmacs 19.10 bytecompiler, so may not be totally accurate.
: > Is there an easy way to access a single file in the XEmacs dist?
: 
: Not at present.  Which files do you wish to look at?

Whatever files needed to help out with the beta, e.g. as above.
Until I have time to install a new version of Linux I won't be 
able to download the latest.

-Bill

