[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11697

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
Emit a warning if the SWANK package already exists.

* swank-loader.lisp (init): Issue a warning when SWANK will not be
reloaded.


--- /project/slime/cvsroot/slime/ChangeLog	2008/02/17 12:28:27	1.1291
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/20 22:10:38	1.1292
@@ -1,3 +1,17 @@
+2008-02-20  Helmut Eller  <heller at common-lisp.net>
+
+	Emit a warning if the SWANK package already exists.
+
+	* swank-loader.lisp (init): Issue a warning when SWANK will not be
+	reloaded.
+
+2008-02-18  Helmut Eller  <heller at common-lisp.net>
+
+	Minor cleanups for inspector code.
+
+	* swank.lisp (inspector-content, inspect-list-aux): Slight
+	cleanups.
+
 2008-02-17  Marco Baringer  <mb at bese.it>
 
 	* swank.asd: Update for recent changes to swank-loader.lisp, we
--- /project/slime/cvsroot/slime/swank-loader.lisp	2008/02/17 08:20:34	1.80
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2008/02/20 22:10:38	1.81
@@ -1,4 +1,4 @@
-;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
+;;;; -*- indent-tabs-mode: nil -*-
 ;;;
 ;;; swank-loader.lisp --- Compile and load the Slime backend.
 ;;;
@@ -226,6 +226,8 @@
 (defun init (&key delete reload)
   (when (and delete (find-package :swank))
     (mapc #'delete-package '(:swank :swank-io-package :swank-backend)))
-  (when (or (not (find-package :swank)) reload)
-    (load-swank))
+  (cond ((or (not (find-package :swank)) reload)
+         (load-swank))
+        (t 
+         (warn "Not reloading SWANK.  Package already exists.")))
   (setup))