Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv22562 Modified Files: base-sbcl.lisp Log Message: Wrong address format Date: Fri Mar 12 12:09:34 2004 Author: mvilleneuve Index: unetwork/src/base-sbcl.lisp diff -u unetwork/src/base-sbcl.lisp:1.1 unetwork/src/base-sbcl.lisp:1.2 --- unetwork/src/base-sbcl.lisp:1.1 Fri Mar 12 09:46:38 2004 +++ unetwork/src/base-sbcl.lisp Fri Mar 12 12:09:34 2004 @@ -17,7 +17,7 @@ (let ((host (sb-bsd-sockets:get-host-by-name hostname))) (when (null host) (error 'unknown-host-error :host hostname)) - (first (sb-bsd-sockets:host-ent-address host)))) + (sb-bsd-sockets:host-ent-address host))) (defclass socket () ((sock :initarg :sock :reader socket-sock) @@ -45,13 +45,13 @@ (defun server-socket-open (port) "Open a server socket on localhost on specified port." - (error "Not implemented yet.") + (error "Not implemented yet.")) (defun server-socket-accept (server-socket &key timeout) "Accept a connection on a server socket. Return the resulting socket." - (error "Not implemented yet.") + (error "Not implemented yet.")) (defun server-socket-close (server-socket) "Close a server socket." - (error "Not implemented yet.") + (error "Not implemented yet."))