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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(emacs-connected): Updated for new interface.
Date: Tue Nov 16 00:07:37 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.107 slime/swank-sbcl.lisp:1.108
--- slime/swank-sbcl.lisp:1.107	Wed Oct 27 12:57:43 2004
+++ slime/swank-sbcl.lisp	Tue Nov 16 00:07:37 2004
@@ -131,8 +131,7 @@
             (return (sb-bsd-sockets:socket-accept socket))
           (sb-bsd-sockets:interrupted-error ()))))
 
-(defimplementation emacs-connected (stream)
-  (declare (ignore stream))
+(defimplementation emacs-connected ()
   (setq sb-ext:*invoke-debugger-hook* 
         (find-symbol (string :swank-debugger-hook) (find-package :swank))))