mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
19 lines
317 B
Common Lisp
19 lines
317 B
Common Lisp
(defpackage :qt
|
|
(:use :cl :qml)
|
|
(:export
|
|
#:*cpp*
|
|
#:ini
|
|
#:ini-sensors
|
|
#:heart-rate
|
|
#:heart-rate-accuracy))
|
|
|
|
(in-package :qt)
|
|
|
|
(defvar *cpp* nil)
|
|
|
|
(defun ini ()
|
|
#+android
|
|
(progn
|
|
(setf *cpp* (qfind-child nil "QT"))
|
|
(let ((*package* (find-package :qt)))
|
|
(define-qt-wrappers *cpp*))))
|