Code Reading: LOOP/loop-featurep
loop-featurep
概要
featureを調べるもの処理系依存を解消するためにloop-featurepとしてラッパーを定義している?下のコードはNILのものでLispMはstatusをつかっている。
- 引数
(progn (defmacro loop-featurep (f) `(featurep ',f target-features)) (defmacro loop-nofeaturep (f) `(nofeaturep ',f target-features)) (defmacro loop-set-feature (f) `(set-feature ',f target-features)) (defmacro loop-set-nofeature (f) `(set-nofeature ',f target-features)) )
調べるもの
参照元
コメント
2008年07月17日(木) 13:53:47 Modified by g000001