siteinit.lのバイトコンパイル＋ダンプファイル削除

前使っていた奴
ファイル操作
http://www.uranus.dti.ne.jp/~shiro-/soft/xyzzy/file.html

新しく見つけた奴の方が良さそうだったのでそちらに変更

;;; siteinit.lのバイトコンパイルとダンプファイルの削除
(defun byte-compile-and-delete-dump-file ()
  (interactive)
  (and (find-buffer "siteinit.l")
       (eval-buffer "siteinit.l"))
  (byte-compile-file
   (merge-pathnames "site-lisp/siteinit.l" (si:system-root)))
  (let ((path (namestring (si:dump-image-path))))
    (and (file-exist-p path)
         (princ (concat "delete "
                        (if (path-equal (directory-namestring path) (si:system-root))
                            (file-namestring path)
                          path)
                        "..."))
         (delete-file path)))
  (princ "done.\n"))

xyzzy備忘録: xyzzyのLisp用例 -- らいおさむのお屋敷
http://www.osamurai.flnet.org/memo/xyzzy/tips#sec.1.11.2
ここの奴。

■追記
siteinit.l をコンパイルして、ダンプファイルを削除ミュージアム - himadatenodeの日記
http://d.hatena.ne.jp/himadatanode/20061023/p9
siteint.lをバイトコンパイルして、dumpファイルをけして更にxyzzyを再起動する話。 - himadatenodeの日記
http://d.hatena.ne.jp/himadatanode/20071110/p12