mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-04-27 15:21:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

revision

Browse source
This commit is contained in:
pls.153 2022-03-06 00:15:58 +01:00
parent 0656aa94e7
commit 5336aab09a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
examples/swank-server/lisp/qml-reload/auto-reload-mobile.lisp
View file

@ -3,12 +3,12 @@
(in-package :qml)
#+(or android ios)
(defvar *remote-ip* #+(and (not interpreter (or ios android)))
(defvar *remote-ip* #-interpreter
(format nil "http://~A:8080/"
#.(progn
(format *query-io* "~%Please enter WiFi IP of desktop computer: " *query-io*)
(read-line *query-io*)))
#-(or ios android) "http://localhost:8080/")
(terpri *query-io*)
(princ "Please enter WiFi IP of desktop computer: " *query-io*)
(read-line *query-io*))))
#+(or android ios)
(defun qml:view-status-changed (status)