(defun powerof (max)
  " test"
  (interactive n)
    (setq m 1)
    (setq i 1)
    (message (format "begin"))
    (while ( < i max )
      (setq m (* m 2)) 
      (message (format "%d %d" i m)
      (setq i (+ i 1)) )))

を評価した後に (powerof 32)を評価すると、 *Message* バッファに、

begin
1  2
2  4
...
22 4194304
23 8388608
24 16777216
25 33554432
26 67108864
27 134217728
28 -268435456
29 0
30 0

のような表示が残る。28 bit のところであふれないようにするには ?

src/lisp.h-#define EMACS_INT long
src/lisp.h:#define BITS_PER_EMACS_INT BITS_PER_LONG
src/lisp.h-#endif

この辺かなぁ。ということは OS 依存 ? これを long long にすると ..?

src/lisp.h-#ifndef VALBITS
src/lisp.h:#define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS)
src/lisp.h-#endif

これは ? やはり 64 bit OS が要るということでせうか。