revisions

This commit is contained in:
pls.153 2022-04-16 07:09:07 +02:00
parent 1444d1639b
commit 8e55e5b5ed
3 changed files with 7 additions and 4 deletions

View file

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