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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(slime-input-stream-misc-ops): Renamed from slime-input-stream-misc.
Date: Sat Nov  1 10:43:05 2003
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.14 slime/swank-cmucl.lisp:1.15
--- slime/swank-cmucl.lisp:1.14	Fri Oct 31 11:56:52 2003
+++ slime/swank-cmucl.lisp	Sat Nov  1 10:43:05 2003
@@ -46,7 +46,7 @@
 (defstruct (slime-input-stream
 	     (:include sys:lisp-stream
 		       (lisp::in #'slime-input-stream-read-char)
-		       (lisp::misc #'slime-input-stream-misc)))
+		       (lisp::misc #'slime-input-stream-misc-ops)))
   (buffered-char nil :type (or null character)))
 
 (defun slime-input-stream-read-char (stream &optional eoferr eofval)
@@ -55,14 +55,17 @@
     (cond (c (setf (slime-input-stream-buffered-char stream) nil) c)
 	  (t (slime-read-char)))))
 
-(defun slime-input-stream-misc (stream operation &optional arg1 arg2)
+(defun slime-input-stream-misc-ops (stream operation &optional arg1 arg2)
   (declare (ignore arg2))
-  (case operation
+  (ecase operation
     (:unread 
      (assert (not (slime-input-stream-buffered-char stream)))
      (setf (slime-input-stream-buffered-char stream) arg1)
      nil)
-    (:listen t)))
+    (:listen nil)
+    (:clear-input (setf (slime-input-stream-buffered-char stream) nil))
+    (:file-position nil)
+    (:charpos nil)))
 
 (defun create-swank-server (port &key reuse-address (address "localhost"))
   "Create a SWANK TCP server."
@@ -584,7 +587,6 @@
 
 (defslimefun sldb-loop ()
   (unix:unix-sigsetmask 0)
-  (ignore-errors (force-output))
   (let* ((*sldb-level* (1+ *sldb-level*))
 	 (*sldb-stack-top* (or debug:*stack-top-hint* (di:top-frame)))
 	 (*sldb-restarts* (compute-restarts *swank-debugger-condition*))