From xemacs-m  Sat Jun  7 18:04:22 1997
Received: from crystal.WonderWorks.COM (crystal.WonderWorks.com [192.203.206.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA09855
	for <xemacs-beta@xemacs.org>; Sat, 7 Jun 1997 18:04:20 -0500 (CDT)
Received: by crystal.WonderWorks.COM 
	id QQcsyu29216; Sat, 7 Jun 1997 19:04:19 -0400 (EDT)
Date: Sat, 7 Jun 1997 19:04:19 -0400 (EDT)
Message-Id: <QQcsyu29216.199706072304@crystal.WonderWorks.COM>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Kyle Jones <kyle_jones@wonderworks.com>
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: A byte-compiler bug?
In-Reply-To: <QQcsyg25381.199706071941@crystal.WonderWorks.COM>
References: <kig206ep93d.fsf@jagor.srce.hr>
	<QQcsye24769.199706071904@crystal.WonderWorks.COM>
	<QQcsyg25381.199706071941@crystal.WonderWorks.COM>
X-Mailer: VM 6.33 under 20.3 XEmacs Lucid (beta4)
X-Face: /cA45WHG7jWq>(O3&Z57Y<"WsX5ddc,4c#w0F*zrV#=M
        0@~@,s;b,aMtR5Sqs"+nU.z^CSFQ9t`z2>W,S,]:[+2^
        Nbf6v4g>!&,7R4Ot4Wg{&tm=WX7P["9%a)_da48-^tGy
        ,qz]Z,Zz\{E.,]'EO+F)@$KtF&V

The bug Hrvoje found is due to an ebola infected byte compiler.
THe compiler has in its own bytecode the byte-old-assq opcode
instead of the ebola-free byte-assq code, which makes it see
char and int constants as equivalent.

Here's a patch for bytecomp.el.  Safest way to go is to apply
the patch, batch byte compile everything in the lisp/bytecomp
directory, then start another XEmacs process and batch compile
it all again.

--- 1.1	1997/06/07 22:39:02
+++ lisp/bytecomp/bytecomp.el	1997/06/07 22:39:25
@@ -3025,7 +3025,7 @@
       (byte-compile-subr-wrong-args form 2)
     (byte-compile-form (car (cdr form)))  ;; Push the arguments
     (byte-compile-form (nth 2 form))
-    (if t ;(byte-compile-version-cond byte-compile-emacs19-compatibility)
+    (if (byte-compile-version-cond byte-compile-emacs19-compatibility)
 	(byte-compile-out (get (car form) 'byte-opcode19) 0)
       (byte-compile-out (get (car form) 'byte-opcode) 0))))
 

