common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

ros serve swank --interface 0.0.0.0 should work.

Browse source
This commit is contained in:
SANO Masatoshi 2020-12-27 01:36:37 +09:00
parent 7e507ce12c
commit 0321395fdb
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/serve-swank.lisp
View file

@ -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)))