diff options
| author | Loic Guegan <manzerberdes@gmx.com> | 2019-05-11 08:31:03 +0200 |
|---|---|---|
| committer | Loic Guegan <manzerberdes@gmx.com> | 2019-05-11 08:31:03 +0200 |
| commit | 9371746887da325a902e9995755667054dfd31d1 (patch) | |
| tree | 35ac216a0322005624e02c6dd4b0635ef5213800 /server/server.lisp | |
| parent | b07c813b7751574c2709401ebf29eda9f564fe76 (diff) | |
Improve error handlling
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))) |