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:                           (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:   "Returns a SERVER object and the port that was bound, as multiple values."
    (unless (eql :tcp protocol)
      (error 'unsupported :feature `(:protocol ,protocol)))
    (let ((*ipv6* nil))
      (handler-bind ((error (lambda (c) (error 'socket-error :nested-error c))))
        (let* ((host (if (eql :any host) +ipv4-unspecified+ host))
               (socket (make-socket :address-family :internet
                                    :type :stream
                                    :connect :passive
                                    :local-host host
                                    :local-port port
                                    :reuse-address reuse-address
                                    :backlog backlog)))
          (values socket (local-port socket))))))
  
  (defun close-server (server)
    (close server))
  