[slime-cvs] CVS update: slime/swank-loader.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv917

Modified Files:
	swank-loader.lisp 
Log Message:
(*lisp-name*): Replace / with - in CMUCL version strings.
Date: Thu Sep  2 07:58:44 2004
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.31 slime/swank-loader.lisp:1.32
--- slime/swank-loader.lisp:1.31	Mon Jul 12 12:36:31 2004
+++ slime/swank-loader.lisp	Thu Sep  2 07:58:44 2004
@@ -41,7 +41,8 @@
            )))
 
 (defparameter *lisp-name*
-  #+cmu       (format nil "cmu-~A" (lisp-implementation-version))
+  #+cmu       (format nil "cmu-~A" 
+                      (substitute #\- #\/ (lisp-implementation-version)))
   #+sbcl      (format nil "sbcl-~A" (lisp-implementation-version))
   #+openmcl   "openmcl"
   #+lispworks (format nil "lispworks-~A" (lisp-implementation-version))
@@ -61,8 +62,7 @@
   "Return the pathname where SOURCE-PATHNAME's binary should be compiled."
   (let ((cfp (compile-file-pathname source-pathname)))
     (merge-pathnames (make-pathname
-                      :directory `(:relative
-                                   ".slime" "fasl" ,*lisp-name*)
+                      :directory `(:relative ".slime" "fasl" ,*lisp-name*)
                       :name (pathname-name cfp)
                       :type (pathname-type cfp))
                      (user-homedir-pathname))))