mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-06 02:40:26 -08:00
bb40da9fa6
The function SB-BSD-SOCKETS:GET-PROTOCOL-BY-NAME did not signal an error when it was unable to find a protocol. This is fixed now and an error of type UNKNOWN-PROTOCOL, with an accessor named UNKNOWN-PROTOCOL-NAME, is being signaled. These two names are also exported from the package SB-BSD-SOCKETS. A test case is added. Several other test cases are fixed with regard to :NO-ERROR clauses inside HANDLER-CASEs.
25 lines
1.1 KiB
Common Lisp
25 lines
1.1 KiB
Common Lisp
;; -*- Mode: Lisp; Syntax: Common-Lisp -*-
|
|
;; $Id$
|
|
|
|
;; This file is based on SBCL's SB-BSD-SOCKET module and has been
|
|
;; heavily modified to work with ECL by Julian Stecklina.
|
|
;; Port to Windows Sockets contributed by M. Goffioul.
|
|
|
|
;; You may do whatever you want with this file. (PUBLIC DOMAIN)
|
|
|
|
;; Trivial stuff is copied from SBCL's SB-BSD-SOCKETS, which is also
|
|
;; in the public domain.
|
|
|
|
(defpackage "SB-BSD-SOCKETS"
|
|
(:use "CL" "FFI" "SI")
|
|
(:export "GET-HOST-BY-NAME" "GET-HOST-BY-ADDRESS"
|
|
"SOCKET-BIND" "SOCKET-ACCEPT" "SOCKET-CONNECT"
|
|
"SOCKET-PEERNAME" "SOCKET-NAME" "SOCKET-LISTEN"
|
|
"SOCKET-RECEIVE" "SOCKET-CLOSE" "SOCKET-MAKE-STREAM"
|
|
"GET-PROTOCOL-BY-NAME" "MAKE-INET-ADDRESS" "LOCAL-SOCKET"
|
|
"UNKNOWN-PROTOCOL" "UNKNOWN-PROTOCOL-NAME"
|
|
"SOCKET" "INET-SOCKET" "SOCKET-FILE-DESCRIPTOR" #+:win32 "NAMED-PIPE-SOCKET"
|
|
"SOCKET-FAMILY" "SOCKET-PROTOCOL" "SOCKET-TYPE"
|
|
"SOCKET-ERROR" "NAME-SERVICE-ERROR" "NON-BLOCKING-MODE"
|
|
"HOST-ENT-NAME" "HOST-ENT-ALIASES" "HOST-ENT-ADDRESS-TYPE"
|
|
"HOST-ENT-ADDRESSES" "HOST-ENT" "HOST-ENT-ADDRESS" "SOCKET-SEND"))
|