release related script

byte_compile_dir.l

(require "glob")
(defvar basedir "your-path-to-your-release-dir")
(defun batch-compile(dirname)
  (byte-compile-dir (merge-pathnames "lisp" (merge-pathnames dirname basedir))))

(defun byte-compile-dir(dir)
  (interactive "DByte compile files under: ")
  (glob-exec (glob-expand dir)
       :recursive nil
       :file-only t :wild "*.l"
       :callback
       #'(lambda (f)
	   (let* ((file (merge-pathnames f dir))
		  (filec (concat file "c")))
	     (if (file-newer-than-file-p file filec)
		 (byte-compile-file file))))))

basedirはハードコードなので変更しないと使えない。