fix example 'tilt-sensor'

examples/tilt-sensor/app.pro

@@ -0,0 +1,60 @@
+LISP_FILES = $$files(lisp/*) app.asd make.lisp
+
+android {
+  lisp.commands = $$(ECL_ANDROID)/../ecl-android-host/bin/ecl \
+                  -norc -shell $$PWD/make.lisp
+} else:ios {
+  lisp.commands = $$(ECL_IOS)/../ecl-ios-host/bin/ecl \
+                  -norc -shell $$PWD/make.lisp
+} else:unix {
+  lisp.commands = /usr/local/bin/ecl -shell $$PWD/make.lisp
+}
+
+lisp.input  = LISP_FILES
+lisp.output = tmp/libapp.a
+
+QMAKE_EXTRA_COMPILERS += lisp
+PRE_TARGETDEPS        += tmp/libapp.a
+
+QT          += quick qml
+TEMPLATE    = app
+CONFIG      += no_keywords release
+DEFINES     = DESKTOP_APP INI_LISP
+INCLUDEPATH = /usr/local/include
+LIBS        = -L/usr/local/lib -lecl
+DESTDIR     = .
+TARGET      = app
+OBJECTS_DIR = tmp
+MOC_DIR     = tmp
+
+linux: LIBS += -L../../../platforms/linux/lib
+macx:  LIBS += -L../../../platforms/macos/lib
+
+android {
+  QT          += androidextras sensors
+  DEFINES     -= DESKTOP_APP
+  INCLUDEPATH = $$(ECL_ANDROID)/include
+  LIBS        = -L$$(ECL_ANDROID)/lib -lecl
+  LIBS        += -L../../../platforms/android/lib
+
+  ANDROID_ABIS               = "arm64-v8a"
+  ANDROID_EXTRA_LIBS         += $$(ECL_ANDROID)/lib/libecl.so
+  ANDROID_PACKAGE_SOURCE_DIR = ../platforms/android
+}
+
+ios {
+  QT          += sensors
+  DEFINES     -= DESKTOP_APP
+  INCLUDEPATH = $$(ECL_IOS)/include
+  LIBS        = -L$$(ECL_IOS)/lib -lecl
+  LIBS        += -leclatomic -leclffi -leclgc -leclgmp
+  LIBS        += -L../../../platforms/ios/lib
+}
+
+LIBS    += -llqml -llisp -Ltmp -lapp
+HEADERS += ../../src/cpp/main.h
+SOURCES += ../../src/cpp/main.cpp
+
+RESOURCES = $$files(qml/*)
+
+QMAKE_CXXFLAGS += -std=c++17

examples/tilt-sensor/lisp/maze.lisp

@@ -51,7 +51,7 @@
       (set-visible x y (aref *maze* x y)))))
 
 (defun new-maze ()
-  (setf *maze* (make-array (list *width* *height*)
+  (setf *maze* (make-array (list (1+ *width*) (1+ *height*))
                            :initial-element t))
   (display-maze)
   (qlater 'generate-maze))