% Function GET-PROPERTIES
Function GET-PROPERTIES
get-properties plist indicator-list => indicator, value, tail
plist - プロパティリスト
indicator-list - 通常のリスト（indicatorのリスト）
indicator - オブジェクト、indicator-listの要素
value - オブジェクト
tail - リスト
get-propertiesは、複数のプロパティリストのエントリーを
一度にすべて探すために使われます。
それは、plistからindicator-list内のオブジェクトのひとつと
同一なindicatorをもつ、最初のエントリーを探します。
もし、そのようなエントリーが見つかったら、
返却値のindicatorとvalueは、
それぞれプロパティの値に関連づいたプロパティのindicatorであり、
返却値tailは、エントリーが見つかった
最初のplistの末尾（そのcarはindicator）です。
もし、そのようなエントリーが見つからなかったら、
indicator, value, tailはすべてnilです。
(setq x '()) => NIL
(setq *indicator-list* '(prop1 prop2)) => (PROP1 PROP2)
(getf x 'prop1) => NIL
(setf (getf x 'prop1) 'val1) => VAL1
(eq (getf x 'prop1) 'val1) => true
(get-properties x *indicator-list*) => PROP1, VAL1, (PROP1 VAL1)
x => (PROP1 VAL1)
なし。
なし。
なし。
なし。