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

important: fix ASDF cross-compiling to work properly (should now work with any library)

Browse source
This commit is contained in:
pls.153 2022-03-14 21:54:00 +01:00
parent 14b5eff7ea
commit 97606681db
14 changed files with 125 additions and 157 deletions
Download patch file Download diff file Expand all files Collapse all files

15
examples/advanced-qml-auto-reload/lisp/qml-reload/auto-reload-mobile.lisp
View file

@ -21,9 +21,7 @@
#+(or android ios)
(defun load* (file)
(load (make-string-input-stream
(funcall (%sym 'curl :qml)
(x:cc *remote-ip* file)))))
(load (make-string-input-stream (curl (x:cc *remote-ip* file)))))
(export 'load*)
@ -46,18 +44,11 @@
(setf *reload-all* nil))))
#+(or android ios)
(let ((load t)
(secs 0)
(let ((secs 0)
(ini t))
(defun auto-reload-qml ()
(when load
(setf load nil)
(require :ecl-curl)
(load "curl"))
(let ((curr/file (ignore-errors
(x:split (funcall (%sym 'curl :qml)
(x:cc *remote-ip*
"cgi-bin/qml-last-modified.py"))
(x:split (curl (x:cc *remote-ip* "cgi-bin/qml-last-modified.py"))
#.(coerce (list #\Return #\Newline) 'string)))))
(when (= 2 (length curr/file))
(destructuring-bind (curr file)