Index: swank-loader.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-loader.lisp,v
retrieving revision 1.75
diff -u -r1.75 swank-loader.lisp
--- swank-loader.lisp	24 Nov 2007 08:18:59 -0000	1.75
+++ swank-loader.lisp	2 Feb 2008 20:12:37 -0000
@@ -18,6 +18,13 @@
 ;;   (defparameter swank-loader::*fasl-directory* "/tmp/fasl/")
 ;;   (load ".../swank-loader.lisp")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (when (find-package :swank)
+    (delete-package :swank)
+    (delete-package :swank-io-package)
+    (delete-package :swank-loader)
+    (delete-package :swank-backend)))
+
 (cl:defpackage :swank-loader
   (:use :cl)
   (:export :load-swank