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

[Helmut Eller]

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

Modified Files:
      Tag: package-split
	swank-loader.lisp 
Log Message:
Change load order. swank.lisp is now the last file.
Date: Tue Mar  9 04:00:23 2004
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.17 slime/swank-loader.lisp:1.17.2.1
--- slime/swank-loader.lisp:1.17	Wed Feb 18 02:31:59 2004
+++ slime/swank-loader.lisp	Tue Mar  9 04:00:23 2004
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-loader.lisp,v 1.17 2004/02/18 07:31:59 heller Exp $
+;;;   $Id: swank-loader.lisp,v 1.17.2.1 2004/03/09 09:00:23 heller Exp $
 ;;;
 
 (cl:defpackage :swank-loader
@@ -87,10 +87,11 @@
                     #+mswindows (make-pathname :name "_swank" :type "lsp"))))
 
 (compile-files-if-needed-serially
-  (list* (make-swank-pathname "swank-backend") *swank-pathname*
-         *sysdep-pathnames*))
+  (append (list (make-swank-pathname "swank-backend"))
+          *sysdep-pathnames* 
+          (list *swank-pathname*)))
 
-(funcall (intern (string :warn-unimplemented-interfaces) :swank))
+(funcall (intern (string :warn-unimplemented-interfaces) :swank-backend))
 
 (when (user-init-file)
   (load (user-init-file)))