tiny revisions

examples/tilt-sensor/lisp/maze.lisp

@@ -15,8 +15,8 @@
     (dotimes (c 4)
       (let* ((cd (mod (+ c d) 4))
              (dv (case cd
-                   (0 (list 1 0))
-                   (1 (list 0 1))
+                   (0 (list 0 1))
+                   (1 (list 1 0))
                    (2 (list -1 0))
                    (t (list 0 -1))))
              (x1 (+ x (car dv)))

src/lisp/ecl-ext.lisp

@@ -3,6 +3,7 @@
 (in-package :qml)
 
 (defun clipboard-text ())
+(defun %disable_clipboard_menu (a))
 (defun %ensure-permissions (a))
 (defun %js (a b))
 (defun pixel-ratio ())
@@ -23,7 +24,7 @@
 (defun %qml-get (a b))
 (defun %qml-set (a b c))
 (defun qobject-name (a))
-(defun qprocess-events ())
+(defun %qprocess-events (a))
 (defun %qquit (a))
 (defun %qrun-on-ui-thread (a b))
 (defun %qget (a b))