[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-backend): This variable can now be set to an absolute filename.

Date: Tue Jun 15 17:13:42 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.313 slime/slime.el:1.314
--- slime/slime.el:1.313	Tue Jun 15 10:01:04 2004
+++ slime/slime.el	Tue Jun 15 17:13:42 2004
@@ -76,8 +76,10 @@
   "Number of times to try connecting to the Swank server before aborting.
 Nil means never give up.")
 
-(defvar slime-backend "swank-loader"
-  "The name of the Lisp file implementing the Swank server.")
+(defvar slime-backend "swank-loader.lisp"
+  "*The name of the Lisp file that loads the Swank server.
+This name is interpreted relative to the directory containing
+slime.el, but could also be set to an absolute filename.")
 
 (make-variable-buffer-local
  (defvar slime-buffer-package nil
@@ -1134,7 +1136,9 @@
     (comint-send-string (inferior-lisp-proc)
                         (format "(load %S)\n"
                                 (slime-to-lisp-filename
-                                 (concat slime-path slime-backend))))
+                                 (if (file-name-absolute-p slime-backend)
+                                     slime-backend
+                                   (concat slime-path slime-backend)))))
     (slime-maybe-start-multiprocessing)))
 
 (defun slime-maybe-start-multiprocessing ()