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

[Helmut Eller]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(emacs-connected): Add methods to stream-soft-force-output for
socket-streams and slime-output-streams.

Date: Fri Apr 30 02:32:24 2004
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.39 slime/swank-lispworks.lisp:1.40
--- slime/swank-lispworks.lisp:1.39	Sun Apr 25 02:37:05 2004
+++ slime/swank-lispworks.lisp	Fri Apr 30 02:32:24 2004
@@ -67,12 +67,16 @@
 (defimplementation emacs-connected ()
   (set-sigint-handler)
   (let ((lw:*handle-warn-on-redefinition* :warn))
+    (defmethod stream:stream-soft-force-output  ((o comm:socket-stream))
+      (force-output o))
+    (defmethod stream:stream-soft-force-output ((o slime-output-stream))
+      (force-output o))
     (defmethod env-internals:environment-display-notifier 
         (env &key restarts condition)
+      (declare (ignore restarts))
       (funcall (find-symbol (string :swank-debugger-hook) :swank)
                condition *debugger-hook*))))
 
-
 ;;; Unix signals
 
 (defun sigint-handler ()
@@ -96,6 +100,8 @@
 
 (defimplementation set-default-directory (directory)
   (namestring (hcl:change-directory directory)))
+
+;;;; Documentation
 
 (defimplementation arglist (symbol)
   (let ((arglist (lw:function-lambda-list symbol)))