diff --git a/code/internet.lisp b/code/internet.lisp index 383401c66ac5bf925efc7a398c18cd32a2c7a297..8fb581800df71a45db04effe14a4016080b553e8 100644 --- a/code/internet.lisp +++ b/code/internet.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.4 1991/02/08 13:33:30 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.5 1991/05/22 15:35:49 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -82,6 +82,7 @@ addr-list) (defun host-entry-addr (host) + (declare (type host-entry host)) (car (host-entry-addr-list host))) @@ -186,7 +187,8 @@ (defun connect-to-inet-socket (host port &optional (kind :stream)) (let ((socket (create-inet-socket kind)) - (hostent (lookup-host-entry host))) + (hostent (or (lookup-host-entry host) + (error "Unknown host: ~S." host)))) (with-stack-alien (sockaddr inet-sockaddr (c-sizeof 'inet-sockaddr)) (setf (alien-access (inet-sockaddr-family (alien-value sockaddr))) af-inet)