[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-loader.lisp test.sh 
Log Message:
* test.sh: Don't copy contribs. Slime should work without them.
* swank-loader.lisp (setup): Compile contribs only if directory
exists.

--- /project/slime/cvsroot/slime/ChangeLog	2009/10/28 10:15:20	1.1891
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/28 20:28:03	1.1892
@@ -1,5 +1,11 @@
 2009-10-28  Helmut Eller  <heller at common-lisp.net>
 
+	* test.sh: Don't copy contribs. Slime should work without them.
+	* swank-loader.lisp (setup): Compile contribs only if directory
+	exists.
+
+2009-10-28  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (slime-format-display-message, slime-display-message)
 	(slime-create-message-window): Deleted.  The trick with the
 	pre-command-hook doesn't work in XEmacs 21.5.  So use the standard
--- /project/slime/cvsroot/slime/swank-loader.lisp	2009/09/08 05:59:20	1.92
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2009/10/28 20:28:03	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")))
 
 (defun init (&key delete reload load-contribs (setup t))
--- /project/slime/cvsroot/slime/test.sh	2009/10/26 19:17:00	1.22
+++ /project/slime/cvsroot/slime/test.sh	2009/10/28 20:28:03	1.23
@@ -69,7 +69,8 @@
 
 mkdir $tmpdir
 if [ $use_temp_dir == true ] ; then 
-    cp -r $slimedir/*.{el,lisp} ChangeLog $slimedir/contrib $tmpdir
+    cp -r $slimedir/*.{el,lisp} ChangeLog $tmpdir 
+    # cp -r $slimedir/contrib $tmpdir 
 fi
 
 cmd=($emacs -nw -q -no-site-file $batch_mode --no-site-file