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

[Helmut Eller]

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

Modified Files:
	swank-loader.lisp 
Log Message:
(user-init-file): Simplify the code.
Date: Fri Dec 12 17:56:12 2003
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.9 slime/swank-loader.lisp:1.10
--- slime/swank-loader.lisp:1.9	Fri Dec 12 06:13:07 2003
+++ slime/swank-loader.lisp	Fri Dec 12 17:56:12 2003
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-loader.lisp,v 1.9 2003/12/12 11:13:07 heller Exp $
+;;;   $Id: swank-loader.lisp,v 1.10 2003/12/12 22:56:12 heller Exp $
 ;;;
 
 (defpackage :swank-loader
@@ -65,11 +65,9 @@
 (defun user-init-file ()
   "Return the name of the user init file or nil."
   (let ((home (user-homedir-pathname)))
-    (when (probe-file home)
-      (let ((filename (format nil "~A/.swank.lisp"
-                              (namestring (truename home)))))
-        (cond ((probe-file filename) filename)
-              (t nil))))))
+    (and (probe-file home)
+         (probe-file (format nil "~A/.swank.lisp"
+                             (namestring (truename home)))))))
 
 (compile-files-if-needed-serially
  (list* (make-swank-pathname "swank-backend") *swank-pathname*