From d2b94764f50f8054b1c18033b04cd9f3656996ae Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 20 Jan 2007 12:41:08 +0100 Subject: [PATCH] Small change. --- sockets/resolv.lisp | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/sockets/resolv.lisp b/sockets/resolv.lisp index c2a578a..6b9518c 100644 --- a/sockets/resolv.lisp +++ b/sockets/resolv.lisp @@ -361,13 +361,16 @@ :want-host nil :want-service t))))) (make-service service port-number protocol)))) +(defun protocol-type-from-int (protocol) + (case protocol + (:tcp et:sock-stream) + (:udp et:sock-dgram) + (:any 0))) + (defun lookup-service-name (port protocol) (let* ((addrinfo (get-address-info :service port - :hint-type (case protocol - (:tcp et:sock-stream) - (:udp et:sock-dgram) - (:any 0)))) + :hint-type (protocol-type-from-int protocol))) (port-number (ntohs (foreign-slot-value (foreign-slot-value addrinfo 'et:addrinfo 'et:addr) 'et:sockaddr-in 'et:port))) @@ -378,9 +381,7 @@ (make-service port port-number true-protocol)))) (defun lookup-service (port &key (protocol :tcp) (name-required nil)) - (case protocol - ((:tcp :udp :any) t) - (t (setf protocol :any))) + (check-type protocol (member :tcp :udp :any)) (let ((parsed-number (parse-number-or-nil port :ub16))) (handler-case -- 2.11.4.GIT