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

[Helmut Eller]

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

Modified Files:
	swank-loader.lisp 
Log Message:
Add files for CLISP.
Date: Fri Jan  2 03:16:46 2004
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.10 slime/swank-loader.lisp:1.11
--- slime/swank-loader.lisp:1.10	Fri Dec 12 17:56:12 2003
+++ slime/swank-loader.lisp	Fri Jan  2 03:16:46 2004
@@ -7,10 +7,10 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-loader.lisp,v 1.10 2003/12/12 22:56:12 heller Exp $
+;;;   $Id: swank-loader.lisp,v 1.11 2004/01/02 08:16:46 heller Exp $
 ;;;
 
-(defpackage :swank-loader
+(cl:defpackage :swank-loader
   (:use :common-lisp))
 
 (in-package :swank-loader)
@@ -32,6 +32,7 @@
           #+openmcl '("swank-openmcl" "swank-gray")
           #+lispworks '("swank-lispworks" "swank-gray")
           #+allegro '("swank-allegro" "swank-gray")
+          #+clisp '("xref" "swank-clisp" "swank-gray")
           ))
 
 (defparameter *swank-pathname* (make-swank-pathname "swank"))
@@ -66,7 +67,9 @@
   "Return the name of the user init file or nil."
   (let ((home (user-homedir-pathname)))
     (and (probe-file home)
-         (probe-file (format nil "~A/.swank.lisp"
+         (probe-file (format nil 
+                             #-mswindows "~A/.swank.lisp"
+                             #+mswindows "~A\\_swank.lsp"
                              (namestring (truename home)))))))
 
 (compile-files-if-needed-serially