>>643
は書けた。
>>646
は、いまいち問題設定がよくわからないんだけど、
(pattern-extractor '(2 3 4) '(1 2 3))
=> ((a b c) (a b c))
ってならないのはなんで？ この場合だけ特別扱いするのが面倒。