[slime-cvs] CVS update: slime/swank-loader.lisp
Helmut Eller
heller at common-lisp.net
Sat Dec 6 13:08:52 UTC 2003
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))))
More information about the slime-cvs
mailing list