9 (let* ((dir (expand-file-name default-directory))
10 (load-path (cons dir load-path))
12 (message "deleting old .elc files...")
13 (dolist (elt bcomp-files)
14 (setq file (concat dir elt "c"))
15 (if (file-exists-p file)
18 (message "compiling...")
19 (dolist (elt bcomp-files)
20 (setq file (concat dir elt))
21 (byte-compile-file file t))