[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 メーリングリストの案内