anchor.diff:  
   (in-package :common-lisp-user)
   
  -(defpackage net.trivial-sockets
  -  (:use :iolib.base)
  +(defpackage :net.trivial-sockets
  +  (:use :iolib.base :iolib.sockets)
     (:export #:open-stream #:socket-error #:socket-nested-error
              #:unsupported #:unsupported-feature
              #:open-server #:close-server #:accept-connection
  
positive.code: ;;;;
  
  (defun resolve-hostname (name)
    (let ((iolib.sockets:*ipv6* nil))
      (cond
        ((eql :any name) iolib.sockets:+ipv4-unspecified+)
        (t (nth-value 0 (iolib.sockets:ensure-hostname name))))))
  
  (defun open-stream (peer-host peer-port &key
                      (local-host :any) (local-port 0)
  
negative.code:   (declare (ignore element-type))
    (unless (eql :tcp protocol)
      (error 'unsupported :feature `(:protocol ,protocol)))
    (let ((*ipv6* nil))
      (handler-bind ((error (lambda (c) (error 'socket-error :nested-error c))))
        (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)
  