diff options
Diffstat (limited to 'server/server.lisp')
| -rw-r--r-- | server/server.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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))) |