outputz.elでclマクロがrequireしないで使われている？

elisp

outputz.el読んでて気付いたので。

(unless (fboundp 'mailcap-parse-mailcaps)
  (block nil
    (dolist (path load-path)
      (when (or (file-exists-p (expand-file-name "mailcap.el" path))
                (file-exists-p (expand-file-name "mailcap.elc" path)))
        (load (expand-file-name "mailcap" path)))
      (when (fboundp 'mailcap-parse-mailcaps)
        (return)))))

の部分、blockとreturnはclパッケージで提供されるマクロだから (eval-when-compile (require 'cl)) したほうが良いのかも。
anything.elとか普段つかってるなら問題はでないだろうけど。
最近、OMakeでLaTeXコンパイルして身長が5cm伸びたid:hayamizさんのurlパッケージ使う最のmailcap問題を解決するハック部分だと思う。
ちょっと前からハマってたのが解決しました。ナイスハック。(incf hayamiz)



ちなみにloopマクロ使うとblock無しでも書ける。

(loop for path in load-path
      until (fboundp 'mailcap-parse-mailcaps)
      do (when (or (file-exists-p (expand-file-name "mailcap.el" path))
                   (file-exists-p (expand-file-name "mailcap.elc" path)))
           (load (expand-file-name "mailcap" path))))