Re: cl-pushnew and other functions

[Andreas Schwab]

"John Wiegley" <address@hidden> writes:

> Before:
>
>     (defun gnus-harvest-bbdb-complete-stub (stub)
>       (delete
>        nil
>        (mapcar
>         #'(lambda (record)
>             (let ((nets (bbdb-record-mail record)))
>               (and nets
>                    (format "%s <%s>" (bbdb-record-name record)
>                            (car nets)))))
>         (bbdb-search (bbdb-records) stub nil stub))))
>
> After:
>
>     (defun gnus-harvest-bbdb-complete-stub (stub)
>       (loop for record in (bbdb-search (bbdb-records) stub nil stub)
>             for nets = (bbdb-record-mail record)
>             when nets
>             collect (format "%s <%s>" (bbdb-record-name record) (car nets))))
>
> I breathed a sigh of relief there, just reading that again.

I find the latter rather un-lispy.

Andreas.

-- 
Andreas Schwab, address@hidden
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."