From 9371746887da325a902e9995755667054dfd31d1 Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Sat, 11 May 2019 08:31:03 +0200 Subject: Improve error handlling --- server/server.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'server/server.lisp') diff --git a/server/server.lisp b/server/server.lisp index b16bd2d..bf778b1 100644 --- a/server/server.lisp +++ b/server/server.lisp @@ -20,9 +20,9 @@ ;;; The server :D -(defun start (port) - (format t "Server start !~%") - (let ((socket (usocket:socket-listen "127.0.0.1" port))) +(defun start (interface port) + (format t "Server started!~%") + (let ((socket (usocket:socket-listen interface port))) (unwind-protect ; To be sure to close server socket (loop (handle-client (usocket:socket-accept socket :element-type 'character))) -- cgit v1.2.3