[Mew-dist 15735] Re: profile

[Tak Ota]

Addrbook の

*		Kirk_Imamura at example.com "Kirk"

というエントリ行で a の中身が

(nil ("Kirk_Imamura at example.com") "Kirk" nil)

となって (intern (car a) vec) のところで

(wrong-type-argument stringp nil)

と言われてしまいました。

>   (defun mew-uniq-alist (alst)
> !   (let ((vec (make-vector 511 0))
> ! 	a ret)
> !     (while alst
> !       (setq a (car alst))
> !       (setq alst (cdr alst))
> !       (if (intern-soft (car a) vec)
> ! 	  ()
> ! 	(setq ret (cons a ret))
> ! 	(intern (car a) vec)))
> !     (nreverse ret)))