[Mew-dist 06058] Re: uniqfy
Hideki Sakurada ( 櫻田英樹 )
sakurada at example.com
1998年 8月 20日 (木) 22:49:09 JST
釈迦に説法かもしれませんが...
> 以下のようにすれば思ったようには動くのですが、もう少し簡単に
> ならないかな…これなら関数にした方がいいかも。
>
> (defmacro mew-uniq-list (lst)
> (` (let ((tmp (, lst)))
> (while tmp (rplacd tmp (delete (car tmp) (cdr tmp)))
> (setq tmp (cdr tmp)))
> (, lst))))
そもそもマクロにする理由がみあたらない気がします.
(mew-uniq-list (list 'a 'b 'c 'a 'b 'c))
のような使いかたもできなくなりますし, defun か
defsubst にするのはどうでしょうか.
# 個人的にはマクロの引数は1回だけ評価するものだと
# 思っています.
--
櫻田英樹 <sakurada at example.com>
Mew-dist メーリングリストの案内