Since the latest change in swank-loader.lisp
--- swank-loader.lisp 8 Sep 2009 05:59:20 -0000 1.92 +++ swank-loader.lisp 28 Oct 2009 20:28:03 -0000 1.93 @@ -226,7 +226,8 @@ (defun setup () (load-site-init-file *source-directory*) (load-user-init-file) - (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*"))) + (when (probe-file (contrib-dir *source-directory*)) + (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*")))) (funcall (q "swank::init")))
swank-loader:init no longer works in clisp (version 2.48 running on cygwin):
*** - PROBE-FILE: No file name given: #P"/usr/share/emacs/site-lisp/slime/contrib/" The following restarts are available: ABORT :R1 Abort main loop
because clisp does not allow probe-file to be applied to directories. A workaround could be to replace probe-file by clisp's probe-directory:
--- swank-loader.lisp.orig 2009-10-29 08:15:03.000000000 +0100 +++ swank-loader.lisp 2009-10-30 15:18:32.093225200 +0100 @@ -226,7 +226,7 @@ (defun setup () (load-site-init-file *source-directory*) (load-user-init-file) - (when (probe-file (contrib-dir *source-directory*)) + (when (#-clisp probe-file #+clisp ext:probe-directory (contrib-dir *source-directory*)) (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*"))))
-Dirk