From xemacs-m  Wed May 21 11:46:13 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id LAA26837
	for <xemacs-beta@xemacs.org>; Wed, 21 May 1997 11:46:11 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id SAA28193; Wed, 21 May 1997 18:46:11 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Byte-compiler hack: is it working?
X-Save-Project-Gutenberg: <URL:http://www.promo.net/pg/nl/pgny_nov96.html>
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
X-Zippy-Says: It don't mean a THING if you ain't got that SWING!!
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 21 May 1997 18:46:11 +0200
Message-ID: <kig3erg4vu4.fsf@jagor.srce.hr>
Lines: 31
X-Mailer: Gnus v5.4.52/XEmacs 20.2

XEmacs 20.3-b1 is supposed to include the byte-compiler improvement of 
optimizing (+ foo 1) to (1+ foo).  However:

(setq x 5)
(defun foo ()
  (+ x 1))
(byte-compile 'foo)

However, both in 20.2 and 20.3-b1, the disassembly output is the same:

byte code for foo:
  args: nil
0	varref	  x
1	constant  1
2	plus	  
3	return	  

(defun foo ()
  (1+ x))

byte code for foo:
  args: nil
0	varref	  x
1	add1	  
2	return	  

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
* Q: What is an experienced Emacs user?
* A: A person who wishes that the terminal had pedals.

