[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv19508

Modified Files:
	swank.lisp 
Log Message:
(connection-info): New function.

(open-streams): Don't send the :check-protocol-version message.  Now
handled with CONNECTION-INFO.
Date: Wed Feb 25 15:49:37 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.125 slime/swank.lisp:1.126
--- slime/swank.lisp:1.125	Tue Feb 24 18:27:43 2004
+++ slime/swank.lisp	Wed Feb 25 15:49:37 2004
@@ -207,7 +207,6 @@
 (defun open-streams (socket-io)
   "Return the 4 streams for IO redirection:
  DEDICATED-OUTPUT INPUT OUTPUT IO"
-  (encode-message `(:check-protocol-version ,(changelog-date)) socket-io)
   (multiple-value-bind (output-fn dedicated-output) 
       (make-output-function socket-io)
     (let ((input-fn  (lambda () (read-user-input-from-emacs))))
@@ -624,6 +623,15 @@
 
 (defslimefun take-input (tag input)
   (throw tag input))
+
+(defslimefun connection-info ()
+  "Return a list of the form: 
+\(VERSION PID IMPLEMENTATION-TYPE IMPLEMENTATION-NAME FEATURES)."
+  (list (changelog-date)
+        (getpid)
+        (lisp-implementation-type)
+        (lisp-implementation-type-name)
+        (setq *slime-features* *features*)))
 
 
 ;;;; Reading and printing