Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.1214
diff -u -r1.1214 ChangeLog
--- ChangeLog	11 Sep 2007 19:31:45 -0000	1.1214
+++ ChangeLog	12 Sep 2007 14:39:48 -0000
@@ -1,6 +1,14 @@
+2007-09-12  Christophe Rhodes  <csr21@cantab.net>
+
+	Make swank-loader.lisp COMPILE-FILEable
+
+	* swank-loader.lisp: use FIND-SYMBOL (i.e. runtime) rather than
+	read-time references to symbols in the SWANK and SWANK-BACKEND
+	packages.
+
 2007-09-11  Tobias C. Rittweiler  <tcr@freebits.de>
 
-	* swank-loader.lisp: Aways compile-file `contrib/swank-asdf.lisp'
+	* swank-loader.lisp: Always compile-file `contrib/swank-asdf.lisp'
 	on SBCL. This fixes "Undefined function" style-warnings when using
 	`slime-asdf' in combination with SBCL. Reported by Cyrus Harmon.
 
Index: swank-loader.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-loader.lisp,v
retrieving revision 1.72
diff -u -r1.72 swank-loader.lisp
--- swank-loader.lisp	11 Sep 2007 19:30:53 -0000	1.72
+++ swank-loader.lisp	12 Sep 2007 14:39:48 -0000
@@ -228,10 +228,17 @@
 
 (load-swank)
 
-(setq swank::*swank-wire-protocol-version* (slime-version-string))
-(setq swank::*load-path* 
-      (append swank::*load-path* (list (contrib-src-dir *source-directory*))))
-(swank-backend::warn-unimplemented-interfaces)
-(load-site-init-file *source-directory*)
-(load-user-init-file)
-(swank:run-after-init-hook)
+(labels ((swank-find-symbol (keyword &optional (package :swank))
+           (find-symbol (symbol-name keyword) package))
+         (swank-set (keyword value)
+           (set (swank-find-symbol keyword) value))
+         (swank-symbol-value (keyword)
+           (symbol-value (swank-find-symbol keyword))))
+  (swank-set :*swank-wire-protocol-version* (slime-version-string))
+  (swank-set :*load-path* 
+             (append (swank-symbol-value :*load-path*)
+                     (list (contrib-src-dir *source-directory*))))
+  (funcall (swank-find-symbol :warn-unimplemented-interfaces :swank-backend))
+  (load-site-init-file *source-directory*)
+  (load-user-init-file)
+  (funcall (swank-find-symbol :run-after-init-hook)))