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

[Luke Gorrie]

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

Modified Files:
	swank-loader.lisp 
Log Message:

Date: Mon Jul 12 03:36:31 2004
Author: lgorrie

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.30 slime/swank-loader.lisp:1.31
--- slime/swank-loader.lisp:1.30	Wed Jul  7 05:11:24 2004
+++ slime/swank-loader.lisp	Mon Jul 12 03:36:31 2004
@@ -94,9 +94,8 @@
 
 (defun user-init-file ()
   "Return the name of the user init file or nil."
-  (probe-file
-   (merge-pathnames (user-homedir-pathname)
-                    (make-pathname :name ".swank" :type "lisp"))))
+  (probe-file (merge-pathnames (user-homedir-pathname)
+                               (make-pathname :name ".swank" :type "lisp"))))
 
        
 (compile-files-if-needed-serially