[Unetwork-cvs] CVS update: unetwork/src/base-sbcl.lisp

[Matthieu Villeneuve]

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."))