From 0321395fdbe82b2c764dd550c6fdeed4a45b80bb Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Sun, 27 Dec 2020 01:36:37 +0900 Subject: [PATCH] ros serve swank --interface 0.0.0.0 should work. --- lisp/serve-swank.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/serve-swank.lisp b/lisp/serve-swank.lisp index d1b9200..0ebf1c9 100644 --- a/lisp/serve-swank.lisp +++ b/lisp/serve-swank.lisp @@ -5,9 +5,15 @@ (defun swank (&rest r) (ql:quickload :swank :silent t) - (let ((port 4005)) + (let ((port 4005) + (interface "localhost")) (loop for (var val) on (cdr r) by #'cddr do (cond ((equal var "--port") - (setf port (parse-integer val))))) - (roswell.util:read-call "swank:create-server" :port port :dont-close t)) + (setf port (parse-integer val))) + ((equal var "--interface") + (setf interface val)))) + (roswell.util:read-call "swank:create-server" + :interface interface + :port port + :dont-close t)) (loop (sleep 1)))