[Mew-dist 119] Re: Mew-1.52 がコンパイルできない

[Shuhei KOBAYASHI]

  こばやし@JAIST です。

  lisper 見習いです(^^; さっきまで EoPL のゼミをやってました。

>>>>> In <199611221244.VAA00247 at example.com>,
>>>>> Mikio Nakajima <gy2m-nkjm at example.com> wrote:
> ご存じかとは思いますが、rassq の検索結果を直接参照して元の alist の
> 要素を消すのならば、delete でなくとも delq で OK です。eq で済む比
> 較であれば equal を使うよりも高速であるのは言うまでもありません。

  list を eq で比較するのは心理的に抵抗があるので、私はいつも equal を
使うようにしています。 それに auto-mode-alist の場合には以下のような問
題がありますので、ここはやはり delete だと思います。

    (let ((lst '(("foo" . foo) ("bar" . bar) ("foo" . foo))))
      (delq (rassq 'foo lst) lst))

     => (("bar" . bar) ("foo" . foo))

    (let ((lst '(("foo" . foo) ("bar" . bar) ("foo" . foo))))
      (delete (rassq 'foo lst) lst))

     => (("bar" . bar))

-- 
小林 修平 / Shuhei KOBAYASHI / <shuhei-k at example.com>