mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 10:31:34 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'cl-repl': add convenience function 'qml:my-ip'

Browse source
This commit is contained in:
pls.153 2022-12-21 12:58:04 +01:00
parent 253f2c79a6
commit 1870054f42
5 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/cl-repl/lisp/swank-quicklisp.lisp
View file

@ -56,8 +56,7 @@
(mp:process-run-function
"SLIME-listener"
(lambda () (swank/create-server interface port dont-close style))))
;; qrun*: only when running on main thread can we have return values from Qt
(x:when-it (qrun* (qt:local-ip qt:*cpp*))
(x:when-it (my-ip)
(format nil "slime-connect ~A" x:it)))
(defun stop-swank (&optional (port 4005))