mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix example 'tilt-sensor'

Browse source
This commit is contained in:
pls.153 2022-04-15 11:28:35 +02:00
parent 15fc8c062a
commit 68041b4b8d
2 changed files with 61 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/tilt-sensor/lisp/maze.lisp
View file

@ -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))