anchor.diff:    (declare (ignore element-type))
     (unless (eql :tcp protocol)
       (error 'unsupported :feature `(:protocol ,protocol)))
  -  (let ((iolib.sockets:*ipv6* nil))
  +  (let ((*ipv6* nil))
       (handler-bind ((error (lambda (c) (error 'socket-error :nested-error c))))
  -      (iolib.sockets:make-socket :address-family :internet
  -                               :connect :active
  -                               :type :stream
  -                               :remote-host (resolve-hostname peer-host)
  -                               :remote-port peer-port
  -                               :local-host (resolve-hostname local-host)
  -                               :local-port local-port
  -                               :external-format external-format))))
  +      (make-socket :address-family :internet
  +                   :connect :active
  +                   :type :stream
  +                   :remote-host (resolve-hostname peer-host)
  +                   :remote-port peer-port
  +                   :local-host (resolve-hostname local-host)
  +                   :local-port local-port
  +                   :external-format external-format))))
   
   (defun open-server (&key (host :any) (port 0)
                       (reuse-address t)
  
positive.code:                           (external-format :default)
                            (element-type 'character))
    (declare (ignore element-type))       ; bivalent streams
    (let ((iolib.sockets:*ipv6* nil))
      (handler-bind ((error (lambda (c) (error 'socket-error :nested-error c))))
        (iolib.sockets:accept-connection socket :external-format external-format))))
  
  ;;;;
  
negative.code: ;;;;
  
  (defun resolve-hostname (name)
    (let ((*ipv6* nil))
      (cond
        ((eql :any name) +ipv4-unspecified+)
        (t (nth-value 0 (ensure-hostname name))))))
  
  (defun open-stream (peer-host peer-port &key
                      (local-host :any) (local-port 0)
  