APEL version

[Yuuichi Teranishi]

At 09 Nov 1999 19:38:02 +0900,
Shuhei KOBAYASHI <shuhei ＠ aqua.ocn.ne.jp> wrote:
> 
> こんなものでいいんでしょうか?
> 
> (defun product>= (product require-version)
[...]

これとほぼ同じ関数をさっき書いて投稿したのですが、
sendmail の調子が悪くて(?) 出て行きませんでした:-(。

> ;; (product-find-by-feature 'poe) => ["APEL" (9 23) "Nippori"]
> ;; (product-require 'poe '(9 22)) => t
> ;; (product-require 'poe '(9 23)) => t
> ;; (product-require 'poe '(9 24)) => nil
> (defun product-require (feature version)
>   (when (require feature nil t)
>     (let ((product (product-find-by-feature feature)))
>       (when product
>         (product>= product version)))))
> 
> ただし, `require' は byte-compiler で特別扱いされているはずなので,
> `require' を `product-require' で代用するのでなく, (require FEATURE)
> した後で (product-require FEATURE VERSION) で判定する方が無難だと
> 思います.

いっそ、判定関数だけ提供することにして、名前も

(product-featurep FEATURE VERSION) 

とするのはどうでしょう。
--
Yuuichi Teranishi (寺西裕一) <teranisi ＠ gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"There's nothing you can do that can't be done..."