Index: /trunk/source/level-1/l1-sockets.lisp
===================================================================
--- /trunk/source/level-1/l1-sockets.lisp	(revision 13772)
+++ /trunk/source/level-1/l1-sockets.lisp	(revision 13773)
@@ -453,4 +453,5 @@
 (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,6 +950,5 @@
             #+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,6 +1010,5 @@
 				: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))