[usocket-cvs] r408 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Jul 30 18:57:42 2008
New Revision: 408

Modified:
   usocket/trunk/backend/sbcl.lisp
Log:
Revert too much added in the last commit.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Wed Jul 30 18:57:42 2008
@@ -61,9 +61,6 @@
    "#define CONS(x, y) make_cons((x), (y))"
    "#define MAKE_INTEGER(x) make_integer((x))")
 
-  (defconstant sb-bsd-sockets::sockopt-tcp-nodelay (sockopt-tcp-nodelay))
-  (export sb-bsd-sockets::sockopt-tcp-nodelay)
-
   (defun fd-setsize ()
     (ffi:c-inline () () :fixnum
      "FD_SETSIZE" :one-liner t))