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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(setup-request-handler): Create a character stream.
(read-next-form): Removed.
Date: Wed Oct 22 17:06:04 2003
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.10 slime/swank-cmucl.lisp:1.11
--- slime/swank-cmucl.lisp:1.10	Mon Oct 20 11:09:10 2003
+++ slime/swank-cmucl.lisp	Wed Oct 22 17:06:01 2003
@@ -87,7 +87,7 @@
   "Setup request handling for SOCKET."
   (let* ((stream (sys:make-fd-stream socket
                                     :input t :output t
-                                    :element-type 'unsigned-byte))
+                                    :element-type 'base-char))
 	 (input (make-slime-input-stream))
 	 (output (make-slime-output-stream))
 	 (io (make-two-way-stream input output)))
@@ -109,17 +109,6 @@
 		  "~&;; Connection to Emacs lost.~%;; [~A]~%" condition))
 	(sys:invalidate-descriptor (sys:fd-stream-fd *emacs-io*))
  	(close *emacs-io*)))))
-
-(defun read-next-form ()
-  (handler-case 
-      (let* ((length (logior (ash (read-byte *emacs-io*) 16)
-			     (ash (read-byte *emacs-io*) 8)
-			     (read-byte *emacs-io*)))
-	     (string (make-string length)))
-	(sys:read-n-bytes *emacs-io* string 0 length)
-	(read-form string))
-    (condition (c)
-      (throw 'serve-request-catcher c))))
 
 ;;;