anchor.diff:  ;;;    released into the public domain in jurisdictions where this is
   ;;;    possible, or under the FreeBSD licence where not.
   
  -(in-package #:cl-user)
  -
  -(defpackage #:bsd-sockets-tests
  +(in-package #:common-lisp-user)
  +
  +(defpackage #:net.sockets-tests
     (:nicknames #:sockets-tests)
  -  (:use #:common-lisp #:rtest #:bsd-sockets))
  -
  -(in-package #:bsd-sockets-tests)
  +  (:use #:common-lisp #:rtest :net.sockets))
  +
  +(in-package #:net.sockets-tests)
   
   ;;; Returns T if one of the expected conditions occured, otherwise returns
   ;;; a list of the form (:RESULT return-value-1 return-value-2) with
  
positive.code: ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Indent-tabs-mode: NIL -*-
  ;;;
  ;;; tests.lisp --- bsd-sockets test suite.
  ;;;
  ;;; Copyright (C) 2007, Luis Oliveira  <loliveira@common-lisp.net>
  ;;;
  
negative.code:                   :type nil
                    :defaults
                    (asdf:system-definition-pathname
                     (asdf:find-system '#:net.sockets-tests))))))
        (ignore-errors (delete-file file))
        (with-socket (p :family :local :connect :passive :local-filename file)
          (with-socket (a :family :local :remote-filename file)
  