bug#11594: message-send-and-exit now fails

[Andreas Schwab <schwab@linux-m68k.org>]

Johan Bockgård <bojohan@gnu.org> writes:

> The byte compiler seems broken:
>
>     emacs -Q
>
>     (setq m (byte-compile '(lambda () (defmacro m ()) (m))))
>
>     #[nil "\300\301\302\303B\"\210\301 \207" [defalias m macro #[nil "\300\207" [nil] 1]] 4]
>
>     (funcall m)
>
>        => error: (invalid-function m)

byte code:
  args: nil
0	constant  defalias
1	constant  m
2	constant  macro
3	constant  <compiled-function>
      args: nil
    0	    constant  nil
    1	    return    

4	cons	  
5	call	  2
6	discard	  
7	constant  m
8	call	  0
9	return	  

> In emacs-24 branch:
>
>     #[nil "\300\301\302\"\210\303\207" [defalias m (macro . #[nil "\300\207" [nil] 1]) nil] 3]

byte code:
  args: nil
0	constant  defalias
1	constant  m
2	constant  <compiled macro>
      args: nil
    0	    constant  nil
    1	    return    

3	call	  2
4	discard	  
5	constant  nil
6	return	  

There are two differences:

- (cons 'macro #[nil ...]) vs '(macro . #[nil ...]) (a performance
  regression)
- (m) is not macro-expanded

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."