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))