cffi-posix/cffi-socket

diff --git a/cffi-socket.lisp b/cffi-socket.lisp
index 108b432..a3edfbd 100644
--- a/cffi-socket.lisp
+++ b/cffi-socket.lisp
@@ -63,9 +63,12 @@
       (error-errno "bind"))
     r))
 
-(defcfun "htons" uint16-t
+(defcfun ("htons" c-htons) uint16-t
   (hostshort uint16-t))
 
+(defun htons (hostshort)
+  (c-htons hostshort))
+
 ;;  IP
 
 (defun inet-addr-from-string (x &key (start 0) (end (length x)))