[slime-devel] Problem with probe-file in clisp

[Dirk Sondermann]

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