add new example 'qsqlite': use SQL from Lisp, load QML images from DB

examples/qsqlite/lisp/qt.lisp

@@ -0,0 +1,19 @@
+(defpackage :qt
+  (:use :cl :qml)
+  (:export
+   #:*cpp*
+   #:data-path
+   #:ini
+   #:ini-db
+   #:sql-query))
+
+(in-package :qt)
+
+(defvar *cpp* nil)
+
+(defun ini ()
+  (setf *cpp*
+        #+qt-plugin (qload-c++ "cpp/qt")
+        #-qt-plugin (qfind-child nil "QT"))
+  (let ((*package* (find-package :qt)))
+    (define-qt-wrappers *cpp*)))