Commit 569d2163 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

name_version not name-version

Makes it easier to extract the version if the name has hyphens in it
already
parent 39fe1d4a
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -61,7 +61,7 @@ at your own peril.~%" suggested-registry suggested-registry system-name suggeste
		   (sb-unix:unix-getpid) (get-internal-run-time))))
	 (system (find-system system))
	 (sub-dir-name
	  (format nil "~A-~A"
	  (format nil "~A_~A"
		  (component-name system) (component-version system)))
	 (cvsroot-file
	  (merge-pathnames "CVS/Root" (component-pathname system)))