Changeset 13773

Timestamp:

Jun 1, 2010, 4:05:16 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Now that we have this Unicode thing, it doesn't really work for UDP
sockets to support any format other than :binary.

VERIFY-SOCKET-BUFFER: change misleading error message.

Specialize SOCKET-FORMAT for udp-sockets so that it always returns
:binary.

RECEIVE-FROM: :binary is the only acceptable socket-format.

File:

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

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

@@ -453 +453 @@
 (defmethod socket-type ((stream udp-socket)) :datagram)
 (defmethod socket-connect ((stream udp-socket)) nil)
+(defmethod socket-format ((stream udp-socket)) :binary)
 
 (defgeneric socket-os-fd (socket)
@@ -949 +950 @@
             #+x8664-target (and (>= subtype x8664::min-8-bit-ivector-subtag)
                                 (<= subtype x8664::max-8-bit-ivector-subtag))
-      (report-bad-arg buf `(or (array character)
-                               (array (unsigned-byte 8))
+      (report-bad-arg buf '(or (array (unsigned-byte 8))
                                (array (signed-byte 8))))))
   (values buf offset))
@@ -1010 +1010 @@
                                 :element-type
                                 (ecase (socket-format socket)
-                                  ((:text) 'base-char)
-                                  ((:binary :bivalent) '(unsigned-byte 8))))
+                                  ((:binary) '(unsigned-byte 8))))
                 vec-offset 0))
         (%copy-ptr-to-ivector bufptr 0 vec vec-offset ret-size))