emacsでネットワークインターフェイスにアドレスが付いているときだけ実行するようなelisp (改)

emacsでネットワークインターフェイスにアドレスが付いているときだけ実行するようなelispでゴニョゴニョしたelispだけど、ちょっとダサいので、dolistを使って書きなおしてみた。で、書きなおした結果がこう。

(setq network-interface-names '("en0" "en1")) ; ネットワークインターフェイスの名前のリスト
(dolist (currnet-network-interface-name network-interface-names)
(if (car (network-interface-info currnet-network-interface-name))
(progn
;; ネットワークアドレスが付いているネットワークインターフェイスを検出したら実行する処理を書く
(return t))))

全部の処理が終わったら(return t)でdolistを抜けます。

あー、スッキリした。