
(setq files-to-compile (quote ("pcl-cvs" "pcl-cvs-lucid")))

(defun compile-file-if-necessary (file) "\
Compile FILE if necessary.

This is done if FILE.el is newer than FILE.elc or if FILE.elc doesn't exist." (byte-code "	ÃP	ÄPÅ
!?† Æ
\"…  ÇÈÉ\"!ˆÊ!*‡" [el-name file elc-name ".el" ".elc" file-exists-p file-newer-than-file-p message format "Byte-compiling %s..." byte-compile-file] 6))

(defun compile-pcl-cvs nil "\
Byte-compile all uncompiled files of pcl-cvs." (interactive) (byte-code "ÂˆÃÄ\"ÅÆK	\")‡" [load-path files-to-compile nil append (".") mapcar compile-file-if-necessary] 5))