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)))