[Mew-dist 06062] Re: uniqfy

[Murata Takashi]

From: Hideki Sakurada (櫻田英樹) <sakurada at example.com>
Subject: [Mew-dist 06058] Re: uniqfy
Date: Thu, 20 Aug 1998 22:49:09 +0900

> そもそもマクロにする理由がみあたらない気がします.

  たしかにその通りです。最初に気が付くべきでした。

  もうしつこいかも知れないですが… rplacd(setcdr) は cdr を返すのを
思い出しました。書き直しておきます。

(defun mew-uniq-list (lst)
  (progn
    (let ((tmp lst))
      (while tmp (setq tmp (setcdr tmp (delete (car tmp) (cdr tmp))))))
    lst))

┌───────────── 村田 隆 / Takashi.Murata at example.com ┐
└ 日本システム技術(株) 技術部  Tel:03-3503-8736  Fax:03-3580-7806 ┘