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

[Stas Boukarev]

Dirk Sondermann <ds-slime at dyximaq.de> writes:

> 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*"))))
>
Thanks, committed.

-- 
With best regards, Stas.