anchor.diff:  
   (in-package :net.sockets)
   
  -(defun xnor (x1 x2)
  -  (eq (not x1) (not x2)))
  -
   ;;; FIXME: protocol is sort of misinterpreted.
   ;;;
   ;;; CREATE-SOCKET is a a bit of a confusing name as it is too similar
  
positive.code:            (when nodelay (set-socket-option socket :tcp-nodelay :value t))
             (when local-host
               (setf address (convert-or-lookup-inet-address local-host))
               (bind-address socket address :port (or local-port 0)
                             :reuse-address reuse-address))
             (when remote-host
               (setf address (convert-or-lookup-inet-address remote-host))
  
negative.code: (declaim (inline %make-internet-stream-socket))
  (defun %make-internet-stream-socket (args connect ef)
    (let (socket address)
      (destructuring-bind (&key local-host (local-port 0) remote-host (remote-port 0)
                                backlog reuse-address keepalive nodelay family)
          args
        (ecase connect
          (:active
           (%close-on-error (socket)
             (setf socket (create-socket :family family :type :stream
                                         :connect :active :external-format ef))
  