[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-disconnect): Don't reference connection.  Left
over from last change.
([test] arglist): Update expected results for slightly changed
printer settings.
([test] indentation): Install common-lisp-indent-function.

* 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 20:28:03	1.1892
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/28 20:28:14	1.1893
@@ -1,5 +1,11 @@
 2009-10-28  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-disconnect): Don't reference connection.  Left
+	over from last change.
+	([test] arglist): Update expected results for slightly changed
+	printer settings.
+	([test] indentation): Install common-lisp-indent-function.
+
 	* 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/slime.el	2009/10/28 10:15:20	1.1238
+++ /project/slime/cvsroot/slime/slime.el	2009/10/28 20:28:14	1.1239
@@ -2076,7 +2076,7 @@
 (defun slime-disconnect ()
   "Close the current connection."
   (interactive)
-  (slime-net-close (or connection (slime-connection))))
+  (slime-net-close (slime-connection)))
 
 (defun slime-disconnect-all ()
   "Disconnect all connections."
@@ -7710,12 +7710,12 @@
 Confirm that EXPECTED-ARGLIST is displayed."
     '(("swank::operator-arglist" "(swank::operator-arglist name package)")
       ("swank::create-socket" "(swank::create-socket host port)")
-      ("swank::emacs-connected" "(swank::emacs-connected )")
+      ("swank::emacs-connected" "(swank::emacs-connected)")
       ("swank::compile-string-for-emacs"
        "(swank::compile-string-for-emacs string buffer position filename policy)")
       ("swank::connection.socket-io"
        "(swank::connection.socket-io \\(struct\\(ure\\)?\\|object\\|instance\\|x\\))")
-      ("cl:lisp-implementation-type" "(cl:lisp-implementation-type )")
+      ("cl:lisp-implementation-type" "(cl:lisp-implementation-type)")
       ("cl:class-name" 
        "(cl:class-name \\(class\\|object\\|instance\\|structure\\))"))
   (let ((arglist (slime-eval `(swank:operator-arglist ,function-name 
@@ -8031,7 +8031,7 @@
        ("23" "42")))
   (with-temp-buffer
     (lisp-mode)
-    (slime-mode 1)
+    (slime-lisp-mode-hook)
     (insert buffer-content)
     (slime-compile-region (point-min) (point-max))
     (slime-sync-to-top-level 3)