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

[Douglas Crosher]

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

Modified Files:
	ChangeLog swank-scl.lisp 
Log Message:
* swank-scl.lisp (accept-connection): handle the :buffering argument.

Date: Sun Nov 13 23:31:46 2005
Author: dcrosher

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.810 slime/ChangeLog:1.811
--- slime/ChangeLog:1.810	Sun Nov 13 18:32:19 2005
+++ slime/ChangeLog	Sun Nov 13 23:31:43 2005
@@ -1,3 +1,7 @@
+2005-11-14  Douglas Crosher <dcrosher at common-lisp.net>
+
+	* swank-scl.lisp (accept-connection): handle the :buffering argument.
+
 2005-11-13  Andras Simon <andras at renyi.hu>
 
 	* swank-abcl.lisp: (accept-connection): New argument: buffering.


Index: slime/swank-scl.lisp
diff -u slime/swank-scl.lisp:1.2 slime/swank-scl.lisp:1.3
--- slime/swank-scl.lisp:1.2	Sat Nov 12 00:43:43 2005
+++ slime/swank-scl.lisp	Sun Nov 13 23:31:45 2005
@@ -52,11 +52,12 @@
 (defimplementation close-socket (socket)
   (ext:close-socket (socket-fd socket)))
 
-(defimplementation accept-connection (socket &key external-format buffering)
-  (declare (ignore buffering))
+(defimplementation accept-connection (socket &key 
+                                      (external-format :iso-latin-1-unix)
+                                      (buffering :full))
   (let ((external-format (or external-format :iso-latin-1-unix)))
     (make-socket-io-stream (ext:accept-tcp-connection socket)
-                           external-format)))
+                           external-format buffering)))
 
 ;;;;; Sockets
 
@@ -75,12 +76,14 @@
   (case coding-system
     (:iso-latin-1-unix :iso-8859-1)
     (:utf-8-unix :utf-8)
+    (:euc-jp-unix :euc-jp)
     (t coding-system)))
 
-(defun make-socket-io-stream (fd external-format)
+(defun make-socket-io-stream (fd external-format buffering)
   "Create a new input/output fd-stream for 'fd."
   (let ((external-format (find-external-format external-format)))
     (sys:make-fd-stream fd :input t :output t :element-type 'base-char
+                        :buffering buffering
                         :external-format external-format)))
 
 
@@ -1752,7 +1755,7 @@
                 (loop for value in parts  for i from 0 
                       append (label-value-line i value))))))
 
-(defmethod inspect-for-emacs :around ((o function) (inspector scl-inspector))
+(defmethod inspect-for-emacs ((o function) (inspector scl-inspector))
   (declare (ignore inspector))
   (let ((header (kernel:get-type o)))
     (cond ((= header vm:function-header-type)
@@ -1833,7 +1836,7 @@
            (:displaced-p (kernel:%array-displaced-p o))
            (:dimensions (array-dimensions o)))))
 
-(defmethod inspect-for-emacs ((o vector) (inspector scl-inspector))
+(defmethod inspect-for-emacs ((o simple-vector) (inspector scl-inspector))
   inspector
   (values (format nil "~A is a vector." o)
           (append