revisions

This commit is contained in:
pls.153 2023-08-11 15:03:16 +02:00
parent ee2d032911
commit 6db1068e87
3 changed files with 6 additions and 5 deletions

View file

@ -4,7 +4,7 @@
#-depends-loaded :trivial-package-local-nicknames
#+mobile :s-http-server
#+mobile :zip) ; see 'hacks/zip/'
:components ((:file "lisp/load-fasc")
:components ((:file "lisp/meshtastic-proto")
(:file "lisp/package")
(:file "lisp/qt")
(:file "lisp/ui-vars")

View file

@ -1,9 +1,10 @@
;;; loading protobuf Lisp source files is much faster (especially on mobile)
;;; and doesn't really impact performance at runtime (in this use case)
;;; compared to compiled files, and doesn't seem to impact performance at
;;; runtime (in this use case)
(in-package :qml-user)
(let ((make (find :make *features*))) ; runtime check needed
(let ((build-app (find :build-app *features*))) ; runtime check needed
(dolist (file (list "xmodem"
"telemetry"
"portnums"
@ -22,7 +23,7 @@
"cannedmessages"
"mqtt"
"rtttl"))
(if make
(if build-app
(load (format nil "examples/meshtastic/lisp/proto/meshtastic/~A.lisp" file))
(let ((file* (format nil "lisp/proto/meshtastic/~A.lisp" file)))
(if #+mobile nil #-mobile (probe-file file*)

View file

@ -1,4 +1,4 @@
(pushnew :make *features*)
(pushnew :build-app *features*)
;;; check target