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

[Helmut Eller]

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

Modified Files:
	swank-loader.lisp 
Log Message:
(user-init-file): Translate logical (user-homedir-) pathnames.
Reported by Friedrich Dominicus.
Date: Sat Dec  6 08:08:52 2003
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.6 slime/swank-loader.lisp:1.7
--- slime/swank-loader.lisp:1.6	Wed Nov 26 19:38:08 2003
+++ slime/swank-loader.lisp	Sat Dec  6 08:08:52 2003
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-loader.lisp,v 1.6 2003/11/27 00:38:08 heller Exp $
+;;;   $Id: swank-loader.lisp,v 1.7 2003/12/06 13:08:52 heller Exp $
 ;;;
 
 (defpackage :swank-loader
@@ -31,6 +31,7 @@
           #+sbcl '("swank-sbcl" "swank-gray")
           #+openmcl '("swank-openmcl" "swank-gray")
           #+lispworks '("swank-lispworks" "swank-gray")
+          #+allegro '("swank-allegro" "swank-gray")
           ))
 
 (defparameter *swank-pathname* (make-swank-pathname "swank"))
@@ -64,7 +65,8 @@
 (defun user-init-file ()
   "Return the name of the user init file or nil."
   (let ((filename (format nil "~A/.swank.lisp"
-                          (namestring (user-homedir-pathname)))))
+                          (namestring (translate-logical-pathname
+                                       (user-homedir-pathname))))))
     (cond ((probe-file filename) filename)
           (t nil))))