[usocket-cvs] r467 - usocket/branches/experimental-udp

[Chun Tian (binghe)]

Author: ctian
Date: Tue Oct 28 07:00:59 2008
New Revision: 467

Log:
[udp] cancel unused ELEMENT-TYPE keyword in SOCKET-SERVER

Modified:
   usocket/branches/experimental-udp/server.lisp

Modified: usocket/branches/experimental-udp/server.lisp
==============================================================================
--- usocket/branches/experimental-udp/server.lisp	(original)
+++ usocket/branches/experimental-udp/server.lisp	Tue Oct 28 07:00:59 2008
@@ -7,7 +7,7 @@
 (defvar *remote-port*)
 
 (defun socket-server (host port function &optional arguments
-                      &key (element-type '(unsigned-byte 8)) (timeout 1)
+                      &key (timeout 1)
 		           (max-buffer-size +max-datagram-packet-size+))
   (let ((socket (socket-connect nil nil
 				:protocol :datagram