[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv7989

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
* swank-loader.lisp (setup): Use EXT:PROBE-DIRECTORY on Clisp,
because PROBE-FILE doesn't want to work on directories.
Patch by Dirk Sondermann.


--- /project/slime/cvsroot/slime/ChangeLog	2009/10/30 10:57:55	1.1897
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/30 19:39:34	1.1898
@@ -1,3 +1,9 @@
+2009-10-30  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-loader.lisp (setup): Use EXT:PROBE-DIRECTORY on Clisp,
+	because PROBE-FILE doesn't want to work on directories.
+	Patch by Dirk Sondermann.
+
 2009-10-30  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-openmcl.lisp: Removed. 1.4 is out so no longer needed.
--- /project/slime/cvsroot/slime/swank-loader.lisp	2009/10/28 20:28:03	1.93
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2009/10/30 19:39:34	1.94
@@ -226,7 +226,9 @@
 (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*"))))
   (funcall (q "swank::init")))