(mapcar 'kill-process compilation-in-progress)
(compile (format "cd %s; make -k" (expand-file-name "lisp" dir)))
(vc-dir dir)
(mapcar 'kill-process compilation-in-progress)
(compile (format "cd %s; make -k" (expand-file-name "lisp" dir)))
(vc-dir dir)