defsubst-maybe-cond & static-cond

[Mikio Nakajima]

At 09 Nov 1999 12:36:54 +0900,
Shuhei KOBAYASHI wrote:
 
> > (macroexpand
> >  '(defsubst-maybe-cond test ()
> >     ((string-match "XEmacs" emacs-version)
> >      (ignore) )
> >     (t (ignore)) ))
> > 
> > --->(or (fboundp (quote test))
> > 	(prog1
> > 	    (cond ((string-match "XEmacs" emacs-version)
> > 		   (defsubst test nil (ignore)))
> > 		  (t (defsubst test nil (ignore))))
> > 	  (setq current-load-list (cons (quote test) current-load-list))
> > 	  (put (quote test) (quote defsubst-maybe) t))
> > 	)
> > 
> > この cond 式のところを static-cond になるようにすれば上記のコンパイラー
> > の警告は見事回避でき、とりあえず手元ではちゃんと動いているように、見え
> > ているのですが、何か副作用がありますでしょうか？
> 
> ここは load 時に既に定義が存在しているかどうかを確認している部分なので,
> compile 時の判定に変更する事はできません.

  ---> を付けたのがややこしかったのかもしれませんが、「ここ」というの
はもしや 

  (or (fboundp (quote test))

を指していたりしませんか？

-- 
中島幹夫 <minakaji ＠ osaka.email.ne.jp>
　　　　 <minakaji ＠ pdx.ne.jp> (急ぎのときはこちらへ)
http://www.asahi-net.or.jp/~gy2m-nkjm/