[usocket-cvs] r642 - usocket/trunk

[Chun Tian (binghe)]

Author: ctian
Date: Fri Apr 15 14:05:55 2011
New Revision: 642

Log:
Fixed compilation warnings in SOCKET-OPTION, patched by Robert Brown

Modified:
   usocket/trunk/option.lisp

Modified: usocket/trunk/option.lisp
==============================================================================
--- usocket/trunk/option.lisp	(original)
+++ usocket/trunk/option.lisp	Fri Apr 15 14:05:55 2011
@@ -41,7 +41,9 @@
 
 (defmethod socket-option ((usocket stream-usocket)
                           (option (eql :receive-timeout)) &key)
+  (declare (ignore option))
   (let ((socket (socket usocket)))
+    (declare (ignorable socket))
     #+abcl
     () ; TODO
     #+allegro
@@ -65,9 +67,11 @@
 
 (defmethod (setf socket-option) (new-value (usocket stream-usocket)
                                            (option (eql :receive-timeout)) &key)
-  (declare (type number new-value))
+  (declare (type number new-value)
+	   (ignore option))
   (let ((socket (socket usocket))
         (timeout new-value))
+    (declare (ignorable socket timeout))
     #+abcl
     () ; TODO
     #+allegro