[usocket-cvs] r634 - usocket/branches/0.5.x/backend

[Chun Tian (binghe)]

Author: ctian
Date: Fri Apr  1 08:41:51 2011
New Revision: 634

Log:
[CCL] Clozure CL doesn't understand VALUES declaration ...

Modified:
   usocket/branches/0.5.x/backend/openmcl.lisp

Modified: usocket/branches/0.5.x/backend/openmcl.lisp
==============================================================================
--- usocket/branches/0.5.x/backend/openmcl.lisp	(original)
+++ usocket/branches/0.5.x/backend/openmcl.lisp	Fri Apr  1 08:41:51 2011
@@ -157,10 +157,6 @@
 	(ccl::send-for-usocket (socket usocket) buffer length))))
 
 (defmethod socket-receive ((usocket datagram-usocket) buffer length &key)
-  (declare (values (simple-array (unsigned-byte 8) (*)) ; buffer
-		   (integer 0)                          ; size
-		   (unsigned-byte 32)                   ; host
-		   (unsigned-byte 16)))                 ; port
   (with-mapped-conditions (usocket)
     (openmcl-socket:receive-from (socket usocket) length :buffer buffer)))