anchor.diff:  ;;;; sys/socket.h
   
   (define-socket-call ("accept" %accept) :int
  -  "Accept an incoming connection, returning the file descriptor."
     (socket  fd)
     (address :pointer) ; sockaddr-foo
     (addrlen :pointer))
   
   (define-socket-call ("bind" %bind) :int
  -  "Bind a socket to a particular local address."
     (socket  fd)
     (address :pointer)
     (addrlen socklen))
   
   (define-socket-call ("connect" %connect) :int
  -  "Create an outgoing connection on a given socket."
     (socket  fd)
     (address :pointer) ; sockaddr-foo
     (addrlen socklen))
  
positive.code:   (flags   :int))
  
  (define-socket-call ("setsockopt" %setsockopt) :int
    "Configure a socket."
    (socket  fd)
    (level   :int)
    (optname :int)
  
negative.code:   (optlen  :pointer))
  
  (define-socket-call ("listen" %listen) :int
    (socket  fd)
    (backlog :int))
  
  