[usocket-cvs] r710 - usocket/trunk

[ctian at common-lisp.net]

Author: ctian
Date: Wed Dec 26 19:13:03 2012
New Revision: 710

Log:
[ECL] fixed compiling in ECL, there's no sb-bsd-sockets:sockopt-broadcast in ECL!!!

Modified:
   usocket/trunk/option.lisp

Modified: usocket/trunk/option.lisp
==============================================================================
--- usocket/trunk/option.lisp	Wed Dec 26 07:47:31 2012	(r709)
+++ usocket/trunk/option.lisp	Wed Dec 26 19:13:03 2012	(r710)
@@ -166,11 +166,13 @@
     (int->bool (get-socket-option-broadcast socket))
     #+cmu
     () ; TODO
+    #+ecl
+    () ; TODO
     #+lispworks
     () ; TODO
     #+mcl
     () ; TODO
-    #+(or ecl sbcl)
+    #+sbcl
     (sb-bsd-sockets:sockopt-broadcast socket)
     #+scl
     ())) ; TODO
@@ -190,11 +192,13 @@
     (set-socket-option-broadcast socket (bool->int new-value))
     #+cmu
     () ; TODO
+    #+ecl
+    () ; TODO
     #+lispworks
     () ; TODO
     #+mcl
     () ; TODO
-    #+(or ecl sbcl)
+    #+sbcl
     (setf (sb-bsd-sockets:sockopt-broadcast socket) new-value)
     #+scl
     () ; TODO