[xyzzy:08181] Re: xyzzy で画像表示

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

koji kimuraさん、こんにちは。

	2002年3月24日(日)[20:51:19]の、
	[xyzzy:08180] Re: xyzzy で画像表示
	への返事です。

| 一応うまくいきましたが，バイトコンパイルするとやはり 28 バイトに
| なります．

なりますね。じゃあ、こうかな。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defvar *c-structure-packing-align-stack* nil))

(defmacro push-c-structure-packing-align (n)
  `(eval-when (:compile-toplevel :load-toplevel :execute)
     (let ()
       (push c:*c-structure-packing-align*
	     *c-structure-packing-align-stack*)
       (setq c:*c-structure-packing-align* ,n))))

(defmacro pop-c-structure-packing-align ()
  `(eval-when (:compile-toplevel :load-toplevel :execute)
     (setq c:*c-structure-packing-align*
	   (or (pop *c-structure-packing-align-stack*) 8))))

(push-c-structure-packing-align 2)

(c:*define-c-struct PictureInfo
  ...)

(pop-c-structure-packing-align)

-- 
亀井哲弥(KAMEI Tetsuya)
kamei@xxxxxxxxxxxx