Changeset 4917

Timestamp:

Jul 28, 2006, 12:16:39 AM (18 years ago)

Author:

Gary Byers

Message:

Pass :CHARACTER-P T to MAKE-FD-STREAM.

File:

• trunk/ccl/level-1/l1-sockets.lisp (modified) (3 diffs)

trunk/ccl/level-1/l1-sockets.lisp

@@ -322 +322 @@
 (defmethod select-stream-class ((class tcp-stream) in-p out-p char-p)
   (declare (ignore char-p)) ; TODO: is there any real reason to care about this?
+  ;; Yes, in general.  There is.
   (assert (and in-p out-p) () "Non-bidirectional tcp stream?")
   'tcp-stream)
@@ -677 +678 @@
                     :direction :io
                     :element-type element-type
-                    :sharing sharing)))
+                    :sharing sharing
+                    :character-p t)))
 
 (defun make-file-socket-stream (fd &key format eol (class 'file-socket-stream)  sharing &allow-other-keys)
@@ -690 +692 @@
                     :direction :io
                     :element-type element-type
-                    :sharing sharing)))
+                    :sharing sharing
+                    :character-p t)))
 
 (defun make-tcp-listener-socket (fd &rest keys &key backlog &allow-other-keys)