(run-shell-command"cd ~A && cvs tag -F cclan_version_~A"
(namestringdirectory)
(substitute#\_#\.version))))
(defunmake-tar-file(system)
(defunmake-tar-file(system)
"Make a tar file named SYSTEM-NAME_VERSION.tar containing all the files in SYSTEM. The file is created in the directory containing the system directory. Returns T on success"
"Make a tar file named SYSTEM-NAME_VERSION.tar containing all the files in SYSTEM. The file is created in the directory containing the system directory. Returns T on success"