> (load "/tmp/ecl/build/sockets.fas")
;;; Loading "/tmp/ecl/build/sockets.fas"
#P"/tmp/ecl/build/sockets.fas"

> (use-package :sb-bsd-sockets)
T

> (let ((protocol-name "totally-unknown-protocol"))
    (handler-case (get-protocol-by-name protocol-name)
      (unknown-protocol (c) (string= protocol-name (unknown-protocol-name c)))
      (:no-error (&rest args) (declare (ignore args)) nil)))
T