[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
* swank-loader.lisp (dump-image): Move this function to the end of
the file to stop SBCL from reporting two times the same false
alarm.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/15 22:59:10	1.1456
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/17 08:31:14	1.1457
@@ -1,3 +1,9 @@
+2008-08-15  B.Scott Michel <scooter.phd at gmail.com>
+
+       * swank-loader.lisp (dump-image): Move this function to the end of
+       the file to stop SBCL from reporting two times the same false
+       alarm.
+
 2008-08-15  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-popup-buffer-quit): Fix regression; we have to
--- /project/slime/cvsroot/slime/swank-loader.lisp	2008/08/12 17:54:44	1.87
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2008/08/17 08:31:17	1.88
@@ -226,10 +226,6 @@
   (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*")))
   (funcall (q "swank::init")))
 
-(defun dump-image (filename)
-  (init :setup nil)
-  (funcall (q "swank-backend:save-image") filename))
-
 (defun init (&key delete reload load-contribs (setup t))
   (when (and delete (find-package :swank))
     (mapc #'delete-package '(:swank :swank-io-package :swank-backend)))
@@ -241,3 +237,7 @@
     (compile-contribs :load t))
   (when setup
     (setup)))
+
+(defun dump-image (filename)
+  (init :setup nil)
+  (funcall (q "swank-backend:save-image") filename))