[slime-devel] patch to swank-loader.lisp

[B.Scott Michel]

Please find attached that correct's a sbcl style warning (init is referenced
before it is defined). I'm currently hacking on the cusp environment for Eclipse
and attempting to keep sbcl's style warnings and n00bie questions to a minimum.

V/R and R/
Scott Michel



Index: swank-loader.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-loader.lisp,v
retrieving revision 1.87
diff -u -r1.87 swank-loader.lisp
--- swank-loader.lisp	12 Aug 2008 17:54:44 -0000	1.87
+++ swank-loader.lisp	14 Aug 2008 02:50:04 -0000
@@ -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))