mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-06 02:30:31 -08:00
17 lines
383 B
Common Lisp
17 lines
383 B
Common Lisp
(in-package :eql-user)
|
|
|
|
(defvar *lib* (qload-c++ (in-home "Qt_EQL/eql_cpp")))
|
|
|
|
(assert (qt-object-p *lib*))
|
|
|
|
(qapropos nil *lib*)
|
|
|
|
;; test call
|
|
|
|
(qlet ((a "QVariant(QString)" "hello from C++")
|
|
(b "QVariant(int)" 42)
|
|
(c "QVariant(double)" pi)
|
|
(d "QVariant(QByteArray)" #(69 81 76)))
|
|
(qmsg (! "hello" (:qt *lib*) (list a b c d)))) ; note :qt
|
|
|
|
(qq)
|